<%
sql="select country from publishers where pub_id='9901'"
Set r = Server.CreateObject("ADODB.RecordSet")
r.Open sql, "data source=dentest;user id=sa;password=",2,3
While(NOT r.EOF)
Response.Write("")
Response.Write(r("Country"))
r.MoveNext
Response.Write("
")
Wend
r.close
%>