<%
if request("Submit") = "Send" Then%>
<%If Len(Request("nombre")) < 1 Then%> <% Response.Write( "Please, insert 'Name'!
" )%>
<% ValidErr =+ 1
end if
If Len(Request("email")) = "" Or Not IsValidEmail(Request("email")) Then%>
<% Response.Write( "Please, insert E-mail !!!
" )%> <% ValidErr =+ 1
End If
If ValidErr = 0 Then
set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = request("mi_email")
mail.To = "norbi@vogel.com.ar"
mail.Subject = "tango playbacks"
Solicitud = "" & Chr(13) & Chr(10) & "Nombre: "& request("nombre") _
& Chr(13) & Chr(10) & "E-mail: "& request("email") _
& "" & Chr(13) & Chr(10)
mail.MailFormat=0
mail.Body = Solicitud
mail.Send
Set mail = Nothing%> <%Response.Write( "
Thank´s You." )
Response.Write( "
Click here to go back" )%>
<%Else%> <%Response.Write( "
Please, try again.
" )
Response.Write( "
Click here to go back" )%>
<%End If
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If 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
else%>
Tango Playbacks
<% End If %>
