ciao sto creando un pagina in asp solo che mi da un errore strano

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'conn'
/nuovacartella/guestbook.asp, line 30

sapete spiegarmi come posso fare per rimediare a quest'errore?

vi posto il codice della pagina

<html>

<head>
<title>MIO GUESTBOOK</title>
</head>

<body>
<p align="center"><font size="4" face="Verdana">Messaggi_GuestBook</font></p>


<%
'NUMERO DI MESSAGGI PER PAGINA
iPageSize = 5

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If

'PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

SetConn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RS = Server.CreateObject("ADODB.Recordset")

'FA LA RICHESTA AL DATABASE
sql = "SELECT * FROM GuestBook_Messaggi ORDER BY " & strOrderBy & " DESC;"

RS.Open sql, conn.adOpenKeyset
RS.PageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

'NESSUN MESSAGGIO INSERITO -> VIENE VISUALIZZATO UN MESSAGGIO CHE INFORMA CHE NON E' PRESENTE
'NEMMENO UN MESSAGGIO NEL GUESTBOOK
If iPageCount = 0 Then
%><hr>
<p align="center"><font size="2" face="Verdana">Nessunmessaggio inserito nel guestbook!</font></p>
<hr>
<%
Else

RS.AbsolutePage = iPageCurrent
iRecordsShown = 0

' SE I MASSAGGI SONO PRESENTI NEL GUESTBOOK, LI MOSTRA

Do While eRecordsShown < iPageSize And Not RS.EOF%>
<hr>
<table border="0" cellpadding="0" cellspacing="0" width="64%">
<tr>
<td width="28%"><font face="Verdana" size="2">Titolo commento:</font></td>

<td width="72%"><font face="Verdana" size"2"><%RS("titolo")%></font></td>
</tr>
<tr>
<td width="28%"><font face="Verdana" size="2">Commento:</font></td>
<td width="72%"><font face="Verdana" size="2"><%=RS("messaggio")%></font></td>
</tr>
<tr>
<td width="28%"><font face="Verdana" size="2">Autore:</font></td>
<td width="72%"><font face="Verdana" size="2">"><%=RS("autore")%></font></td>
</tr>
<tr>

<td width="28%"><font face="Verdana" size="2">Data inserimento:</font></td>
<td width="72%"><font face="Verdana" size="2"><%=RS("data")%></font></td>
</tr>
</table>
<hr>

<%
' COMPLETA LA VISUALIZZAZIONE DEI MESSAGGI E CHIUDE LA CONNESSIONE
' AL DATABASE

iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
Conn.Close
%><center>
<%
'MOSTRA IL NUMERO DELLE PAGINE,
'DATO CHE VERRANO MOSTRATI
'IN QUESTO ESEMPIO 5 MESSAGGI PER PAGINA

For x=1 to iPageCount
%>
<font face="Verdana" size="2">[ <%=x%> ]</font>
<%
next
%>

<p align="center"><font size="2" face="Verdana">Inserisci messaggio</font></p>

</body>
</html>