<%@ LANGUAGE="VBSCRIPT" %> <% if Session("username") = "" then Response.Redirect("/logon.asp") end if %> <%id=request.Form("custid")%> <%busname=request.Form("T1") if busname="" then busname=" " end if %> <%firstname=request.Form("T2") if firstname="" then firstname=" " end if %> <%lastname=request.Form("T3") if lastname="" then lastname=" " end if %> <%title=request.Form("T4") if title="" then title=" " end if %> <%position=request.Form("T5") if position="" then position=" " end if %> <%accman=request.Form("T6") if accman="" then accman=" " end if %> <%add1=request.Form("T8") if add1="" then add1=" " end if %> <%add2=request.Form("T9") if add2="" then add2=" " end if %> <%city=request.Form("T10") if city="" then city=" " end if %> <%region=request.Form("T11") if region="" then region=" " end if %> <%country=request.Form("T12") if country="" then country=" " end if %> <%postal=request.Form("T13") if postal="" then postal=" " end if %> <%phone=request.Form("T14") if phone="" then phone=" " end if %> <%fax=request.Form("T15") if fax="" then fax=" " end if %> <%sql="INSERT INTO Customer ([Customer ID],[Customer Name],[Contact First Name],[Contact Last Name],[Contact Title],[Contact Position],[Account Manager],Address1,Address2,City,Region,Country,[Postal Code],Phone,Fax) VALUES('"+id+"','"+busname+"','" +firstname+ "','" +lastname+ "','" +title+ "','" +position+ "','" +accman+ "','" +add1+ "','" +add2+ "','" +city+ "','" +region+ "','" +country+ "','" +postal+ "','" +phone+ "','" +fax+ "')"%> <%Set Conn = Server.CreateObject("ADODB.Connection")%> <% Conn.Open "Xtreme sample data"%> <%Set RS = Conn.Execute(sql) %>

Customer id	<%response.write(request.Form("custid"))%>
Business Name	<%response.write(request.Form("T1"))%>
Contact First Name	<%response.write(request.Form("T2"))%>
Contact Last Name	<%response.write(request.Form("T3"))%>
Account Manager	<%response.write(request.Form("T6"))%>
Address Line 1	<%response.write(request.Form("T8"))%>
Address Line 2	<%response.write(request.Form("T9"))%>
City	<%response.write(request.Form("T10"))%>
Region	<%response.write(request.Form("T11"))%>
Country	<%response.write(request.Form("T12"))%>
Phone	<%response.write(request.Form("T14"))%>
Fax	<%response.write(request.Form("T15"))%>