Untitled Document

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = True %> Untitled Document <% if Request.QueryString("act")="submit" then Dim vfname, vlname, vadd1, vadd2, vcity, vstate, vcty, 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") vcty = Request.Form("cty") 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("cty") = vcty 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 = "Gracias por ordenar el Catalogo de Vet Brands Internacional." & vbCRLF strMessage = strMessage & "Muy pronto usted gozara de la seleccion y calidad de fabricantes de reputacion." & vbCRLF & vbCRLF strMessage = strMessage & "Esta es la informacion que usted suministro:" & vbCRLF & vbCRLF strMessage = strMessage & "Nombre: " & vfname & " " & vlname & vbCRLF strMessage = strMessage & "Direccion: " & vadd1 & ", " & vadd2 & vbCRLF strMessage = strMessage & "Ciudad, Estado, Pais de Residencia, Codigo Postal: " & vcity & ", " & vstate & " " & vcty & " " & vzip & vbCRLF strMessage = strMessage & "Telefono: " & vphone & vbCRLF strMessage = strMessage & "Email (correo electronico): " & vemail & vbCRLF strMessage = strMessage & "Idioma: " & vlang & vbCRLF Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = vemail ' objMail.bcc = "bobnotrob@hotmail.com" objMail.From = "info@vetbrands.com" objMail.Subject = "Confirmacion de La Orden de su Catalogo de Vet Brands" objMail.Body = strMessage objMail.Send Set objMail = Nothing Response.Redirect("catalog_thanks_sp.htm") end if %>

Por favor llene la información requerida en esta pagina, y nosotros le enviaremos nuestro catalogo en CD. Él envió del catalogo es gratis en los 50 estados de los Estados Unidos. En las ordenes Internacionales gastos de envió, no están incluidos.

Para mas información en nuestros productos y precios favor de contactarnos en info@vetbrands.com.

Nombre:
Apellido:
Dirección 1:
Dirección 2:
Ciudad:
Estado:
País de Residencia:
Código postal:
Telefono:
	ex. 3055551212 - sin punctuación
E-mail (correo):
Confirme E-mail:
Idioma:	Ingles	Español