<% db9 = Server.MapPath("news56.mdb") db8 = Server.MapPath("../news56.mdb") rubrik = "Articles" Kategori2 = "Categori" Rubrik2 = "Headline" Ingress2 = "Preamble" Text = "Text" Skribent = "Journalist" Skribent_info = "Every article needs to have a Journalist!!" Bild2 = "Picture" Bild_desc = "Picture should not be wider then 448px!" pic_info = "Picture description" antal_art = "Quantity of Articles" add = "Add new article" radera = "Delete" edit = "Edit" kategori_info = "EVERY Categori needs to have an add!" datum = "Date" back = "Back one step" admin = "Back to admin page" fotograf = "Photographer" %>

<% Response.Write rubrik %>

<% ' -- view.asp -- Response.Buffer = True Dim connectionString connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db9 ' ID of the file to retrieve Dim ID ID = Request("ID") If Len(ID) < 1 Then ID = 0 End If Dim rs2 Set rs2 = Server.CreateObject("ADODB.Recordset") ' opening connection ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "SELECT * FROM Files WHERE ID="& ID, connectionString, 3, 4 rs2.Open "SELECT * FROM Skribenter WHERE ID=" & rs("news_writer"), connectionString, 3, 4 If Not rs.EOF Then While Not rs.EOF Response.Write "" Response.Write "

Publicerat: " & rs("news_datetime") & "

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

" Response.Write "

" End IF IF rs("fotograf")&"" = "" Then 'om fotograf finns så Response.Write "" Else Response.Write "

" Response.Write "[Foto:" & rs("fotograf") & " ]" Response.Write "

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

" & rs("news_headline") & "

" & rs("kategori") & " " & rs("ingress") & "

" & rs("news_text") & "

" Response.Write "

" IF rs2("bild") = "" Then 'om en SKRIBENT bild saknas så visas en standard bild Response.Write "" Else Response.Write "

" End IF Response.Write "
" & rs2("namn") & "
" & rs2("email") & "

" %> <% Response.Write "

" Response.Write "

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

Back or Back to Admin page <%End If%>