<% ' #### This script Copyright (c) 2001 ASPjar.com, All Rights Reserved. NO WARRANTEE. ' #### You need CDONTS installed to be able to send mail ' #### Your sites information starts here #### ' Email Subject EmailSubject="visita www.sbattimento.com" ' Footer Messages sent with each email EmailFooter1="Un tuo amico ti invita a visitare:" EmailFooter2="www.sbattimento.com" EmailFooter3="Potrai diverterti Gratis! Vieni a scaricare video, calendari, file eseguibili, file audio divertentissimi, foto trash...e ancora giochi GRATIS, suonerie, loghi, sms animati,screenmates, testi folli, e tante altre chicche" ' Do you also want to recieve all emails? YES or NO WebmasterMail="YES" ' Your Email Address - must be a valid domain or the mail will not send sYourEmail="webmaster@sbattimento.com" ' Heading font color FontColor="#5e007f" ' Heading Background Color HeadColor="#ffc500" ' Form Font Color FormFontColor="#ffc500" ' Form Background Color FormBackColor="#5e007f" 'Error Message Color ErrorColor="red" ' That's it! - you may now wish to customize the header and footer files to suit your site. ' #################################################################################### Function ValidateField(sFieldValue, sFieldType) Dim bFieldIsOkay, Email, Friend, Message bFieldIsOkay = true Select Case LCase(sFieldType) Case "uemail" If Len(sFieldValue) < 5 Then bFieldIsOkay = False Else If InStr(1, sFieldValue, "@", 1) < 2 Then bFieldIsOkay = False Else If InStr(1, sFieldValue, ".", 1) < 4 Then bFieldIsOkay = False End If End If End If Case "name" If Len(sFieldValue) = 0 Then bFieldIsOkay = False Case "fname" If Len(sFieldValue) = 0 Then bFieldIsOkay = False Case "email" If Len(sFieldValue) < 5 Then bFieldIsOkay = False Else If InStr(1, sFieldValue, "@", 1) < 2 Then bFieldIsOkay = False Else If InStr(1, sFieldValue, ".", 1) < 4 Then bFieldIsOkay = False End If End If End If Case "message" If Len(sFieldValue) = 0 Then bFieldIsOkay = False Case "else" bFieldIsOkay = False End Select ValidateField = bFieldIsOkay End Function Sub ShowFormField(Bert) %>
" METHOD="post">
Il tuo nome: 
" size="46" style="FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
<% If dictFields(LCase("name")) Then Response.Write "Non hai inserito il tuo nome" Else Response.Write " " End If %>
La tua E-mail: 
" size="46" style="FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
<% If dictFields(LCase("uemail")) Then Response.Write "Non hai inserito una e-mail valida" Else Response.Write " " End If %>
Il nome del tuo amico: 
" size="46" style="FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
<% If dictFields(LCase("fname")) Then Response.Write "Non hai inserito il nome del tuo amico" Else Response.Write " " End If %>
L'E-mail del tuo amico: 
" size="46" style="FONT-SIZE: 10px; COLOR: <%=FormFontColor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
<% If dictFields(LCase("email")) Then Response.Write "Non hai inserito l'e-mail del tuo amico" Else Response.Write " " End If %>
Il tuo messaggio: 
<% If dictFields(LCase("message")) Then Response.Write " Non hai inserito nessun messaggio" Else Response.Write " " End If %>

Il webmaster

<% End Sub Sub Send sPunterFriend = Request.Form("name") sPunterEmail = Request.Form("uemail") fName = Request.Form("fname") femail= Request.Form("email") Message = Request.Form("message") sSubject = "Check out all this Free Stuff" sMessage = "Salve " & fName & vbcrlf _ & "Hai ricevuto questo messaggio da parte del tuo amico " & sPunterFriend & " ( " & sPunterEmail & " ) Messaggio:" & vbcrlf _ & vbcrlf _ & Message & vbcrlf _ & vbcrlf _ & "_____________________________________________ " & vbcrlf _ & EmailFooter1 & vbcrlf _ & EmailFooter2 & vbcrlf _ & EmailFooter3 & vbcrlf Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.Send sPunterEmail, femail, EmailSubject, sMessage Set objNewMail = Nothing If WebmasterMail="YES" then Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.Send sPunterEmail, sYourEmail, EmailSubject, sMessage Set objNewMail = Nothing End IF Response.Write sPunterEmail End Sub Dim Field Dim dictFields Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), true End If Next If Request.Form.Count <> 0 And dictFields.Count = 0 Then %>

Il tuo messaggio è stato inviato!
dal seguente e-mail:

<% Call Send %>

Grazie per avere segnalato il nostro sito.
<% Else ShowFormField("Bert") End If %>