<%
if request.querystring("mode") = "submit" then
Dim ConnectionStr
bIsValid = false
dim msg
msg = ""
if request.form("txtFname") = "" then msg = msg & "Please enter your First Name "
if request.form("txtLname") = "" then msg = msg & "Please enter your Last Name "
if request.form("selState") = "" then msg = msg & "Please select your State "
if request.form("txtEmail") = "" then msg = msg & "Please enter your email "
if request.form("txtEmail") <> request.form("txtEmail2") then msg = msg & "The emails you entered do not match "
if msg = "" then bIsValid = true
if bIsValid then
ConnectionStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\include\329BF39FA1E4-CEB2-4faa.mdb") & ";"
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3
conn.Open ConnectionStr
sSQL = "INSERT INTO tblTrak (trkTimeDate, trkAddr)"
sSQL = sSQL & "VALUES ('" & sStartTimeDay & "', '" & Request.ServerVariables("REMOTE_HOST") & "');"
sSQL = "INSERT INTO tblContacts ( FirstName, LastName, State, Email, AfricaTravelPlans, AfricaTravelInterests )VALUES('" & request.form("txtFname") & "', '" & request.form("txtLname") & "', '" & request.form("txtEmail") & "', '" & request.form("selState") & "', '" & request.form("selPlans") & "', '" & request.form("selInterests") & "')"
'response.write (sSQL)
conn.Execute(sSql)
conn.close
set conn = nothing
response.redirect("Thankyou.html")
end if
end if
%>
See You In Ethiopia | Newsletter Signup
To receive future Ethiopian Journeys' eNewsletters, eFare promotions and special travel package information please provide the following information so that we may add you to our mailing list.
