Database Connection.
Jeg har skrevet denne db-connection, den virker fint. Men jeg har tilføjet linien denne' Skriver sted
Response.Write "<p><b>" & rs("Sted") & " - </b> ", og så får jeg fejl i linjen. Den vil ikke vise STED.
Hvad gør jeg. ??
Koden ser ud som nedenstående.
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../db/kalender.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from April Order By Dato"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Skriver dato
Response.Write "<p><b>" & rs("Dato") & " - </b> "
' Skriver beskrivelse af begivenhed
Response.Write rs("Beskrivelse") & "</p>"
' Gå til næste Record i rs
rs.MoveNext
' Skriver sted
Response.Write "<p><b>" & rs("Sted") & " - </b> "
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>