<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsCommercials__MMColParam
rsCommercials__MMColParam = "1"
If (Request.QueryString("videoCat") <> "") Then
rsCommercials__MMColParam = Request.QueryString("videoCat")
End If
%>
<%
Dim rsCommercials
Dim rsCommercials_numRows
Set rsCommercials = Server.CreateObject("ADODB.Recordset")
rsCommercials.ActiveConnection = MM_connDenkin_STRING
rsCommercials.Source = "SELECT videoCode, videoCat FROM video WHERE videoCat = '" + Replace(rsCommercials__MMColParam, "'", "''") + "'"
rsCommercials.CursorType = 0
rsCommercials.CursorLocation = 2
rsCommercials.LockType = 1
rsCommercials.Open()
rsCommercials_numRows = 0
%>
Todd Denkin : Production Services
<%
rsCommercials.Close()
Set rsCommercials = Nothing
%>
