html mode

<% response.expires=-1 sql="SELECT * FROM CUSTOMERS WHERE CUSTOMERID=" sql=sql & "'" & request.querystring("q") & "'" set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/db/northwind.mdb")) set rs=Server.CreateObject("ADODB.recordset") rs.Open sql,conn response.write("")
do until rs.EOF
for each x in rs.Fields
response.write("
")
response.write("


")
next
rs.MoveNext
loop
response.write("

" & x.name & "

" & x.value & "

")
%>