<%meny = "2"%>

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

Comment

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

"& rs_88("news_datetime") & "

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

" End IF Response.Write "

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

" Response.Write "

" & rs_88("news_headline") & "

" & rs_88("news_text") & "

From: " & rs_88("news_writer") & "

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