<%
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=" & Server.MapPath("news56.mdb")
' 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")
Dim rs2
Set rs2 = Server.CreateObject("ADODB.Recordset")
Dim rs3
Set rs3 = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "SELECT * FROM Files WHERE ID="& ID, connectionString, 3, 4
rs2.Open "SELECT * FROM Skribenter order by news_datetime DESC, [namn], ID DESC", connectionString, 3, 4
rs3.Open "SELECT * FROM Skribenter WHERE ID=" & rs("news_writer"), connectionString, 3, 4
If Not rs.EOF Then
While Not rs.EOF
%>