Adgang til database

<%
Set MinCon = Server.CreateObject ("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

MinCon.Open "DBQ>=" & Server.MapPath("/www/hemsida/data/data:MDB" & ";Driver=(Microsoft Access Driver(*.mdb));")

SQL = "SELECT * FROM start"
Rs.Open SQL, MinCon
%>

<table border="0" cellspacing="0" width="100%">
    <tr>
        <td width="35%" valign="top"><img border="0" src="pictures/bild_start.jpg" width="232" height="422"></td>
        <td width="65%" valign="top"><input type="text" name="overskrift" size="42" value="<%=Rs("overskrift")%>"><br><br><%=Rs("text")%><br><br><input type="submit" value="Spara"></td>
    </tr>
</table>