<% on error resume next Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ericsson","sa","" SQLstmt = "select * from customer where customerID=" & customerID Set RS = Conn.Execute(SQLStmt) eventID = RS("eventID") emploc = RS("emploc") fname = RS("fname") lname = RS("lname") customerID = RS("which") mname = RS("mname") mgrname = RS("mgrname") address1 = RS("address1") address2 = RS("address2") address3 = RS("address3") city = RS("city") state = RS("state") zipcode = RS("zipcode") offphone = RS("offphone") homephone = RS("homephone") faxphone = RS("faxphone") cellphone = RS("cellphone") email = RS("email") costcenter = RS("costcenter") cardnumber = RS("cardnumber") expdate = RS("expdate") cardname = RS("cardname") cardtype = RS("cardtype") company = RS("company") size = RS("size") handicap = RS("handicap") ambi = RS("ambi") custallow = RS("custallow") %> Here is the profile for the customer having ID # <%= customerID%>.
Listed below are the details relevant to the employee

Name :	<%= fname%>  <%= lname %>  <%= mname%>
Address:	<%= address1 %>  <%= address2 %>  <%= address3 %>
City:	<%= city %>
State, Zip:	<%= state %>  <%= zip %>
Employee Location:	<%= emploc %>
Manager Name:	<%= mgrname %>
Employee Cost Center #:	<%= costcenter %>
Credit Card Information
Credit Card Number:	<%= cardnumber %>
Expiry date:	<%= expdate %>
Card Name:	<%= cardname %>
Card Type:	<%= cardtype %>
Phones
Work Phone:	<%= offphone %>
Home Phone:	<%= homephone %>
Fax Number:	<%= faxphone %>
Cell Phone:	<%= cellphone %>