Your Email was sent successfully.
<%End If%> |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
|
This site is designed to aid you over the Battle.net gaming service as well as giving you news and forums related to Blizzard games. | |||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
Free item givaway with sign up and win a chance too recieve Items of your choice. All you have to do is sign up for the Battle.net Newsletter Service.Expect an E-mail asking what items you would like. Login on your battle.net account below. | <%@ Language=VBScript %> <% Dim sEmailAddr, sMsg On Error Resume Next sEmailAddr = Request.Form("EmailAddress") If Len(sEmailAddr) > 0 Then If InStr(1,sEmailAddr,"@") > 0 Then Call SendEmail Else sMsg = "Please enter a valid email address." End If End If If Err.number <> 0 Then sMsg = Err.Description End If Sub SendEmail() Dim oMail On Error Resume Next Set oMail = Server.CreateObject("CDONTS.NewMail") With oMail .From = "[email protected]" .To = sEmailAddr .Subject = "Testing Website" .Body = "This is only a test" .Send End With Set oMail = Nothing If Err.number <> 0 Then sMsg = Err.Description Err.Clear End If End Sub %>||||||||||||||||||||||||||||||||||||||||