Jeg skal vise en database (database.mdb) på hjemmesiden via en tabell.
Jeg lastet ned noe fra nettet som ser ut til å fungere fint. Jeg bruker
Personal Web Server. Når
jeg åpner siden for seg selv virker det helt fint, men når jeg tar
<!-- #INCLUDE file="showrecord.asp" --> (skrev det i default.asp i samme
directory)
får jeg feilmeldingen:
Microsoft VBScript-kjøretidsfeil feil 800a01f4
Variabelen er udefinert.: 'rs'
/haja/showrecord.asp, linje 6
Jeg skjønner ikke helt dette. Det burde jo virke. Fint om noen jkan hjelpe
meg. Jeg har 'pastet' inn showrecord.asp og show.asp:
Her er showrecord.asp:
<html><head>
<title>Simple Recordset Looping</title>
</head><body>
<%
'Creating the Recordset Object
Set rs = Server.CreateObject("ADODB.RecordSet")
'Creating your SQL Resuest as a string
strSQL = "SELECT * FROM Links"
'Creating a DSN-Less connection to your Database
strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("database.mdb")
'Open your recordset
rs.Open strSQL, strDSN, 1
'Looping through your recordset
Do While Not rs.EOF
'Displaying Contents from Your database
Response.Write "<a href='show.asp?ID=" & rs("ID") & "'>Info</a> - <a href='"
& rs("URL") & "'>" & rs("URL") & "</a><br><br>"
'Move to next Record
rs.MoveNext
' Looping through our Recordset
Loop
'Finished - Time to close the Recordset and the Connection to the Database
rs.Close
Set rs = Nothing
%>
</body></html>
Her er show.asp
<!-- #include file="ADOVBS.inc" -->
<%
Dim rs
Dim ID, LinkDescription, URL, AddBy, Email, AddDate
'Creating the Recordset Object
Set rs = Server.CreateObject("ADODB.RecordSet")
'Creating a DSN-Less connection to your Database
strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs.Open "Links", strDSN, adOpenDynamic, adLockReadOnly, adCmdTable
rs.find "ID=" & request.querystring("ID")
myID = rs("ID")
LinkDescription = rs("LinkDescription")
URL = rs("URL")
AddBy = rs("Addby")
Email = rs("Email")
AddDate = rs("AddDate")
rs.close
set rs = Nothing
%>
<HTML>
<HEAD>
<TITLE>Edit Info</TITLE>
<META NAME="Generator" CONTENT="Stone's WebWriter 2">
</HEAD>
<BODY>
Information About : <%=URL%><BR><BR><BR>
<TABLE Border=1>
<TR><TD>URL:</TD><TD><%=URL%></TD></TR>
<TR><TD>LinkDescription:</TD><TD><%=LinkDescription%></TD></TR>
<TR><TD>Added by:</TD><TD><%=AddBy%></TD></TR>
<TR><TD>Email</TD><TD><%=Email%></TD></TR>
<TR><TD>Add Date:</TD><TD><%=AddDate%></TD></TR>
</TABLE>
</BODY>
</HTML>
Vennlig hilsen
Hans Kristian Aas