Gloria Homepage-Environment Research

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Gloria Homepage-Environment Research

HOME

PERSONAL

useful links | currency converter | tell your friends | bookmark this site | print this page

Home » Tell Your Friend

<% ' Email Subject EmailSubject="Check out this website!!" ' Footer EmailFooter1="This message was sent to you by a visitor to our site at:" EmailFooter2="http://people.revoledu.com/gloria/" EmailFooter3="" WebmasterMail="YES" sYourEmail="glotek_2000@yahoo.com" 'Error Message Color ErrorColor="red" ' ----------------------------------------------- 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">

Your name:

" size="40">

<% If dictFields(LCase("name")) Then Response.Write "You need to enter your name" Else Response.Write " " End If %>

Your email address:

" size="40">

<% If dictFields(LCase("uemail")) Then Response.Write "You need to enter a valid email address" Else Response.Write " " End If %>

Your friends name:

" size="40">

<% If dictFields(LCase("fname")) Then Response.Write "You need to enter your friends name" Else Response.Write " " End If %>

Your friends email address:

" size="40">

<% If dictFields(LCase("email")) Then Response.Write "You need to enter a valid email address" Else Response.Write " " End If %>

Your message:

<% If dictFields(LCase("message")) Then Response.Write " You need to enter a message" Else Response.Write " " End If %>

<% 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 this out!" sMessage = "Dear " & fName & vbcrlf _ &"Your Friend " & sPunterFriend & ", wants you to check this website :" & vbCrLf _ & "http://people.revoledu.com/gloria/" & vbCrLf _ & vbCrLf _ & "Here is your friend's message : " & vbCrLf _ & vbCrLf _ & Message & vbcrlf _ & vbcrlf _ & sPunterFriend & 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 sPunterFriend 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 %>

Your message has been sent, <% Call Send %>

THANK YOU FOR REFERRING MY SITE <% Else ShowFormField("Bert") End If %>