<%
'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
%>
Corporate Headquarters:
Veterinary Metrics, Inc.
770 South Central Avenue
Suite 100
Atlanta , GA 30354
404-835-4300
Toll free: 1-800-418-8449
Thank you for your interest in Veterinary Metrics, Inc. If you’d like to contact us by email, click here info@vetmet.com; or provide the following information and submit the form.
