<%
If Request.Form("button") = "Submit" Then
'=============================================
'= RETRIEVE VALUES FROM RSVP FORM SUBMISSION =
'=============================================
mod_name = CompareInput(SQLise(Request.Form("frm_mod_name")))
mod_sname = CompareInput(SQLise(Request.Form("frm_mod_sname")))
mod_cell = CompareInput(SQLise(Request.Form("frm_mod_cell")))
mod_email = CompareInput(SQLise(Request.Form("frm_mod_email")))
sErrors = ""
'=============================================================
'== SERVER SIDE VALIDATION ==
'=============================================================
If Trim(mod_name) = "" Then
sErrors = "Please indicate the type of Photo Shoot Type! "
End If
If Trim(mod_sname) = "" Then
sErrors = "Please indicate the type of Photo Shoot Type! "
End If
If Trim(mod_cell) = "" Then
sErrors = "Please indicate the type of Photo Shoot Type! "
End If
If Trim(mod_email) = "" Then
sErrors = sErrors & "Please complete the Client Email Address Field! "
Else
If NOT validateEmail(mod_email) Then
sErrors = sErrors & "Please enter a valid Client Email Address! "
End If
End If
'=============================================================
'= DATABASE INSERT OF VALUES =
'=============================================================
If Len(sErrors) = 0 Then
sInsertSQL = ""
sInsertSQL = "INSERT INTO tbl_models "
sInsertSQL = sInsertSQL & "(fld_mod_name, "
sInsertSQL = sInsertSQL & " fld_mod_sname, "
sInsertSQL = sInsertSQL & " fld_mod_cell, "
sInsertSQL = sInsertSQL & " fld_mod_email, "
sInsertSQL = sInsertSQL & " fld_mod_date) "
sInsertSQL = sInsertSQL & " VALUES "
sInsertSQL = sInsertSQL & "('"&mod_name&"', "
sInsertSQL = sInsertSQL & " '"&mod_sname&"', "
sInsertSQL = sInsertSQL & " '"&mod_cell&"', "
sInsertSQL = sInsertSQL & " '"&mod_email&"', "
sInsertSQL = sInsertSQL & " '"&universalDate(Date())&"') "
'Response.Write(sInsertSQL)
'Response.End
openConn1()
Set oInsertRS = oConn.Execute(sInsertSQL, iRowsAffected)
Set oInsertRS = Nothing
sInsertSQL = ""
closeConn()
'Mail To Be Sent
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("modmail2.html"), 1)
thebody = f.ReadAll
sSubject = "Online Model Request"
theurl = "thankyou_model2.html"
fFrom = "info@human2water.co.za"
Set oMail = Server.CreateObject("JMail.Message")
oMail.Silent = True
oMail.Logging = True
oMail.ReplyTo = fFrom
oMail.From = fFrom
oMail.Subject = sSubject
oMail.AddRecipient "human2water@gmail.com"
oMail.AddRecipient "dru@thatsitcom.co.za"
oMail.ContentType = "text/html"
oMail.HTMLBody = thebody
If NOT oMail.Send("74.86.155.113") Then
Response.Write ("Your confirmation was not sent due to an error. Please try again later")
Else
Response.Redirect(theurl)
End If
End If
End If
%>
Human2Water
