<%@LANGUAGE="VBSCRIPT"%> <% Dim medStory__MMColParam medStory__MMColParam = "8" If (Request.QueryString("MediaID") <> "") Then medStory__MMColParam = Request.QueryString("MediaID") End If %> <% Dim medStory Dim medStory_cmd Dim medStory_numRows Set medStory_cmd = Server.CreateObject ("ADODB.Command") medStory_cmd.ActiveConnection = MM_WPA_STRING medStory_cmd.CommandText = "SELECT * FROM MultiMedia WHERE MediaID = ?" medStory_cmd.Prepared = true medStory_cmd.Parameters.Append medStory_cmd.CreateParameter("param1", 5, 1, -1, medStory__MMColParam) ' adDouble Set medStory = medStory_cmd.Execute medStory_numRows = 0 %>

		<%=(medStory.Fields.Item("title").Value)%>
" width="800" height="597">

<% medStory.Close() Set medStory = Nothing %>