<%@ Language=VBScript %> <% dim theParam 'QueryString for Get and Request.Form for Post theParam = Request.QueryString("param") Set connection = Server.CreateObject("ADODB.Connection") connection.Open "ADOSamples" strSql= "select * from Customers " & _ "where (CustomerID= " &_ theParam &_ ")" Set recordset = connection.Execute (strSql) Response.Write(theParam) While Not recordset.EOF Response.Write(Recordset("CompanyName") & " ") Response.Write(Recordset("PhoneNumber") & "
") recordset.MoveNext Wend %>