%@LANGUAGE="VBSCRIPT"%> <% Dim rsBatPwrInv__MMColParam rsBatPwrInv__MMColParam = "0" if(Request.QueryString("Model") <> "") then rsBatPwrInv__MMColParam = Request.QueryString("Model") %> <% set rsBatPwrInv = Server.CreateObject("ADODB.Recordset") rsBatPwrInv.ActiveConnection = "dsn=TelonicInstruments;" rsBatPwrInv.Source = "SELECT * FROM ti01 WHERE Model = '" + Replace(rsBatPwrInv__MMColParam, "'", "''") + "'" rsBatPwrInv.CursorType = 0 rsBatPwrInv.CursorLocation = 2 rsBatPwrInv.LockType = 3 rsBatPwrInv.Open rsBatPwrInv_numRows = 0 %>