%@LANGUAGE="VBSCRIPT"%>
<%
Dim BEVCOMM2004__MMColParam
BEVCOMM2004__MMColParam = "81"
If (Request("MM_EmptyValue") <> "") Then
BEVCOMM2004__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim BEVCOMM2004
Dim BEVCOMM2004_numRows
Set BEVCOMM2004 = Server.CreateObject("ADODB.Recordset")
BEVCOMM2004.ActiveConnection = MM_BEVCOMM2004_STRING
BEVCOMM2004.Source = "SELECT * FROM WebContent WHERE CMS_ID = " + Replace(BEVCOMM2004__MMColParam, "'", "''") + ""
BEVCOMM2004.CursorType = 0
BEVCOMM2004.CursorLocation = 2
BEVCOMM2004.LockType = 1
BEVCOMM2004.Open()
BEVCOMM2004_numRows = 0
%>
BEVCOMM04_3
...your
connection to the future