|
<%
dim rs
set rs = Server.CreateObject("Adodb.RecordSet")
rs.open "businessTable",conn
rs.Filter = "businessId = " & request("business")
if not rs.eof then
response.Write("business Name: ")
response.Write(rs("businessName"))
response.Write(" ") response.Write("Business Cost: ") response.Write(rs("Cost")) response.Write(" ") response.Write("Description: ") response.Write(rs("description")) response.Write(" ") end if 'response.Write(sqlstr) %> |
| |
<%' | Close %> |