inserting into multiple tables

riffy · Jul 2, 2002

Hi guys,

I really need to know this if you guys can help me.
I want to know how to enter records into two tables in a database.
One table name is Customers and the other table name is Transactions.
There is a form to select a travel package. The first 6 fields are inserted into the Customers table and the last 4 fields have to be inserted into the Transactions table.

Can anyone help or do I need to post code?

Thanks
Arif

Tarwn · Jul 2, 2002

I would assume that two seperate insert statements should be fine for this. If you need some detailed db connection and execution code, post some db information like the table name and field names (and type, eg access, MS SQLServer, MySQL) and you should get a couple hits in the next hours or so

-Tarwn

riffy · Jul 2, 2002

here is my code to query the database and the tables...i know my sql statements are wrong especially the insert into one but i don't know how to fix it...

Code:

<!-- #include file=&quot;./connection.asp&quot; -->
<%
response.buffer = true
response.expires = 0
response.expiresAbsolute = &quot;01-JAN-1980&quot;

v_lname     = request.form(&quot;LastName&quot;)
v_fname     = request.form(&quot;FirstName&quot;)
v_address		= request.form(&quot;BillingAddress&quot;)
v_city      = request.form(&quot;City&quot;)
v_state     = request.form(&quot;State&quot;)
v_phone     = request.form(&quot;Phone&quot;)
v_pkgid     = request.form(&quot;PackageID&quot;)
v_people    = request.form(&quot;Travelers&quot;)
v_cc        = request.form(&quot;CreditCard&quot;)
v_ccno      = request.form(&quot;CC_No&quot;)
v_buttonvalue 	= request.form(&quot;btnsubmit&quot;)

	set conn = server.createobject(&quot;ADODB.connection&quot;)
	conn.Open	sConn
		
	If cstr(v_buttonvalue) = &quot;Submit&quot; then
	 if NOT checkallentries(v_lname,v_fname,v_address,v_city,v_state,v_phone,v_pkgid,v_people,v_cc,v_ccno,v_buttonvalue) then
		set rs  = server.createobject(&quot;ADODB.recordset&quot;)
		rs.open &quot;Customers&quot;,conn,3,3
		rs.addnew
		
		rs(&quot;LastName&quot;) 	= request.form(&quot;LastName&quot;)	
		rs(&quot;FirstName&quot;) 	= request.form(&quot;FirstName&quot;)
		rs(&quot;BillingAddress&quot;) 	= request.form(&quot;BillingAddress&quot;)
		rs(&quot;City&quot;)    = request.form(&quot;City&quot;)
		rs(&quot;State&quot;)     = request.form(&quot;State&quot;)
		rs(&quot;Phone&quot;) 	= request.form(&quot;Phone&quot;)
			
		rs.update
		rs.movelast
		strID = rs(&quot;CustomerID&quot;)
     end if	
	end if
		
	SQL = &quot;INSERT INTO Transactions (CustomerID, PackageID, Travelers, CreditCard, CC_No)&quot;
	SQL =  SQL & &quot; SELECT &quot;
	SQL =  SQL & PackageID & &quot; as text1,&quot;
	SQL =  SQL & &quot;'&quot; & request(&quot;Travelers&quot;) & &quot;' as text2,&quot;
	SQL =  SQL & request(&quot;CreditCard&quot;) & &quot; as text3,&quot;
	SQL =  SQL & request(&quot;CC_No&quot;) & &quot; as text4&quot;
	conn.execute(SQL)

conn.close
set conn = nothing

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;>
</head>

