<% '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")%>

 

Sunhees Jakita " Selma"

 

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

 

 

 

 
 

Kennel Willow Star´s, kapellgatan 24 , 93531 Norsjö

Mobiltel: 070-3955271 E-Post: asa@norsjo.net