Errore '800a01a8'

[Ivan90]

Salve ragazzi... ho un problema sicuramente risolvibile al 110%.... Praticamente ho un guestbook, ma nel momento in cui cerco di riempire tutti i campi messi a disposizione per firmare il guestbook.. mi esce questo errore..



Microsoft VBScript runtime error '800a01a8'

Object required: ''

/ivanissimo/guestbook/inserisci-process.asp, line 66



La pagina in questione eccola...

<%
' ************ Pagina di inserimento dati nel Guestbook ************

' Riconosce i campi della form
nome = Trim(Request.form("nome"))
email = Trim(Request.form("email"))
citta = Trim(Request.form("citta"))
messaggio = Trim(Request.form("messaggio"))
messaggio = Replace(messaggio , vbcrlf , "
")

if len(nome) = 0 or len(email) = 0 or len(citta) = 0 or len(messaggio) = 0 then
%>

<table border="1" cellpadding="0" cellspacing="0" width="70%" height="70%" align="center">
<tr>
<td align="center">ATTENZIONE !!!</td>
</tr>
<tr>
<td align="center">

<table border="0" cellpadding="2" cellspacing="2" width="45%" align="center">

<p align="center">Torna indietro e compila tutti i campi correttamente...</p>

<tr>
<td width="30%">Nome</td>
<td width="5%">=</td>
<td><%=nome%></td>
</tr>
<tr>
<td width="30%">Email</td>
<td width="5%">=</td>
<td><%=email%></td>
</tr>
<tr>
<td width="30%">Citt</td>
<td width="5%">=</td>
<td><%=citta%></td>
</tr>
<tr>
<td width="30%">Messaggio</td>
<td width="5%">=</td>
<td><%=messaggio%></td>
</tr>

</table>

</td>
</tr>
<tr>
<td align="center">[img]immagini/Indietro.gif[/img]</td>
</tr>

</table>


<%
else
SQL = "INSERT into tblGuestbook(nome,email,citta,messaggio)"
SQL = SQL & "VALUES ("
SQL = SQL & " '" & nome & "' ,"
SQL = SQL & " '" & email & "' ,"
SQL = SQL & " '" & citta & "' ,"
SQL = SQL & " '" & messaggio & "' ,"
SQL = SQL & " )"

conn.Execute(SQL)

response.redirect "guestbook.asp"

end if
%>


poi nella pagina connessione.asp


<%
'*********** Connessione al database ***********
Dim path,strconn,conn
path = "mdb-database/guestbook.mdb"
strconn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" &_
Server.Mappath(path)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn
%>



Grazie mille anticipati

[U235]

qual'è la riga 66 della pagina inserisci-process.asp?

[Ivan90]

questa

conn.Execute(SQL)

[steweb]

... MMM
mi sembra che il file di inclusione nella tua condizione sia prima di else ossia

if len(nome) = 0 or len(email) = 0 or len(citta) = 0 or len(messaggio) = 0 then
%>
...
..


<%
else

se i dati ci sono inserisci il messaggio però non trova la connessione 


end if

meglio

if len(nome) = 0 or len(email) = 0 or len(citta) = 0 or len(messaggio) = 0 then
%>
...
..

<%
else
%>

<%

...
..
end if

Steweb

[U235]

metti l'include all'inizio della pagina

[Ivan90]

Che stupido che sono stato.... ci sarei anche arrivato da solo.. cmq grazie mille steweb... però ora è intoppato in un altro errore

Microsoft VBScript compilation error '800a0411'

Name redefined

/ivanissimo/guestbook/connessione.asp, line 3

Dim strconn,conn,path
----^

[Ivan90]

Raga ho risolto anche questa... grazie mille...