<body bgcolor=&quot;#FFFFFF&quot; text=&quot;#000000&quot;>
<form name=&quot;form1&quot; method=&quot;post&quot; action=&quot;&quot;>
  <table width=&quot;700&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;3&quot;>
    <tr> 
      <td width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Last 
        Name: </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <input type=&quot;text&quot; name=&quot;LastName&quot; size=&quot;35&quot;>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>First 
        Name: </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;> 
        <input type=&quot;text&quot; name=&quot;FirstName&quot; size=&quot;35&quot;>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Billing 
        Address: </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;> 
        <input type=&quot;text&quot; name=&quot;BillingAddress&quot; size=&quot;50&quot;>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>City: 
        </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <input type=&quot;text&quot; name=&quot;City&quot; size=&quot;30&quot;>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>State: 
        </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <select name=&quot;State&quot;>
          <option value='' selected>Select State</option>
          <option value=&quot;AL&quot;>Alabama</option>
          <option value=&quot;AK&quot;>Alaska</option>
          <option value=&quot;AZ&quot;>Arizona</option>
          <option value=&quot;AR&quot;>Arkansas</option>
          <option value=&quot;CA&quot;>California</option>
          <option value=&quot;CO&quot;>Colorado</option>
          <option value=&quot;CT&quot;>Connecticut</option>
          <option value=&quot;DE&quot;>Delaware</option>
          <option value=&quot;DC&quot;>District Of Columbia</option>
          <option value=&quot;FL&quot;>Florida</option>
          <option value=&quot;GA&quot;>Georgia</option>
          <option value=&quot;GU&quot;>Guam</option>
          <option value=&quot;HI&quot;>Hawaii</option>
          <option value=&quot;ID&quot;>Idaho</option>
          <option value=&quot;IL&quot;>Illinois</option>
          <option value=&quot;IN&quot;>Indiana</option>
          <option value=&quot;IA&quot;>Iowa</option>
          <option value=&quot;KS&quot;>Kansas</option>
          <option value=&quot;KY&quot;>Kentucky</option>
          <option value=&quot;LA&quot;>Louisiana</option>
          <option value=&quot;ME&quot;>Maine</option>
          <option value=&quot;MD&quot;>Maryland</option>
          <option value=&quot;MA&quot;>Massachusetts</option>
          <option value=&quot;MI&quot;>Michigan</option>
          <option value=&quot;MN&quot;>Minnesota</option>
          <option value=&quot;MS&quot;>Mississippi</option>
          <option value=&quot;MO&quot;>Missouri</option>
          <option value=&quot;MT&quot;>Montana</option>
          <option value=&quot;NE&quot;>Nebraska</option>
          <option value=&quot;NV&quot;>Nevada</option>
          <option value=&quot;NH&quot;>New Hampshire</option>
          <option value=&quot;NJ&quot;>New Jersey</option>
          <option value=&quot;NM&quot;>New Mexico</option>
          <option value=&quot;NY&quot;>New York</option>
          <option value=&quot;NC&quot;>North Carolina</option>
          <option value=&quot;ND&quot;>North Dakota</option>
          <option value=&quot;OH&quot;>Ohio</option>
          <option value=&quot;OK&quot;>Oklahoma</option>
          <option value=&quot;OR&quot;>Oregon</option>
          <option value=&quot;PA&quot;>Pennsylvania</option>
          <option value=&quot;PR&quot;>Puerto Rico</option>
          <option value=&quot;RI&quot;>Rhode Island</option>
          <option value=&quot;SC&quot;>South Carolina</option>
          <option value=&quot;SD&quot;>South Dakota</option>
          <option value=&quot;TN&quot;>Tennessee</option>
          <option value=&quot;TX&quot;>Texas</option>
          <option value=&quot;UT&quot;>Utah</option>
          <option value=&quot;VT&quot;>Vermont</option>
          <option value=&quot;VA&quot;>Virginia</option>
          <option value=&quot;WA&quot;>Washington</option>
          <option value=&quot;WV&quot;>West Virginia</option>
          <option value=&quot;WI&quot;>Wisconsin</option>
          <option value=&quot;WY&quot;>Wyoming</option>
        </select>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Phone: 
        </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <input type=&quot;text&quot; name=&quot;Phone&quot; size=&quot;15&quot;>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Package 
        Number: </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <input type=&quot;text&quot; name=&quot;PackageID&quot; size=&quot;3&quot;>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Number 
        of Travellers: </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <input type=&quot;text&quot; name=&quot;Travelers&quot; size=&quot;5&quot;>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Choose 
        Credit Card: </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <select name=&quot;CreditCard&quot;>
          <option selected>Select...</option>
          <option value=&quot;AMEX&quot;>American Express</option>
          <option value=&quot;MC&quot;>MasterCard</option>
          <option value=&quot;Visa&quot;>Visa</option>
        </select>
        </font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Credit 
        Card Number: </font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>  
        <input type=&quot;text&quot; name=&quot;CC_No&quot; size=&quot;20&quot;>
        </font></td>
    </tr>
    <tr align=&quot;center&quot;> 
      <td colspan=&quot;2&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>
        <input type=&quot;submit&quot; name=&quot;btnSubmit&quot; value=&quot;Choose Package&quot;>
