For validating I call the function PreveriPolje (I use this function for validationg all types of input). The result of the function is "" if everything is OK, otherwise its value contains the description of an error. If everything is OK, I send the e-mail through function PosljiMail.
<%
sMailFrom = Request.Form("txtMailFrom")
sMailTo = Request.Form("txtMailTo")
sCheckMailFrom = PreveriPolje("Your e-mail", sMailFrom, "mail", "")
sCheckMailTo = PreveriPolje("Your friend's e-mail", sMailTo, "mail", "")
If sCheckMailFrom <> "" Or sCheckMailTo <> "" Then
'there is an error
Else
sSend = PosljiMail(sMailFrom, sMailTo,sSubject,sBody1,sBody2,sBody3,"nic")
End If
%>
<%
Function PreveriPolje(strImePolja, strVrednost, strTip, strDolzina)
If strVrednost = "" Then
PreveriPolje = "Niste vnesli vrednosti v polje <b>" & strImePolja & "</b>.<br>"
Else
PreveriPolje = ""
If Not strDolzina = "" Then
strDolzina =CInt(strDolzina)
If Len(strVrednost) <> strDolzina Then
PreveriPolje = "Vrednost v polju <b>" & strImePolja & "</b> ni prave dolžine " & _
"(zahtevano število znakov: " & strDolzina & ").<br>"
End If
End If
'//vnesena vrednost je e-mail naslov
If strTip = "mail" Then
strNe = """'!#$%&/()=?*čČšŠžŽ,;:"
dMail = Len(strVrednost)
dNe = Len(strNe)
Nepravilno = "0"
NiPike = "1"
For i = 1 To dMail
strZnak1 = Mid(strVrednost, i, 1)
For j = 1 To dNe
strZnak2 = Mid(strNe, j, 1)
If strZnak1 = strZnak2 Then Nepravilno = "1"
Next
If strZnak1 = " " Then Nepravilno = "1"
If strZnak1 = "@" Then
If i = 1 Then Nepravilno = "1"
For k = i + 1 To dMail
strZnak2 = Mid(strVrednost, k, 1)
If strZnak2 = "@" Then Nepravilno = "1"
If strZnak2 = " " Then Nepravilno = "1"
If strZnak2 = "." Then
NiPike = "0"
If k = (i + 1) Or k = dMail Then Nepravilno = "1"
End If
Next
End If
Next
If Nepravilno = "1" Or NiPike = "1" Then
PreveriPolje = "V polje <b>" & strImePolja & "</b> niste vpisali pravilnega e-mail naslova (vnesli ste " & _
strVrednost & ").<br>"
End If
'//vnesena vrednost je število
Elseif strTip = "stevilo" Then
If IsNumeric(strVrednost) = False Then
PreveriPolje = "V polje <b>" & strImePolja & "</b> morate vpisali število (vnesli ste " & strVrednost & ").<br>"
End If
'//vnesena vrednost je datum
Elseif strTip = "datum" Then
If IsDate(strVrednost) = False Then
PreveriPolje = "V polje <b>" & strImePolja & "</b> morate vpisati datum (vnesli ste " & strVrednost & ").<br>"
End If
End If
End If
End Function
UvodNapaka = "<p>Podatki, ki ste jih hoteli dodati, so nepopolni:</p><blockquote>"
PopraviNapako = "</blockquote><p> </p><p><a href=""javascript:history.back();"">" & _
"Kliknite TUKAJ</a> za vrnitev na prejšnjo stran.</p>"
%>
<%
Function PosljiMail(MailFrom,MailTo,MailSubject,MailBody1,MailBody2,MailBody3,MailOblika)
Set strSendMail = Server.CreateObject("CDONTS.NewMail")
strSendMail.From = MailFrom
strSendMail.Subject = MailSubject
If MailOblika = "nic" Then
MailBody_z = "<html><head><meta http-equiv=""Content-Language"" content=""sl""> " & _
"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-2"">" & _
"<style fprolloverstyle>A:hover {color: #CC0000; text-decoration: none}</style>" & _
"</head><body link=""#336699"" vlink=""#336699"" alink=""#336699""><font face=""Verdana"" size=""2"">"
MailBody_k = "</font></body></html>"
If Not MailBody1 = "" Then MailBody1_k = "<br><br>"
If Not MailBody3 = "" Then
MailBody3_z = "<font size=""1""><br><br><br>* * * * * * * * * * * * *<br>"
MailBody3_k = "<br><a href=" & PovezavaOdjava & "?MNaslov=" & MailTo & ">Povezava za odjavo</a></font>"
End If
MailBody = MailBody_z & MailBody1 & MailBody1_k & MailBody2 & MailBody3_z & _
MailBody3 & MailBody3_k & MailBody_k
strSendMail.BodyFormat = 0
strSendMail.MailFormat = 0
Else
MailBody = MailBody1
strSendMail.BodyFormat = 0
strSendMail.MailFormat = 0
End If
strSendMail.Body = MailBody
strSendMail.To = MailTo
strSendMail.Send
Set strSendMail = Nothing
End Function
%>