%@LANGUAGE="VBSCRIPT"%> <% Dim rsReview__MMColParam rsReview__MMColParam = "1" If (Request.QueryString("ReviewID") <> "") Then rsReview__MMColParam = Request.QueryString("ReviewID") End If %> <% Dim rsReview Dim rsReview_numRows Set rsReview = Server.CreateObject("ADODB.Recordset") rsReview.ActiveConnection = MM_ConPhilRoy_STRING rsReview.Source = "SELECT * FROM tblReview WHERE ReviewID = " + Replace(rsReview__MMColParam, "'", "''") + "" rsReview.CursorType = 0 rsReview.CursorLocation = 2 rsReview.LockType = 3 rsReview.Open() rsReview_numRows = 0 %>