</font></td>
    </tr>
    <tr> 
      <td align=&quot;right&quot; width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
    </tr>
    <tr> 
      <td width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
    </tr>
    <tr> 
      <td width=&quot;350&quot;><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
      <td><font face=&quot;Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;></font></td>
    </tr>
  </table>
</form>
</body>
</html>
<%
function checkallentries(i_lname,i_fname,i_address,i_city,i_state,i_phone,i_pkgid,i_people,i_cc,i_ccno,i_buttonvalue)
	if cstr(i_buttonvalue)= &quot;Submit&quot; then
		if cstr(i_lname)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter a <b>last name</b>&quot;
			ErrorFound = &quot;Y&quot;
		end if		
		if cstr(i_fname)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter a <b>first name</b>&quot;
			ErrorFound = &quot;Y&quot;
		end if		
		if cstr(i_address)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter an address&quot;
			ErrorFound = &quot;Y&quot;
		end if
		if cstr(i_city)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter a city&quot;
			ErrorFound = &quot;Y&quot;
		end if
		if cstr(i_state)= &quot;&quot; then 
			Error= Error & &quot;<br>Please select a state&quot;
			ErrorFound = &quot;Y&quot;
		end if
		if cstr(i_phone)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter a phone number&quot;
			ErrorFound = &quot;Y&quot;
		end if
		if cstr(i_pkgid)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter a Package Number&quot;
			ErrorFound = &quot;Y&quot;
		end if
		if cstr(i_people)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter number of travelers&quot;
			ErrorFound = &quot;Y&quot;
		end if
		if cstr(i_cc)= &quot;&quot; then 
			Error= Error & &quot;<br>Please select a credit card&quot;
			ErrorFound = &quot;Y&quot;
		end if
		if cstr(i_ccno)= &quot;&quot; then 
			Error= Error & &quot;<br>Please enter a credit card number&quot;
			ErrorFound = &quot;Y&quot;
		end if		
	else
		ErrorFound = &quot;N&quot;	
	end if
		
	If 	ErrorFound = &quot;Y&quot; then
		Error = &quot;There were problems with the information you entered&quot; & Error 
		session(&quot;message&quot;) = Error
		checkallentries = true
	Else
		checkallentries = false
	End IF
		
end function
%>

jlgdeveloper · Jul 2, 2002

riffy

Here is a FAQ on the subject of accessing your data: faq333-2118

You essentially want to divide and conquer. Open one recordset, add your data, save, open the second recordset, do the same.

Consider sending your form to a different page, which only receives data, and does the db insert, then redirects to the page you want the viewer to go to. This way, your code is cleaner, with client-side on one page, and server-side on the other, not all in one.

