Untitled Document

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = True %> Untitled Document <% if Request.QueryString("act")="submit" then Dim vfname, vlname, vadd1, vadd2, vcity, vstate, vzip, vphone, vemail, vlang vfname = Request.Form("fname") vlname = Request.Form("lname") vadd1 = Request.Form("add1") vadd2 = Request.Form("add2") vcity = Request.Form("city") vstate = Request.Form("state") vzip = Request.Form("zip") vphone = Request.Form("phone") vemail = Request.Form("email") vlang = Request.Form("language") Dim rsEnroll Dim rsEnroll_numRows Dim strMessage ' DSN-less connection 'accessdb=server.mappath("vbi.mdb") 'accessdb="d:\home\n141s188\database\vbi.mdb" 'strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" 'strconn=strconn & accessDB & ";" 'strconn=strconn & "USER ID=n141s188;PASSWORD=4iE3RFx;" ' Set rsEnroll = Server.CreateObject("ADODB.Connection") ' rsEnroll.Open strconn ' rsEnroll.Open "vbi" ' Set vOfc = rsEnroll.Execute("SELECT * FROM offices ORDER BY zip") Set rsEnroll = Server.CreateObject("ADODB.Recordset") rsEnroll.ActiveConnection = MM_connVBI_STRING rsEnroll.Source = "SELECT * FROM catalog" rsEnroll.CursorType = 3 rsEnroll.CursorLocation = 2 rsEnroll.LockType = 3 rsEnroll.Open() rsEnroll_numRows = 0 rsEnroll.AddNew rsEnroll("fname") = vfname rsEnroll("lname") = vlname rsEnroll("add1") = vadd1 rsEnroll("add2") = vadd2 rsEnroll("city") = vcity rsEnroll("state") = vstate rsEnroll("zip") = vzip rsEnroll("phone") = vphone rsEnroll("email") = vemail rsEnroll("language") = vlang rsEnroll.Update ' send mail to Aixa when user submits their data strMessage = "" Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = "aixa@vetbrands.com" objMail.bcc = "bobnotrob@hotmail.com" objMail.From = "webmaster@vetbrands.com" objMail.Subject = vfname & " " & vlname & " has ordered a VBI catalog." strMessage = "You can view the database records by following this link: " & vbCRLF strMessage = strMessage & "http://www.vetbrands.com/getrecords.asp" objMail.Body = strMessage objMail.Send Set objMail = Nothing rsEnroll.Close() Set rsEnroll = Nothing ' send confirmation email to user when they submit their data strMessage = "" strMessage = "Thank you for ordering the Vet Brands International Catalog." & vbCRLF strMessage = strMessage & "You will soon be enjoying the selection and quality of our reputable manufacturers." & vbCRLF & vbCRLF strMessage = strMessage & "Here is the information you provided." & vbCRLF & vbCRLF strMessage = strMessage & "Name: " & vfname & " " & vlname & vbCRLF strMessage = strMessage & "Address: " & vadd1 & ", " & vadd2 & vbCRLF strMessage = strMessage & "City, State ZIP: " & vcity & ", " & vstate & " " & vzip & vbCRLF strMessage = strMessage & "Phone: " & vphone & vbCRLF strMessage = strMessage & "Email: " & vemail & vbCRLF strMessage = strMessage & "Chosen language: " & vlang & vbCRLF Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = vemail ' objMail.bcc = "bobnotrob@hotmail.com" objMail.From = "info@vetbrands.com" objMail.Subject = "Your Vet Brands Catalog order confirmation" objMail.Body = strMessage objMail.Send Set objMail = Nothing Response.Redirect("catalog_thanks.htm") end if %>

Please fill out the information below, and you will be sent an electronic version of our catalog on CD at no charge within the 50 U.S. states. Shipping charges for international countries are not included.

For more product and pricing information please email us at info@vetbrands.com.

First Name:
Last Name:
Address 1:
Address 2:
City:
State:
Country:
Zip Code:
Phone Number:
	ex. 3055551212 - no punctuation
E-mail:
Confirm E-mail:
Confirm language:	English	Spanish