<%
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"
' -- view.asp --
Response.Buffer = True
Dim connectionString
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db8
' 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 Skribenter WHERE ID="& ID, connectionString, 3, 4
If Not rs.EOF Then
While Not rs.EOF
%>
<% Response.Write rubrik_skribenter %>
<%
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>