Response.redirect("default.asp&quot

is used to return the viewer.

The customer table should have a pkCustomerID (primary key) which interfaces with the foreign key in the transaction table ... fkCustomerID (your references between the two are not very formal). You will end up with more managable, readable code.
Jonathan Galpin

http://www.keen.com/categories/categorylist_expand.asp?sid=5215353&gid=0&pmode=0

snowboardr · Jul 3, 2002

I personally found this way of doing forms, best for the user and best for coding, because you can bring all your data back to the form, and have the error message right above the field that is invalid so the user has no problem with fixing the problem, then proceeding onto to the thank you page..

Code:

 <%

If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then

Dim first_name, last_name, address, StrState, Zip, StrInt, EmailAdd, Err1, Err2, Err3, Err4, Err5, Err6, Err7, Err8, Err9, StrPhone, StrFax, StrComments

	first_name = Request.Form(&quot;first_name&quot;)   
	last_name = Request.Form(&quot;last_name&quot;)
	address = Request.Form(&quot;address&quot;)
	StrCity = Request.Form(&quot;city&quot;)
	StrState = Request.Form(&quot;state&quot;)
	Zip = Request.Form(&quot;zip&quot;)
    StrInt = Request.Form(&quot;int&quot;)
	EmailAdd = Request.Form(&quot;email&quot;)
	StrPhone = Request.Form(&quot;phone&quot;)
	StrFax = Request.Form(&quot;fax&quot;)
	StrContact = Request.Form(&quot;contact&quot;)
	Session(&quot;contact&quot;) = StrContact
	StrComments = Request.Form(&quot;comments&quot;)
	
	If first_name = &quot;&quot; then
		Err1 = True
	 		Else
		Session(&quot;first_name&quot;) = first_name
	End if
	
	If last_name = &quot;&quot; then
		Err2 = True
			Else
		Session(&quot;last_name&quot;) = last_name
	End if
	
	If address = &quot;&quot; then
		Err3 = True
	End if
	
	If StrCity = &quot;&quot; then
		Err9 = True
	End if
	
	If StrState = &quot;&quot; then
		Err4=  True
	End if
	
	If Zip = &quot;&quot; then
		Err5 = True
	End if
	
	If StrInt = &quot;#&quot; then
	    Err6 = True
	Else
		If InStr(StrInt, &quot;|&quot;) > 0 then
				StrIntTMP = Split(StrInt, &quot;|&quot;)
					Session(&quot;StrInt&quot;) = StrIntTMP(0)
					Session(&quot;ReqMid&quot;) = StrIntTMP(1)
						Else
					Session(&quot;StrInt&quot;) = StrInt
			End If
	End if
	
	If Request.Form(&quot;contact&quot;) = &quot;2&quot; and EmailAdd = &quot;&quot; then
		Err10 = True
	End If
	
	If Request.Form(&quot;contact&quot;) = &quot;3&quot; and StrPhone = &quot;&quot; then
		Err7 = True
	End If
	
	If Request.Form(&quot;contact&quot;) = &quot;4&quot; and StrFax = &quot;&quot; then
		Err8 = True
	End If
	
	
	
If EmailAdd <> &quot;&quot; then	
	
	If NOT InStr(EmailAdd, &quot;.&quot;) > 1 then
		ErrEmail = True
	End if
	
	If InStr(EmailAdd, &quot;@&quot;) < 1 then
		ErrEmail = True
	End If

End if
		
    '# If all the error strings are empty proceed on with inserting into database
 If Err1 <> True and Err2 <> True and Err3 <> True and Err4 <> True and Err5 <> True and Err6 <> True and Err7 <> True and Err8 <> True and Err9 <> True and Err10 <> True and ErrEmail <> True then
 	'Insert into to db
	'Redirect
	
set my_conn = Server.CreateObject(&quot;ADODB.Connection&quot;)

my_conn.Open ConnString

strSql = &quot;INSERT INTO requestinfo ([first_name],[last_name],[email],[address],[city],[state],[zip],[phone],[fax],[contact_method],[comments],[date],[intrest]) VALUES (&quot; & &quot;'&quot; & first_name & &quot;','&quot; & last_name & &quot;','&quot; & email & &quot;','&quot; & address & &quot;','&quot; & StrCity & &quot;','&quot; & StrState & &quot;','&quot; & zip & &quot;','&quot; & phone & &quot;','&quot; & fax & &quot;','&quot; & StrContact & &quot;','&quot; & StrComments & &quot;','&quot; & Date & &quot;','&quot; & StrInt & &quot;')&quot;
Set rs = my_conn.execute(strSql)


	
	Response.Redirect &quot;default.asp?view=thank.you&quot;
End if
	

End if
	
	
%>
</p>
<table width=&quot;100%&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;>
  <tr> 
    <td bgcolor=&quot;#FFFFFF&quot;> 
      <div align=&quot;center&quot;> 
        <form name=&quot;form5&quot; method=&quot;post&quot; action=&quot;default.asp?view=Info&action=verify&quot;>
          <table width=&quot;49%&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;3&quot;>
            <tr> 
              <td width=&quot;42%&quot;>&nbsp;</td>
              <td width=&quot;58%&quot;>&nbsp;</td>
            </tr>
            <tr bgcolor=&quot;#EEEEEE&quot;> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b>Request 
                  Information</b> </font></div>
              </td>
              <td width=&quot;58%&quot;>&nbsp;</td>
            </tr>
            <% If Err1 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  provide a first name, and then re-submit the form.</font></b></font></div>
              </td>
            </tr>
            <% End If %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>*First 
                  Name</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;text&quot; name=&quot;first_name&quot; size=&quot;15&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;first_name&quot;)) %>&quot;>
              </td>
            </tr>
            <% If Err2 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  provide a last name, and then re-submit the form.</font></b></font></div>
              </td>
            </tr>
            <% End if %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>*Last 
                  Name</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;text&quot; name=&quot;last_name&quot; size=&quot;20&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;last_name&quot;)) %>&quot;>
              </td>
            </tr>
            <% If ErrEmail <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  provide a valid email address.</font></b></font></div>
              </td>
            </tr>
            <% End if %>
			<% If Err10 <> &quot;&quot; then %>
			<tr> 
              <td colspan=&quot;2&quot;>
                <div align=&quot;center&quot;><font color=&quot;#FF0000&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;><b>You 
                  requested us to contact you via email, please fill in your email 
                  number.</b></font></div>
              </td>
            </tr>
			<%End if %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>Email</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;text&quot; name=&quot;email&quot; size=&quot;35&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;email&quot;)) %>&quot;>
              </td>
            </tr>
            <% If Err3 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  provide a mailing address, and then re-submit the form.</font></b></font></div>
              </td>
            </tr>
            <% End if %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>*Mailing 
                  Address</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;text&quot; name=&quot;address&quot; size=&quot;30&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;address&quot;)) %>&quot;>
              </td>
            </tr>
            <% If Err9 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot; height=&quot;8&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  provide your city, and then re-submit the form.</font></b></font></div>
              </td>
            </tr>
            <% End If %>
            <tr> 
              <td height=&quot;8&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>*City</font></div>
              </td>
              <td height=&quot;8&quot;> 
                <input type=&quot;text&quot; name=&quot;city&quot; size=&quot;15&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;city&quot;)) %>&quot; maxlength=&quot;15&quot;>
              </td>
            </tr>
            <% If Err4 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot; height=&quot;8&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  provide </font><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>your</font></b></font><font color=&quot;#FF0000&quot;> 
                  state, and then re-submit the form.</font></b></font></div>
              </td>
            </tr>
            <% End if %>
            <tr> 
              <td width=&quot;42%&quot; height=&quot;35&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>*State</font></div>
              </td>
              <td width=&quot;58%&quot; height=&quot;35&quot;> 
              <select name=&quot;State&quot;>
          <option value='' <% If Request.QueryString(&quot;action&quot;) <> &quot;verify&quot; then Response.Write(&quot;Selected&quot;) %>>Select State</option>
          <option value=&quot;AL&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;AL&quot; then Response.Write(&quot;Selected&quot;) %>>Alabama</option>
          <option value=&quot;AK&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;AK&quot; then Response.Write(&quot;Selected&quot;) %>>Alaska</option>
          <option value=&quot;AZ&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;AZ&quot; then Response.Write(&quot;Selected&quot;) %>>Arizona</option>
          <option value=&quot;AR&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;AR&quot; then Response.Write(&quot;Selected&quot;) %>>Arkansas</option>
          <option value=&quot;CA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;CA&quot; then Response.Write(&quot;Selected&quot;) %>>California</option>
          <option value=&quot;CO&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;CO&quot; then Response.Write(&quot;Selected&quot;) %>>Colorado</option>
          <option value=&quot;CT&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;CT&quot; then Response.Write(&quot;Selected&quot;) %>>Connecticut</option>
          <option value=&quot;DE&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;DE&quot; then Response.Write(&quot;Selected&quot;) %>>Delaware</option>
          <option value=&quot;DC&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;DC&quot; then Response.Write(&quot;Selected&quot;) %>>District Of Columbia</option>
          <option value=&quot;FL&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;FL&quot; then Response.Write(&quot;Selected&quot;) %>>Florida</option>
          <option value=&quot;GA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;GA&quot; then Response.Write(&quot;Selected&quot;) %>>Georgia</option>
          <option value=&quot;GU&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;GU&quot; then Response.Write(&quot;Selected&quot;) %>>Guam</option>
          <option value=&quot;HI&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;HI&quot; then Response.Write(&quot;Selected&quot;) %>>Hawaii</option>
          <option value=&quot;ID&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;ID&quot; then Response.Write(&quot;Selected&quot;) %>>Idaho</option>
          <option value=&quot;IL&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;IL&quot; then Response.Write(&quot;Selected&quot;) %>>Illinois</option>
          <option value=&quot;IN&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;IN&quot; then Response.Write(&quot;Selected&quot;) %>>Indiana</option>
          <option value=&quot;IA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;IA&quot; then Response.Write(&quot;Selected&quot;) %>>Iowa</option>
          <option value=&quot;KS&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;KS&quot; then Response.Write(&quot;Selected&quot;) %>>Kansas</option>
          <option value=&quot;KY&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;KY&quot; then Response.Write(&quot;Selected&quot;) %>>Kentucky</option>
          <option value=&quot;LA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;LA&quot; then Response.Write(&quot;Selected&quot;) %>>Louisiana</option>
          <option value=&quot;ME&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;ME&quot; then Response.Write(&quot;Selected&quot;) %>>Maine</option>
          <option value=&quot;MD&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;MD&quot; then Response.Write(&quot;Selected&quot;) %>>Maryland</option>
          <option value=&quot;MA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;MA&quot; then Response.Write(&quot;Selected&quot;) %>>Massachusetts</option>
          <option value=&quot;MI&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;MI&quot; then Response.Write(&quot;Selected&quot;) %>>Michigan</option>
          <option value=&quot;MN&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;MN&quot; then Response.Write(&quot;Selected&quot;) %>>Minnesota</option>
          <option value=&quot;MS&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;MS&quot; then Response.Write(&quot;Selected&quot;) %>>Mississippi</option>
          <option value=&quot;MO&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;MO&quot; then Response.Write(&quot;Selected&quot;) %>>Missouri</option>
          <option value=&quot;MT&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;MT&quot; then Response.Write(&quot;Selected&quot;) %>>Montana</option>
          <option value=&quot;NE&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;NE&quot; then Response.Write(&quot;Selected&quot;) %>>Nebraska</option>
          <option value=&quot;NV&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;NV&quot; then Response.Write(&quot;Selected&quot;) %>>Nevada</option>
		  <option value=&quot;NH&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;NH&quot; then Response.Write(&quot;Selected&quot;) %>>New Hampshire</option>
          <option value=&quot;NJ&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;NJ&quot; then Response.Write(&quot;Selected&quot;) %>>New Jersey</option>
          <option value=&quot;NM&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;NM&quot; then Response.Write(&quot;Selected&quot;) %>>New Mexico</option>
		  <option value=&quot;NY&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;NY&quot; then Response.Write(&quot;Selected&quot;) %>>New York</option>
          <option value=&quot;NC&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;NC&quot; then Response.Write(&quot;Selected&quot;) %>>North Carolina</option>
          <option value=&quot;ND&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;ND&quot; then Response.Write(&quot;Selected&quot;) %>>North Dakota</option>
          <option value=&quot;OH&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;OH&quot; then Response.Write(&quot;Selected&quot;) %>>Ohio</option>
          <option value=&quot;OK&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;OK&quot; then Response.Write(&quot;Selected&quot;) %>>Oklahoma</option>
          <option value=&quot;OR&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;OR&quot; then Response.Write(&quot;Selected&quot;) %>>Oregon</option>
          <option value=&quot;PA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;PA&quot; then Response.Write(&quot;Selected&quot;) %>>Pennsylvania</option>
          <option value=&quot;PR&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;PR&quot; then Response.Write(&quot;Selected&quot;) %>>Puerto Rico</option>
          <option value=&quot;RI&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;RI&quot; then Response.Write(&quot;Selected&quot;) %>>Rhode Island</option>
          <option value=&quot;SC&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;SC&quot; then Response.Write(&quot;Selected&quot;) %>>South Carolina</option>
          <option value=&quot;SD&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;SD&quot; then Response.Write(&quot;Selected&quot;) %>>South Dakota</option>
          <option value=&quot;TN&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;TN&quot; then Response.Write(&quot;Selected&quot;) %>>Tennessee</option>
          <option value=&quot;TX&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;TX&quot; then Response.Write(&quot;Selected&quot;) %>>Texas</option>
          <option value=&quot;UT&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;UT&quot; then Response.Write(&quot;Selected&quot;) %>>Utah</option>
          <option value=&quot;VT&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;VT&quot; then Response.Write(&quot;Selected&quot;) %>>Vermont</option>
          <option value=&quot;VA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;VA&quot; then Response.Write(&quot;Selected&quot;) %>>Virginia</option>
          <option value=&quot;WA&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;WA&quot; then Response.Write(&quot;Selected&quot;) %>>Washington</option>
          <option value=&quot;WV&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;WV&quot; then Response.Write(&quot;Selected&quot;) %>>West Virginia</option>
          <option value=&quot;WI&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;WI&quot; then Response.Write(&quot;Selected&quot;) %>>Wisconsin</option>
          <option value=&quot;WY&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;state&quot;) = &quot;WY&quot; then Response.Write(&quot;Selected&quot;) %>>Wyoming</option>
        </select>
			  </td>
            </tr>
            <% If Err5 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  provide a zip code, and then re-submit the form.</font></b></font></div>
              </td>
            </tr>
            <%End if %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>*Zip</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;text&quot; name=&quot;zip&quot; size=&quot;7&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;zip&quot;)) %>&quot; maxlength=&quot;7&quot;>
              </td>
            </tr>
            <% If Err7 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font color=&quot;#FF0000&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;><b>You 
                  requested us to contact you via phone, please fill in your phone 
                  number.</b> </font></div>
              </td>
            </tr>
            <% End If %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>Phone</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;text&quot; name=&quot;phone&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;phone&quot;)) %>&quot; size=&quot;15&quot;>
              </td>
            </tr>
            <% If Err8 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font color=&quot;#FF0000&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;><b>You 
                  requested us to contact you via fax, please fill in your fax 
                  number.</b></font></div>
              </td>
            </tr>
            <% End if %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>Fax</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;text&quot; name=&quot;fax&quot; <%=WriteOutline %> value=&quot;<% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then Response.Write(Request.Form(&quot;fax&quot;)) %>&quot; size=&quot;15&quot;>
              </td>
            </tr>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>*Contact 
                  me via:</font> </div>
              </td>
              <td width=&quot;58%&quot;> 
                <select name=&quot;contact&quot;>
                  <option value=&quot;1&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;contact&quot;) =&quot;1&quot; then Response.Write(&quot;Selected&quot;) %>>Mailing 
                  Address</option>
                  <option value=&quot;2&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;contact&quot;) =&quot;2&quot; then Response.Write(&quot;Selected&quot;) %>>Email</option>
                  <option value=&quot;3&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;contact&quot;) =&quot;3&quot; then Response.Write(&quot;Selected&quot;) %>>Phone</option>
                  <option value=&quot;4&quot; <% If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; and Request.Form(&quot;contact&quot;) =&quot;4&quot; then Response.Write(&quot;Selected&quot;) %>>Fax</option>
                </select>
              </td>
            </tr>
            <% If Err6 <> &quot;&quot; then %>
            <tr> 
              <td colspan=&quot;2&quot;> 
                <div align=&quot;center&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><b><font color=&quot;#FF0000&quot;>Please 
                  select something from the list.</font></b></font></div>
              </td>
            </tr>
            <% End if %>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>*Intrests:</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <%Set conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
