<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsDetail__MMColParam
rsDetail__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rsDetail__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim rsDetail
Dim rsDetail_numRows
Set rsDetail = Server.CreateObject("ADODB.Recordset")
rsDetail.ActiveConnection = MM_ConUpload_STRING
rsDetail.Source = "SELECT * FROM album WHERE ID = " + Replace(rsDetail__MMColParam, "'", "''") + ""
rsDetail.CursorType = 0
rsDetail.CursorLocation = 2
rsDetail.LockType = 1
rsDetail.Open()
rsDetail_numRows = 0
%>
Double Click to Close Window