"
strBody = strBody & "In order to use your username and password to login, you first need to activate your account by clicking on the following link or copying it into you address bar in your web browser.
"
strBody = strBody & "http://www.theglassforum.co.za/activate.asp?K=" & Request.QueryString("K") & "
" strBody = strBody & "Your username and password is stated below.
"
strBody = strBody & "Username: " & Request.QueryString("U") & "
"
strBody = strBody & "Password: " & Request.QueryString("P") & "
"
strBody = strBody & "Thank you so much for utilising The Glass Forum. To continue with the forum, please click here")
Response.End()
Else
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
' A quick email syntax checker. It's not perfect,
' but it's quick and easy and will catch most of
' the bad addresses than people type in.
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 AND Instr(1, strEmail, ";") = 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
%>
"
strBody = strBody & "Kind Regards,
"
strBody = strBody & " The Glass Forum Webmaster"
Else
Response.Redirect(MM_editRedirectUrl)
End If
If strTo = "" Then
Response.Redirect(MM_editRedirectUrl)
End If
If strTo = strCC Then 'Don't want to receive the email more than once...
strCC = ""
End If
If Err.Number <> 0 Then
Response.Write("An error occured while creating the notification email...
")
Response.Write("Error Description: " & Err.Description & "
")
Response.Write("Please contact the systems administrator and quote the above message.
")
Response.End()
End If
If strTo = "" Or NOT IsValidEmail(strTo) Then
Response.Write("Email address cannot be blank or is an invalid email address. Please contact the system administrator [" & strTo & "]
")
Response.End()
Else
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Server.CreateObject("CDO.Message")'
' This gets you the appearance of a real name!
objCDOMail.From = "[The Glass Forum]
")
Response.Write("Error Description: " & " #" & Err.Number & " - " & Err.Description & "
")
Response.Write("Please contact the systems administrator and quote the above message.
")
Response.Write("Message...
")
Response.Write("To:" & strTo & "
")
Response.Write("CC:" & strCC & "
")
Response.Write("Subject:" & strSubject & "
")
Response.Write("Message:" & strBody & "
")
Response.Write("