conn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&quot; & Server.MapPath(&quot;database.mdb&quot;) & &quot;;&quot;
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)

mySQL = &quot;SELECT model_name, mID from specs&quot;



rs.Open mySQL, conn, 1, 1   'Opened as Read-Only
Response.Write &quot;<select name=&quot;&quot;int&quot;&quot;>&quot;	
Response.Write &quot;<option value=&quot; & Chr(34) & &quot;#&quot; & Chr(34) & &quot;>&quot; & &quot;Choose one...&quot; & &quot;</option>&quot;
Response.Write &quot;<option value=&quot; & Chr(34) & &quot;Company&quot; & Chr(34) & &quot;>&quot; & &quot;Company&quot; & &quot;</option>&quot;

Do while not rs.eof

If Request.QueryString(&quot;action&quot;) = &quot;verify&quot; then
	If Request.Form(&quot;int&quot;) = rs(&quot;model_name&quot;) & &quot;|&quot; & rs(&quot;mID&quot;) then
	  SelectedText = &quot; Selected&quot;
		 Else
	  SelectedText = &quot;&quot;
	End if
End if
		
		Response.Write &quot;<option value=&quot; & Chr(34) & rs(&quot;model_name&quot;) & &quot;|&quot; & rs(&quot;mID&quot;) & Chr(34) & SelectedText & &quot;>&quot; & rs(&quot;model_name&quot;) & &quot;</option>&quot;
		



