<% ' -- view.asp -- Response.Buffer = True Dim connectionString connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("news99.mdb") ' ID of the file to retrieve Dim ID ID = Request("ID") If Len(ID) < 1 Then ID = 0 End If %>

View Comment

<% ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "SELECT * FROM Files WHERE ID="& ID, connectionString, 3, 4 If Not rs.EOF Then While Not rs.EOF Response.Write "

"& rs("news_datetime") & "

" IF rs("File Name") = "" Then 'om en bild saknas så visas en standard bild Response.Write "" Else Response.Write "

" End IF Response.Write "
" & rs("File Desc") & "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "

" & rs("news_headline") & "

" & rs("news_text") & "

From: " & rs("news_writer") & "

" rs.MoveNext Wend Else Response.Write "No Record Found" End If rs.Close Set rs = Nothing %>

Back to Sent Comments or Back to admin start page <%End If%>