fejl meddelelsen er conn. variablen er ikke defineret
connect.asp
----------
<%
Response.Buffer = True
mode = Request.QueryString("mode")
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("gbog.mdb")
%>
-------
gbog.asp
------------
<% OPTION EXPLICIT %>
<!-- #include file="connect.asp" -->
<html><head><title>Gæstebog</title><head><body
<%
dim strAction
strAction=request("action")
select case strAction
case "write"
'vis formular til indtastning
ShowOptions
ShowForm
case "show"
'vis indhold
ShowOptions
ShowList request("fromid")
case "insert"
'indsæt resultat af formuler
WriteForm
ShowOptions
ShowList 0
case else
'vis valgmuligheder
ShowOptions
end select
'---------------------------------------------
'funktioner
'---------------------------------------------
sub ShowForm
%>
<form action="guestbook.asp?action=insert" method="post">
Navn: <input type="text" name="guestname" size="20"><br>
Email: <input type="text" name="guestemail" size="20"><br>
<textarea anme="guestmessage" rows="1" cols="20"> </textarea><br>
<input type="submit" value="indsend">
<%
end sub
sub ShowList (intformID)
'viser indlæg i gæstebogen
'10 indlæg vises ad gangen
dim strSQL, objRS, strWhere
dim arrRows,i
if intFromID > 0 then
strWhere = " WHERE guestid <= " & intFromID & " "
else
str = ""
end if
strSQL = " SELECT guestid, guestname, " & _
"guestemail, guestmassage FROM GuestBook " & _
strWhere & _
"ORDER BY datesubmitted DESC"
Set objRS = server.creatobject("ADODB.Recordset")
with objRS
.open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
if not .EOF then
arrRows = .GetRows(10)
end if
.close
end with
set objRS = Nothing
if isArray(arrRows) then
intFormID = arrRows(0,ubound(arrRows,2))
for i = o to ubound(arrRows,2)
response.write arrRows(0,i) & ". " & _
arrRows(1,i) & _
"<br>" & arrRows(2,i) & _
"<br>" & arrRows(3,o) & "<hr>"
next
response.write _
"<a href='guesbokk.asp?action=show&formid= " & intFormID+10 & "'>Tilbage</a> " & _
"<a href='guesbokk.asp?action=show&formid= " & intFormID - 1 & "'>Frem</a>"
else
response.write "<p>ikke flere indlæg i gæstebogen.</p>"
end if
end sub
sub WriteForm
' indlægget skrives til databasen.
dim strSQL, objCMD
srtSQL = "INSERT INTO GuestBook " & _
"(guestname, guestemail, guestmessage, datesubmitted) " & _
"VALUES (" & _
"'" & request("guestname") & "', " & _
"'" & request("guestemail") & "', " & _
"'" & request("guestmessage") & "', " & _
"getdate() " & _
")"
set objCMD = server.createobject("ADODB.Command")
with objCMD
.ActiveConnection = strConnect
.CommandType = adCmdText
.CommandText = strSQL
.execute
end with
set cbjCMD = Nothing
end sub
sub showOptions
'Vises, hvilket muligheder der er .
%>
<h1>Gæstebog</h1>
<p>Hej du kan skrive i min gæstebog, hvis du har lyst.
<br>
<a href="guestbook.asp?action=write">Skriv i gæstebog</a><br>
<a href="guestbook.asp?action=show">Se hvad andre har skrevet</a>
</p>
<%
end sub
%>
</body></html>