<% 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" Delete = "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.Buffer = True Dim connectionString connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db8 %>

<% Response.Write rubrik_skribenter %>

<% ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "select * From skribenter order by news_datetime DESC, [namn], ID DESC", connectionString, 3, 4 If Not rs.EOF Then Response.Write ("Journalists: " & rs.RecordCount & "    Add a new journalist.   

") Response.Write ("") Response.Write ("") While Not rs.EOF Response.Write ("" & "" & "") Response.Write "" rs.MoveNext Wend Response.Write ("
Temporary:Name:Email:Picture:
[Delete][Change]" & rs("news_datetime") & "" & rs("namn") & "" & rs("Email") & "" & rs("bild") & "

") Else Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("
Antalet Skribenter: 0
 
Lägg till en ny
 
Rubrik:

No Records Found

") End If rs.Close Set rs = Nothing %>

<% Response.Write admin %> <% End If%>