<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "classifiedDSN"
Sql = " SELECT name, address, citystate, phone, contname, email, link FROM ads Where catnum=9"
Set rst = Conn.Execute(Sql)
If rst.EOF Then
Response.Write "No Classified Ads Available"
Conn.Close
Set Conn=Nothing
Response.End
End If
%>
Doctor's Entries
<%Do While Not rst.EOF%>
 <%=rst("name")%>
<%=rst("address")%>
<%=rst("citystate")%>
<%=rst("phone")%>
"><%=rst("link")%>
<%=rst("contname")%>
<%rst.MoveNext
Loop
Conn.close
Set rst = Nothing
%>
|
