<%
' -- view.asp --
Response.Buffer = True
Dim connectionString
connectionString = db9
' ID of the file to retrieve
Dim ID
ID = Request("ID")
If Len(ID) < 1 Then
ID = 0
End If
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "SELECT * FROM media WHERE ID="& ID, connectionString, 3, 4
If Not rs.EOF Then
While Not rs.EOF
%>
<% Response.Write rubrik %>
<%
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>