<%@ 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 %>