<%@Language="VBScript"%> <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.open strConn strSQL = "SELECT prodName FROM tblProduct" Set objRS = Server.CreateObject("ADODB.recordset") objRS.Open strSQL, objConn getHeader("contact") %>

Road Dog Customs 11791 Slauson Ave. Sante Fe Springs, CA 90670 Information Phone : 562-698-8999 Fax : 562-698-2852 info@roaddogcustoms.com         Submit a Question for an email response within 48 hours. *Required field   <% 'If intMailSent > 0 Then %> <% 'Else %> <% 'End If %> *First Name: <% 'If strFirstName = "" AND intSubmit > 0 Then ' Response.Write(" Please enter your first name.") 'End If %> *Last Name: <% 'If strLastName = "" AND intSubmit > 0 Then ' Response.Write(" Please enter your last name.") 'End If %> Address: City: State: Click here to select a state Alabama Alaska Arizona Arkansas California Colorado Connecticut Delaware District of Columbia Florida Georgia Hawaii Idaho Illinois Indiana Iowa Kansas Kentucky Louisiana Maine Maryland Massachusetts Michigan Minnesota Mississippi Missouri Montana Nebraska Nevada New Hampshire New Jersey New Mexico New York North Carolina North Dakota Ohio Oklahoma Oregon Pennsylvania Puerto Rico Rhode Island South Carolina South Dakota Tennessee Texas Utah Vermont Virginia Washington West Virginia Wisconsin Wyoming Zip: Phone: *Email: <% 'If Not isValidEmail(strEmail) AND intSubmit > 0 Then ' Response.Write(" Please enter a valid email address.") 'End If %>     *Your Question: <% 'If strBodyText = "" AND intSubmit > 0 Then ' Response.Write(" Please enter a message.") 'End If %>

<% objRS.close Set objRS = Nothing getFooter() %>