%@LANGUAGE="VBSCRIPT"%> <% Dim index__MMColParam index__MMColParam = "1" If (Request.QueryString("wolf") <> "") Then index__MMColParam = Request.QueryString("wolf") End If %> <% Dim index Dim index_numRows Set index = Server.CreateObject("ADODB.Recordset") index.ActiveConnection = MM_wolf_STRING index.Source = "SELECT * FROM wolf WHERE wolf = " + Replace(index__MMColParam, "'", "''") + " ORDER BY wolf ASC" index.CursorType = 0 index.CursorLocation = 2 index.LockType = 1 index.Open() index_numRows = 0 %>
<% index.Close() Set index = Nothing %>