<% Dim sCountry, sState, selCountry, txtState, txtFName, txtLName, txtEmail, txtCity, txtAddress1, txtAddress2, txtZip, goFrm, sSQL, sProcessed Dim sInserted sInserted = "NO" selCountry = Request.Form("country") txtFName = Request.Form("txtFirstName") txtLName = Request.Form("txtLastName") txtEmail = Request.Form("txtEmail") txtCity = Request.Form("txtCity") txtState = Request.Form("txtState") txtAddress1 = Request.Form("txtAddress1") txtAddress2 = Request.Form("txtAddress2") txtZip = Request.Form("txtZip") goFrm = Request.Form("goFrm") sProcessed = false If goFrm = "Submit" Then InsertCustomer selCountry = "" txtFName = "" txtLName = "" txtEmail = "" txtCity = "" txtState = "" txtAddress1 = "" txtAddress2 = "" txtZip = "" sProcessed = true End If If selCountry = "" then selCountry = "USA" End If SetCountry SetState Sub InsertCustomer() Set cnTip = Server.CreateObject( "ADODB.Connection" ) cnTip.Open getDBString() sSQL = "" sSQL = "INSERT INTO Customer ( FirstName, LastName, Email, Contry, State, City, Address1, Address2, Zip, SiteId ) VALUES ('" & Replace(txtFName,"'","''") & "', '" & _ Replace(Trim(txtLName),"'","") & "', '" & Trim(txtEmail) & "', '" & selCountry & "', '" & Trim(txtState) & "', '" & _ Replace(Trim(txtCity),"'","''") & "', '" & Replace(Trim(txtAddress1),"'","''") & "', '" & Replace(Trim(txtAddress2),"'","''") & _ "', '" & trim(txtZip) & "',3)" & vbCrLf cnTip.Execute(sSQL) cnTip.Close Set rsTip = Nothing Set sSql = Nothing Set cnTip = Nothing sInserted="YES" End Sub %>

<%End If%> <%Else%> <%If sInserted="NO" THEN %> First Name Last Name Email Address Address City Zip State or Province Alaska Alabama Arkansas Arizona California Colorado Connecticut D.C. Delaware Florida Georgia Hawaii Iowa Idaho Illinois Indiana Kansas Kentucky Louisiana Massachusetts Maryland Maine Michigan Minnesota Missouri Mississippi Montana North Carolina North Dakota Nebraska New Hampshire New Jersey New Mexico Not Applicable Nevada New York Ohio Oklahoma Oregon Pennsylvania Rhode Island South Carolina South Dakota Tennessee Texas Utah Virginia Vermont Washington Wisconsin West Virginia Wyoming Country : Afghanistan Albania Algeria American Samoa Andorra Angola Anguilla Antarctica Antigua And Barbuda Argentina Armenia Aruba Australia Austria Azerbaijan Bahamas Bahrain Bangladesh Barbados Belarus Belgium Belize Benin Bermuda Bhutan Bolivia Bosnia And Herzegovina Botswana Bouvet Island Brazil British Indian Ocean Territory Brunei Darussalam Bulgaria Burkina Faso Burundi Cambodia Cameroon Canada Cape Verde Cayman Islands Central African Republic Chad Chile China Christmas Island Cocos (Keeling) Islands Colombia Comoros Congo Cook Islands Costa Rica Cote D'Ivoire Croatia (Local Name: Hrvatska) Cuba Cyprus Czech Republic Denmark Djibouti Dominica Dominican Republic East Timor Ecuador Egypt El Salvador Equatorial Guinea Eritrea Estonia Ethiopia Falkland Islands (Malvinas) Faroe Islands Fiji Finland France France, Metropolitan French Guiana French Polynesia French Southern Territories Gabon Gambia Georgia Germany Ghana Gibraltar Greece Greenland Grenada Guadeloupe Guam Guatemala Guinea Guinea-Bissau Guyana Haiti Heard Island & Mcdonald Islands Honduras Hong Kong Hungary Iceland India Indonesia Iran, Islamic Republic Of Iraq Ireland Israel Italy Jamaica Japan Jordan Kazakhstan Kenya Kiribati Korea, Democratic People's Republic Of Korea, Republic Of Kuwait Kyrgyzstan Lao People's Democratic Republic Latvia Lebanon Lesotho Liberia Libyan Arab Jamahiriya Liechtenstein Lithuania Luxembourg Macau Madagascar Malawi Malaysia Maldives Mali Malta Marshall Islands Martinique Mauritania Mauritius Mayotte Mexico Micronesia, Federated States Of Moldova, Republic Of Monaco Mongolia Montserrat Morocco Mozambique Myanmar Namibia Nauru Nepal Netherlands Netherlands Antilles New Caledonia New Zealand Nicaragua Niger Nigeria Niue Norfolk Island Northern Mariana Islands Norway Oman Pakistan Palau Panama Papua New Guinea Paraguay Peru Philippines Pitcairn Poland Portugal Puerto Rico Qatar Reunion Romania Russian Federation Rwanda Saint Helena Saint Kitts And Nevis Saint Lucia Saint Pierre And Miquelon Saint Vincent And The Grenadines Samoa San Marino Sao Tome And Principe Saudi Arabia Senegal Seychelles Sierra Leone Singapore Slovakia (Slovak Republic) Slovenia Solomon Islands Somalia South Africa Spain Sri Lanka Sudan Suriname Svalbard And Jan Mayen Islands Swaziland Sweden Switzerland Syrian Arab Republic Taiwan, Province Of China Tajikistan Tanzania, United Republic Of Thailand Togo Tokelau Tonga Trinidad And Tobago Tunisia Turkey Turkmenistan Turks And Caicos Islands Tuvalu Uganda Ukraine United Arab Emirates United Kingdom United States United States Minor Outlying Islands Uruguay Uzbekistan Vanuatu Vatican City State (Holy See) Venezuela Viet Nam Virgin Islands (British) Virgin Islands (U.S.) Wallis And Futuna Islands Western Sahara Yemen Yugoslavia Zaire Zambia Zimbabwe Thank you for the FREECD order. Your order will be processed in 3 - 5 working days.