|
|
<%
Dim objConn2
Dim objRs
Dim strSQL2
Set objConn2 = Server.CreateObject ("ADODB.Connection")
Set objRs = Server.CreateObject ("ADODB.Recordset")
objConn2.Open strConnect
strSQL2 = "SELECT title, web, description FROM tblanxietysigtrials ORDER BY title;"
objRs.Open strSQL2, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
If objRs.EOF Then
Response.Write "
No Records Match Your Search Criteria "
Else
while not objrs.eof
response.write ""
response.write " "
response.write objrs.fields("title") & ""
response.write " | "
response.write objrs.fields("description")
response.write "
| "
objrs.movenext
wend
response.write " |
