Jeg forsøger at opdatere en Access database vha. asp-kode i Front

Du skal bruge adOpenDynamic i stedet for adOpenStatic

Det lader desværre heller ikke til at virke...

objRec.open "Hestedata",....

Det er vel en tabel eller en forespørgsel du prøver
at åbne som et recordset ??

Ja, jeg prøver at åbne en tabel i access, det kan måske ikke åbnes vha. et recordset???

Jo du kan sagtens åbne en tabel ved hjælp af et recordset
og når det er gjort så tilføje/ændre/slette poster.
Vil du vise linierne fra start og indtil linie 86 ??

Ja, selvgølgelig
<%
    'denne funktion sikre at man er logget korrekt på for at få adgang.
    if session.contents("login")<> 1 then
        response.redirect "login.asp"
    end if
   
%>

<html>

<head>
<!-- #include file="RecToTable.asp" -->
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>

<body>

<%
If Request.Form ("Skjult") <> "" Then

    Dim soegestreng, cn, rs, strDSN, strSQL
    Soegestreng=Request.Form("Soegenavn")
    'Her oprettes et Connection- og Recordset object
    Set cn = Server.CreateObject ("ADODB.Connection")
    Set rs = Server.CreateObject ("ADODB.Recordset")
   
    'Her oprettes forbindelse til databasen
    strDSN = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\database\Hestedata.mdb"
    cn.open strDSN
   
    If Request.Form("Skjult") = "soegning" Then
    soegestreng = Request.Form("T1")
    strSQL = "SELECT * FROM hestedata WHERE navn LIKE '%"&Soegestreng&"%'"
    Else
    strSQL = "SELECT * FROM hestedata"
    End If
rs.open    strSQL,    cn
Response.write RecToTable(rs)   
Else
%><font face="Arial Black" size="2">Velkommen til Øresundskystens Rideskole, på
denne side har du mulighed for at søge på enkelte heste, eller få vist data for
samtlige heste.</font><p><font face="Arial Black" size="2">God fornøjelse!!</font></p>

<p><font face="Arial Black" size="2">Indtast søgeord:</font></p>
<form method="POST" action="forside.asp">


<p><input type="text" name="T1" size="20"><input type="submit" value="Start søgning" name="B1"><input type="hidden" name="Skjult" size="20" value="soegning"></p>
<p>&nbsp;</p>
</form>

<form method="POST" action="forside.asp">
   
   
<p><input type="submit" value="Vis data for alle heste" name="B2"><input type="hidden" name="Skjult" size="20" value="vis_tabel"></p>
</form>
<p>&nbsp;</p>
<table border="1" width="100%" id="table1">

</table>
<%End if%>

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>På denne side har du mulighed fo</title>
</head>

<body>



<%   
    'Her oprettes et Connection- og Recordset object
    Dim strDriver, StrPlacering,objCon,objRec
    strDriver="{Microsoft Access Driver (*.mbd)}"
    strPlacering="c:\inetpub\wwwroot\database\Hestedata.mdb"
    set objCon = server.createobject ("ADODB.connection")
    objCon.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strPlacering
   
    set objRec=server.createObject("adodb.recordset")
    objRec.open "Hestedata", objCon, adOpenStatic, adLockOptimistic, adCmdTable
   
    objRec.AddNew
    obj.Rec("navn")="T1"
    obj.Rec("Box nummer")="T2"
    obj.Rec("Kost")="T3"
    obj.Rec.update
    obj.Rec.close
    Set objRec = Nothing
    objCon.close
    set objCon = Nothing
%>