rs.movenext
loop
Response.Write &quot;</select>&quot;
%>
                <input type=&quot;hidden&quot; name=&quot;thedate&quot; value=&quot;<% Dim strThisDate
  strThisDate = Split(FormatDateTime(Date,1),&quot;,&quot;,2)
 Response.Write(strThisDate(1))%>&quot;>
              </td>
            </tr>
            <tr> 
              <td width=&quot;42%&quot;> 
                <div align=&quot;right&quot;><font size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>Comments:</font></div>
              </td>
              <td width=&quot;58%&quot;> 
                <textarea name=&quot;comments&quot; cols=&quot;25&quot; rows=&quot;5&quot;></textarea>
              </td>
            </tr>
            <tr> 
              <td width=&quot;42%&quot;><img src=&quot;images/small/spacer.gif&quot; width=&quot;145&quot; height=&quot;9&quot;></td>
              <td width=&quot;58%&quot;> 
                <input type=&quot;submit&quot; name=&quot;Submit3&quot; value=&quot;Submit&quot;>
                <font color=&quot;#999999&quot; size=&quot;1&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>(*)Required 
                fields</font></td>
            </tr>
          </table>
        </form>
      </div>
    </td>
  </tr>
</table>
<p> 
  <% End Sub %>
</p>
<p> 
 

