|
<%
if ErrorMsg <> "" then %>
<%= ErrorMsg %>
<%end if%>
<%if request.form("isSubmitted") = "yes" then%>
<%
DIM all,i
all=False
For i=0 to 8
all=all OR CBOOL(errorArray(i))
Next
If Not all Then
xfirst_name = Trim(Replace(Request.Form("xfirst_name"),"'",""))
xlast_name = Trim(Replace(Request.Form("xlast_name"),"'",""))
xsocial_security = Trim(Replace(Request.Form("xsocial_security"),"'",""))
xaddress = Trim(Replace(Request.Form("xaddress"),"'",""))
xcity = Trim(Replace(Request.Form("xcity"),"'",""))
xstate = Trim(Replace(Request.Form("xstate"),"'",""))
xzip_code = Trim(Replace(Request.Form("xzip_code"),"'",""))
xtelephone = Trim(Replace(Request.Form("xtelephone"),"'",""))
xemail = Trim(Replace(Request.Form("xemail"),"'",""))%>
<%
'This sends and email to you with a link to your database results form
Dim str
str = "Form Request from TWD Validation Script" & vbCrLf & vbCrLf
str = str & "Contact information From: " & vbCrLf
str = str & "Name: " & Request.Form("xfirst_name") & " " & Request.Form("xlast_name") & vbCrLf
str = str & "Social Security #: " & Request.Form("xsocial_security") & vbCrLf
str = str & "Address: " & Request.Form("xaddress") & vbCrLf
str = str & Request.Form("xcity") & ", " & Request.Form("xstate") &" " & Request.Form("xzip_code") & vbCrLf
str = str & "Phone: " & Request.Form("xtelephone")& vbCrLf
str = str & "mailto:" & Request.Form("xeMail") & vbCrLf & vbCrLf
str = str & "Link to my site's Database:" & vbCrLf
str = str & "http://www.texaswebdevelopers.com/admin/admin_validation/default.asp" & vbCrLf
str = str & "Login=admin and Password=admin" & vbCrLf & vbCrLf
str = str & "THIS IS THE SAMPLE EMAIL THAT WOULD GO TO YOU"
Dim myMail
Set myMail = Server.CreateObject("SMTPsvg.Mailer")
myMail.RemoteHost = "mail.commercestreet.com"
myMail.FromAddress = Request.Form("xeMail")
myMail.AddRecipient Request.Form("xfirst_name"), Request.Form("xeMail")
myMail.Subject = "Form Validation Response"
myMail.BodyText = str
myMail.SendMail
Set myMail = Nothing
%>
<%
'This sends an eMail to the user who filled out the form
Dim str2
str2 = "Thank you for testing the validation form at TexasWebDevelopers.com" & vbCrLf & vbCrLf
str2 = str2 & "Here is the updated contact information you provided:" & vbCrLf & vbCrLf
str2 = str2 & "Name: " & Request.Form("xfirst_name") & " " & Request.Form("xlast_name") & vbCrLf
str2 = str2 & "Social Security #: " & Request.Form("xsocial_security") & vbCrLf
str2 = str2 & "Address: " & Request.Form("xaddress") & vbCrLf
str2 = str2 & Request.Form("xcity") & ", " & Request.Form("xstate") &" " & Request.Form("xzip_code") & vbCrLf
str2 = str2 & "Phone: " & Request.Form("xtelephone")& vbCrLf
str2 = str2 & "mailto:" & Request.Form("xeMail") & vbCrLf & vbCrLf
str2 = str2 & "THIS IS THE SAMPLE EMAIL THAT WOULD GO TO THE USER" & vbCrLf & vbCrLf
Dim myMail2
Set myMail2 = Server.CreateObject("SMTPsvg.Mailer")
myMail2.RemoteHost = "mail.commercestreet.com"
myMail2.FromAddress = Request.Form("xeMail")
myMail2.AddRecipient Request.Form("xfirst_name"), Request.Form("xeMail")
myMail2.Subject = "Thank you"
myMail2.BodyText = str2
myMail2.SendMail
Set myMail2 = Nothing
%>
<% ' this is where the information finally gets submitted to the database
DIM Conn,strConn,SQLstmt,RS
set Conn = server.createobject("adodb.connection")
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/database/validation.mdb")
Conn.open strConn
SQLstmt = "INSERT INTO users (xfirst_name,xlast_name,xsocial_security,xaddress,xcity,xstate,xzip_code,xtelephone,xemail)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & xfirst_name & "',"
SQLstmt = SQLstmt & "'" & xlast_name & "',"
SQLstmt = SQLstmt & "'" & xsocial_security & "',"
SQLstmt = SQLstmt & "'" & xaddress & "',"
SQLstmt = SQLstmt & "'" & xcity & "',"
SQLstmt = SQLstmt & "'" & xstate & "',"
SQLstmt = SQLstmt & "'" & xzip_code & "',"
SQLstmt = SQLstmt & "'" & xtelephone & "',"
SQLstmt = SQLstmt & "'" & xeMail & "'"
SQLstmt = SQLstmt & ")"
Set RS = conn.execute(SQLstmt)
If err.number>0 then
response.write "VBScript Errors Occured:" & " " response.write "Error Number=" & err.number & " " response.write "Error Descr.=" & err.description & " " response.write "Help Context=" & err.helpcontext & " " response.write "Help Path=" & err.helppath & " " response.write "Native Error=" & err.nativeerror & " " response.write "Source=" & err.source & " " response.write "SQLState=" & err.sqlstate & " " end if IF conn.errors.count> 0 then response.write "Database Errors Occured" & " " response.write SQLstmt & " " for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & " " response.write "Error desc. -> " & conn.errors(counter).description & " " next else Response.Redirect("formvalidredirect.asp?updated=true") end if end if end if %> |