<%@ LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<%Response.Buffer = True%>
<%
Set objConn = Server.CreateObject ("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
objConn.Open strconnect
objRec.Open "cats", objConn, adOpenForwardOnly, adLockReadOnly, adCmdTable
objRec2.Open "links", objConn, adOpenStatic, adLockReadOnly, adCmdTable
%>
<%=LSTitle%>
<%Response.Write LSPageBody1%>
<%=PrintCredit%>
<%
'Tidy up
objRec.Close
objRec2.Close
objConn.Close
Set objRec = Nothing
Set objRec2 = Nothing
Set objConn = Nothing
%>