<% 'Databasen, utgår i från att den heter databas file = Server.MapPath("db/nyheter.mdb") 'Öppnar databasen Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file 'Öppnar tabellen tabell Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "Select * From nyheter " & Request.QueryString("id") RecSet.Open SQL, Connect, adOpenStatic %>

<%=RecSet("rubrik")%>

 

 

<% =Replace(RecSet("nyhet"),vbCrlf,"
") %>

 

 

 

 

 

 

 

 

 

 
 

Återförsäljare och montering av Flexiteek Stockholm

E-Post: info@flexiteek.nu