<%

'###########  THANK YOU PAGE
  
If Session(&quot;first_name&quot;) = &quot;&quot; then
  	Response.Redirect &quot;default.asp?&quot; & pgQ & &quot;=Info&quot;
  End if
  
  Dim first_name, last_name, StrInt, StrContact, ReqMid
  
  first_name = Session(&quot;first_name&quot;)
  last_name = Session(&quot;last_name&quot;)
  StrInt = Session(&quot;StrInt&quot;)
  StrContact = Session(&quot;contact&quot;)
  ReqMid = Session(&quot;ReqMid&quot;)
  
  Session.abandon
  
  
  %>
</p>
<p>
<table width=&quot;100%&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;>
  <tr> 
    <td bgcolor=&quot;#FFFFFF&quot;> 
      <table width=&quot;50%&quot; border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot; height=&quot;20&quot; align=&quot;center&quot;>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td bgcolor=&quot;#EEEEEE&quot;><b><font size=&quot;4&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;><img src=&quot;images/small/RightArrow.gif&quot; width=&quot;12&quot; height=&quot;10&quot;><font size=&quot;3&quot;>Thank 
            you <%= Capit(first_name) & &quot; &quot; & CapIt(last_name) %></font></font></b></td>
        </tr>
        <tr> 
          <td><font face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;><img src=&quot;images/small/spacer.gif&quot; width=&quot;12&quot; height=&quot;10&quot;></font></td>
        </tr>
        <tr> 
          <td><font face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;3&quot;><img src=&quot;images/small/spacer.gif&quot; width=&quot;12&quot; height=&quot;10&quot;>Thank 
            you for your intrest in our <i><%=StrInt%></i>, we are now processing your request, 
            <% If StrContact = &quot;1&quot; then %>
            and will mail the information out to you soon. 
            <% End if %>
            <% If StrContact = &quot;2&quot; then %>
            and will contact you by email soon. 
            <% End if %>
            <% If StrContact = &quot;3&quot; then %>
            and will contact you by phone soon. 
            <% End if %>
            <% If StrContact = &quot;4&quot; then %>
            and will contact you by fax soon. 
            <% End if %>
            </font></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td> 
            <% If ReqMid <> &quot;&quot; then%>
            <div align=&quot;center&quot;><font face=&quot;Verdana, Arial, Helvetica, sans-serif&quot; size=&quot;2&quot;>View 
              online information on the <a href=&quot;default.asp?view=Model&mID=<%=ReqMid%>&quot;><%=StrInt%></a></font></div>
            <%End If%>
          </td>
        </tr>
        <tr> 
          <td> 
            <div align=&quot;center&quot;></div>
          </td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>

jlgdeveloper · Jul 3, 2002

If it works for you, keep doing it. There are many ways to bring the user back and highlight what he has missed. I just find code to be neater when it is placed in "sub's" (split up into manageable reusable pieces) etc. Jonathan Galpin

http://www.keen.com/categories/categorylist_expand.asp?sid=5215353&gid=0&pmode=0

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

inserting into multiple tables

riffy

Programmer

Tarwn

Programmer

riffy

Programmer

jlgdeveloper

Programmer

snowboardr

Programmer

jlgdeveloper

Programmer

Similar threads

Part and Inventory Search

Sponsor