<% if request("Submit") = "Enviar" Then%> <%If Len(Request("nombre")) < 1 Then%> <% Response.Write( "Por favor, complete 'Nombre'!
" )%> <% ValidErr =+ 1 end if If Len(Request("email")) = "" Or Not IsValidEmail(Request("email")) Then%> <% Response.Write( "Por favor, complete 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( "
Gracias." ) Response.Write( "
Click aqui para volver" )%> <%Else%> <%Response.Write( "
Por favor, intentelo nuevamente.
" ) Response.Write( "
Click aqui para volver" )%> <%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
Nombre
Email
Nombre
Desea recibir mas información?
<% End If %>