Professional Contact Form 0 then bTemp = True if bTemp then Exit For next for i = 1 to Len(strString) if Asc(Mid(strString, i, 1)) = 160 then bTemp = True if bTemp then Exit For next if not bTemp then bTemp = InStr(strString, "..") > 0 end if if not bTemp then bTemp = InStr(strString, " ") > 0 end if if not bTemp then bTemp = (len(strString) len(Trim(strString))) end if 'Addition for leading and trailing spaces controlValidString = Not bTemp end function Function chkEmail(subscribe) dim atCnt, i chkEmail = 0 if len(subscribe) < 5 then chkEmail = 1 elseif instr(subscribe,"@") = 0 then chkEmail = 1 elseif instr(subscribe,".") = 0 then chkEmail = 1 elseif len(subscribe) - instrrev(subscribe,".") > 3 then chkEmail = 1 elseif instr(subscribe,"_") 0 and _ instrrev(subscribe,"_") > instrrev(subscribe,"@") then chkEmail = 1 else atCnt = 0 for i = 1 to len(subscribe) if mid(subscribe,i,1) = "@" then atCnt = atCnt + 1 end if next if atCnt > 1 then chkEmail = 1 end if for i = 1 to len(subscribe) if not isnumeric(mid(subscribe,i,1)) and _ (lcase(mid(subscribe,i,1)) < "a" or _ lcase(mid(subscribe,i,1)) > "z") and _ mid(subscribe,i,1) "_" and _ mid(subscribe,i,1) "." and _ mid(subscribe,i,1) "@" and _ mid(subscribe,i,1) "-" then chkEmail = 1 end if next end if End Function if strErr = 0 then ' NOW WE ARE SENDING OUR EMAIL ' ASPEMAIL Set strMail = CreateObject("Persits.MailSender") strMail.From = "[email protected]" strMail.FromName = "Gamze Yldrm" strMail.IsHTML = False strMail.Host = "pop.mynet.com" strMail.AddAddress strEmailstrName strMail.Subject = strSubj strMail.Body = strMsg & " strMail.Send 'CDONTS Set strMail = server.CreateObject("CDONTS.NewMail") strMail.To = strTargetMail strMail.Value("Reply-To") = strSenderMail strMail.From = "[email protected]" strMail.Subject = strSubject strMail.MailFormat = 1 strMail.BodyFormat = 1 strMail.Body = replace(strMsg, "", vbcrlf) strMail.Send else response.write "There are " & strErr & " errors in your submission." end if end if %> Professional Contact Form
[TABLE]
[TR]
[TD]Name :[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Email :[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Subject :[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Message : [/TD]
[TD] Character Count [/TD]
[/TR]
[/TABLE]



__________________