% 'prevent caching of the page Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Dim strFirstName Dim strLastName Dim strTitle Dim strPracOrgName Dim strAddr1 Dim strAddr2 Dim strCity Dim strState Dim strZip Dim strEmail Dim strPhone Dim pims Dim valNumVets Dim strMoreInfo Dim blnRvcRegUpdates Dim objConn, objTypesRS, objContactRS Dim strConnectStr, strSQL Dim blnProcess Dim strMessage Dim strDbsLoc ' get data from form strFirstName = Request.Form("txtFirstName") strLastName = Request.Form("txtTitle") strTitle = Request.Form("txtTitle") strPracOrgName = Request.Form("txtPracOrgName") strAddr1 = Request.Form("txtAddr1") strAddr2 = Request.Form("txtAddr1") strCity = Request.Form("txtCity") strState = Request.Form("cboState") strZip = Request.Form("txtZip") strEmail = Request.Form("txtEmail") strPhone = Request.Form("txtPhone") pims = Request.Form("pims") if Request.Form("txtNumVets") = "" then valNumVets = 0 else valNumVets = Request.Form("txtNumVets") end if strMoreInfo = Request.Form("txtMoreInfo") if Request.Form("chkRegUpdates") = "on" then blnRvcRegUpdates = true else blnRvcRegUpdates = false end if blnProcess = cbool(Request.Form("txtNeedsProc")) ' set connect Set objConn = Server.CreateObject("ADODB.Connection") strDbsLoc = Server.MapPath("../../../database/VetMetContacts.mdb") ' open connection objConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & strDbsLoc ' set recordset obj Set objTypesRS = Server.CreateObject("ADODB.Recordset") if blnProcess then Set objContactRS = Server.CreateObject("ADODB.Recordset") objContactRS.CursorType = 2 objContactRS.LockType = 3 objContactRS.Open "Select * from Contacts where 1=2", objConn objContactRS.AddNew() objContactRS.Fields("FirstName").Value = strFirstName objContactRS.Fields("LastName").Value = strLastName objContactRS.Fields("Title").Value = strTitle objContactRS.Fields("PracOrgName").Value = strPracOrgName objContactRS.Fields("Addr1").Value = strAddr1 objContactRS.Fields("Addr2").Value = strAddr2 objContactRS.Fields("City").Value = strCity objContactRS.Fields("State").Value = strState objContactRS.Fields("Zip").Value = strZip objContactRS.Fields("Email").Value = strEmail objContactRS.Fields("Phone").Value = strPhone objContactRS.Fields("pims").Value = pims objContactRS.Fields("NumVets").Value = cInt(valNumVets) objContactRS.Fields("RecvRegUpdates").Value = cbool(blnRvcRegUpdates) objContactRS.Update if err.number <> 0 then strMessage = "We were unable to save your contact information. Please try again later." end if Response.Redirect("Thanks.html") end if %>
|
|||||||||||||||||||||||||||||||||||||||||||||