<% 'Databasen, utgår i från att den heter databas file = Server.MapPath("db/databas.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 tabell Where id=" & Request.QueryString("id") RecSet.Open SQL, Connect, adOpenStatic %>
<%=RecSet("rubrik")%>
<% =Replace(RecSet("info"),vbCrlf,"
") %>

Återförsäljare och montering av Flexiteek Stockholm

E-Post: info@flexiteek.nu