<%
If Len(Trim(Request.Form("visitor_name"))) > 0 OR Len(Trim(Request.Form("visitor_email"))) > 0 OR Len(Trim(Request.Form("visitor_location"))) > 0 OR Len(Trim(Request.Form("visitor_comments"))) > 0 Then
strMessage = ""
strEmail = Trim(Request.Form("visitor_email"))
If Len(Trim(Request.Form("visitor_name"))) > 0 Then
strMessage = strMessage & "Visitor name: " & Trim(Request.Form("visitor_name")) & vbCRLF
Else
strMessage = strMessage & "Visitor name: (anonymous)" & vbCRLF
End If
If Len(Trim(Request.Form("visitor_location"))) > 0 Then
strMessage = strMessage & "From: " & Trim(Request.Form("visitor_location")) & vbCRLF
End If
If Len(strEmail) > 0 Then
strMessage = strMessage & "Email address: " & strEmail & vbCRLF
Else
strEmail = "losvengadores@theavengers.tv"
End If
strMessage = strMessage & "Date: " & Now() & vbCRLF & vbCRLF
If Len(Trim(Request.Form("visitor_comments"))) > 0 Then
strMessage = strMessage & "Comments: " & Trim(Request.Form("visitor_comments")) & vbCRLF & vbCRLF
End If
If Len(Trim(Request.Form("pubComments"))) > 0 Then
strMessage = strMessage & "(OK to publish comments)" & vbCRLF
End If
If Len(Trim(Request.Form("pubEmail"))) > 0 Then
strMessage = strMessage & "(OK to include email address)"
End If
Set objEmail = CreateObject("CDONTS.NewMail")
objEmail.From = strEmail
objEmail.To = "losvengadores@theavengers.tv"
objEmail.Subject = "Los Vengadores Feedback"
objEmail.Body = strMessage
objEmail.Send
Set objEmail = Nothing
Response.Redirect "http://losvengadores.theavengers.tv/feedback.htm"
End If
%>
Los Vengadores Feedback Form