Vad är det för fel på nedanstående kod ? Det vill sig inte.

(Koden är sparad i en fil som heter Default.asp. Databasen heter dbKamrat.mdb med en tabell som heter Kamrater. Tabellen Kamrater har kolumnerna Namn, Gatuadress, Postnummer, Ort samt Telefon.)


<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virutal="/adovbs.inc"-->
<%

Dim objConn
Set objConn = Server.CreateObject("ADODB.connection")
objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" &_
"DBQ=C:\MGK-Web\kamtest\dbKamrat.mdb"
objConn.Open

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "Kamrater", objConn,,, adCmdTable

Do While Not objRS.EOF
Response.Write "<B>" & objRS("Namn") & "</B><BR>"
Response.Write objRS("Gatuadress") & "<BR>"
Response.Write objRS("Postnummer") & " " & objRS("Ort") & "<BR>"
Response.Write objRS("Telefon") & "<P><HR><P>"
objRS.MOveNext
Loop

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

%>

Vad får du för felmedelande?

Erhåller felmeddelande 500.

Koden fungerar på min arbetsmaskin men inte på servern.

Hej

Testa att stänga av visa vänliga felmeddelenande i explorer så ser du det rätta felet.

/Anna-Karin

Har hittat felet:

Fel filsäkerhet på mappen där databasen ligger.