Redigere og move
Et lille spørgsmål til de garvede:Jeg har lavet en asp side. Access-basen og filerne ligger på domænet i samme katalog. jeg har lagt filen ADOVbs.inc i samme katalog. Når jeg åbner asp-siden får jeg server-fejl. Programkoden har jeg fra side 215 i bogen Grundlæggende ASP.
Koden skulle kunne gøre at jeg kunne bevæge mig i tabellen og kunne redigere. Hvorfor virker det ikke ?
Koden:
<script TYPE LANGUAGE="VBScript" RUNAT="SERVER"></script>
<!--#Include File="AdoVbs.inc"-->
<html>
<head>
<title>Move metoder</title>
</head>
<body>
<%
Dim strDriver
Dim StrPlacering
Dim objCon
Dim objRec
StrDriver="{Microsoft Access Driver (*.mdb)}"
strPlacering=server.mappath("Sund.mdb")
set objCon = server.createobject("ADODB.connection")
set objRec=server.createObject("ADODB.recordset")
objCon.Open("DRIVER=" & strDriver & "; DBQ=" & strPlacering)
objRec.Open "sund", objCon, adOpenStatic, adLockReadonly, adCmdTable
response.write "Efter åbning ->" & objRec("Id") & " <-> " & objRec("Fornavn") & "<Br>"
objRec.move 3
response.write "Move 3 ->" & objRec("Id") & " <-> " & objRec("Fornavn") & "<Br>"
objRec.movePrevios
response.write "MovePrevios ->" & objRec("Id") & " <-> " & objRec("Fornavn") & "<Br>"
objRec.moveLast
response.write "MoveLast ->" & objRec("Id") & " <-> " & objRec("Fornavn") & "<Br>"
objRec.move -5
response.write "Move -5 ->" & objRec("Id") & " <-> " & objRec("Fornavn") & "<Br>"
objRec.moveFirst
response.write "MoveFirst ->" & objRec("Id") & " <-> " & objRec("Fornavn") & "<Br>"
objRec.close
Set objRec = Nothing
objCon.close
Set objCon = Nothing
%>
</body>
</html>
