<%@ Language=VBScript %> <%option explicit Response.Buffer = true dim msg dim preselveh 'preselected vehicle from carsearch msg = Request.QueryString("msg") preselveh = Request.QueryString("vehicle")%>

Email address : Tel : +27 11 792 5300 Fax : +27 11 792 3930 Postal address : P.O.Box 552, Ferndale, 2160. South Africa Street address : 17 Samantha Street, Strydom Park, Randburg, Gauteng. Republic of South Africa <% if msg <> "" then%> <% end if%> <%=msg%>   Enquiry Form (* = Required) Company Name *: Your Name *: Telephone: Email Address *: Vehicle *: <% dim rsVehicles dim cmd itnt.databasename = "alpine" set conn = itnt.openconn set cmd = CreateObject("adodb.command") set cmd.ActiveConnection = conn cmd.CommandType = adCmdStoredProc cmd.CommandText = "u_get_vehicle_list" set rsVehicles = cmd.execute%> <--Select a Vehicle--><% do until rsVehicles.eof Response.Write " " & rsVehicles("vehicle") & "" & vbCrLf rsVehicles.movenext loop rsVehicles.close set rsVehicles = nothing killconn2 destroy%> Comments: