Problemi con Uguestbook

[MarieleCi]

Salve,
sono nuova qui, oltre che totalmente digiuna di ASP .

Ho scaricato da questo sito, e modificato SOLO nella parte grafica (intaccando quindi i files header.asp, footer.asp e style.css), Uguestbook; dopo averlo messo online, mentre lo provavo, ha funzionato bene per un po' ma, da un certo momento in poi, quando invio un messaggio nuovo, invece di tornare su index.asp, si va su una pagina di errore HTTP500. Mi e vi chiedo: sono io ad aver modificato qualcosa, magari anche involontariamente, oppure il problema è del server (Aruba)?

Altro quesito:
vorrei inserire nel nuovo guestbook i messaggi contenuti nel vecchio, del quale ho solo il database di access: è possibile? Se sì, come si fa?

Grazie anticipate a chi vorrà/potrà aiutarmi.

[ettorpa]

Ciao,

In effetti il redirect punta ad una pagina che non c'è piu'...

Per poterti aiutare, dovresti postarci il codice della pagina in questione dove effettua il post...ma ad ogni modo non credo si tratti di header.asp o footer.asp..la pagina dovrebbe essere qualcosa tipo: add.asp add_comment.asp etc...

Saluti

[MarieleCi]

Sono appena riuscita a vedere, modificando le impostazioni di Explorer, di quale errore si tratta:




Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/include/funzioni_filtro.asp, line 213

800401f3




Che devo fare? Eppure quel file non l'ho mai toccato...



(Dal file funzioni_filtro.asp)

.....
Case "CDONTS"

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = Uguestname & "<" & IndirizzoEmail & ">"
objCDOMail.To = "<" & IndirizzoEmail & ">"
objCDOMail.Subject = OggettoEmail
objCDOMail.Body = CorpoEmail
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Importance = 1
objCDOMail.Send

Set objCDOMail = Nothing

....

Potrebbe dipendere dal fatto che ho modificato le impostazioni in modo da ricevere una mail di notifica ad ogni nuovo messaggio inserito (mail che, tra l'altro, non arriva)? Se sì, cosa devo fare per risolvere il problema?

[MarieleCi]

Comunque il codice del file add_message.asp è il seguente:

<%@LANGUAGE="VBSCRIPT"%>   <% Response.Buffer = True  Dim msg_id Dim rsguest Dim msg_name Dim msg_email Dim msg_city Dim msg_country Dim msg_homepage Dim msg_icq Dim message Dim msg_date Dim strMode Dim strEmailSubject Dim strEmailBody Dim msg Dim CallEmailFunction Dim errore Dim errormessage  errore = false  strMode = Request.Form("strMode") msg_date = Request.Form("msg_date")  If strMode = "new" Then msg_date = Now()  If strMode = "edit" Then msg_id = CLng(Request.Form("msg_id"))  If Trim(Request.form("msg_name")) = "" Or Trim(Request.form("message"))= "" Then 	 errore = true 	 errormessage = strLangErrorMessageNeedAuthorText End If  If strMode = "new" Then    If Request.form("message") <> "" And LongWords(Request.form("message")) = False Then 	   errore = true 	   errormessage = strLangErrorLongWord    End If End If  msg_name = Request.Form("msg_name") msg_email = Request.Form("msg_email") msg_city = Request.Form("msg_city") msg_country = Request.Form("msg_country") msg_homepage = Request.Form("msg_homepage") msg_icq = Request.Form("msg_icq") message = Request.Form("message")  ' Format user input and remove html tags msg_name = removeAllTags(msg_name) msg_name = BadWords(msg_name) msg_email = removeAllTags(msg_email) msg_email = BadWords(msg_email) msg_city = removeAllTags(msg_city) msg_city = BadWords(msg_city) msg_country = removeAllTags(msg_country) msg_country = BadWords(msg_country) msg_homepage = removeAllTags(msg_homepage) msg_homepage = BadWords(msg_homepage) msg_icq = removeAllTags(msg_icq) msg_icq = BadWords(msg_icq)  If msg_homepage="http://" then msg_homepage = "" If msg_icq <> "" Then   If Not IsNumeric(msg_icq) Then       msg_icq = ""   ElseIf Len(msg_icq) < 5 Then      msg_icq = ""   End If End If   If strMode = "new" Then message = removeAllTags(message) message = UBBcode(message) message = FormatText(message) Else message = removemaligno(message) End if  message = Emoticon(message) message = BadWords(message) message = Replace(message, VbCrLf, "
")  ' end format  If errore = false then Set rsguest = Server.CreateObject("ADODB.Recordset")  If strMode = "edit" Then 	strSQL = "SELECT message.* FROM message WHERE message.msg_id = " & msg_id & ";"	 Else 	strSQL = "SELECT Top 1 message.* FROM message;" End If  rsguest.CursorType = 2 rsguest.LockType = 3 rsguest.Open strSQL, strCon  If NOT strMode = "edit" Then rsguest.AddNew  rsguest.Fields("Name") = msg_name rsguest.Fields("Email") = msg_email rsguest.Fields("City") = msg_city rsguest.Fields("Country") = msg_country rsguest.Fields("Homepage") = msg_homepage rsguest.Fields("Icq") = msg_icq rsguest.Fields("Message") = message rsguest.Fields("Date") = msg_date 			 rsguest.Update rsguest.Requery  	If blnEmail = True AND strMode <> "edit" Then 		strEmailSubject = strLangSubjectEmailNewMessage  		strEmailBody = strLangEmailHi 		strEmailBody = strEmailBody & "

" & strLangEmailBodyMessage1 & "" 		strEmailBody = strEmailBody & "
" & strLangEmailBodyMessage2 & "" 		strEmailBody = strEmailBody & "

" & strLangGlobTableMessage3 & ": " & msg_date 		strEmailBody = strEmailBody & "
" & strLangFormAuthor & ": " & msg_name 		If msg_email <> "" Then 		strEmailBody = strEmailBody & "
" & strLangFormEmail & ": " & msg_email 		End If 		If msg_city <> "" Then 		strEmailBody = strEmailBody & "
" & strLangFormCity & ": " & msg_city 		End If 		If msg_country <> "" Then 		strEmailBody = strEmailBody & "
" & strLangFormCountry & ": " & msg_country 		End If 		If msg_homepage <> "" Then 		strEmailBody = strEmailBody & "
" & strLangFormHomepage & ": " & msg_homepage 		End If 		strEmailBody = strEmailBody & "
" & strLangFormText & ":
" & ReverseEmoticon(message)          		CallEmailFunction = InviaEmail(strEmailBody, emailamministratore, strEmailSubject, strEmailComponent) 	 	End If   rsguest.Close Set rsguest = Nothing  If strMode = "edit" then msg = strLangInfoEditMessage Response.Redirect "editallmessage.asp?page="& Request.Form("page") & "&Block="& Request.Form("Block") &"&msg="& msg &"" Else Response.Redirect "index.asp" End if End if %> <html> <head> <title><% = Uguestname %></title>  <LINK href="include/styles.css" rel=stylesheet> </head>  <table width="760" border="0" align="center" cellpadding="0" cellspacing="0">   <tr>      <td width="600" align="center" valign="top">
 	  <% If strMode = "new" Then %> 	  <% = UCase(strLangFormAddMessage) %> 		<% Else %>      <% = UCase(strLangFormEditMessage) %> 		<% End If %>       


       <% If errore = True Then %>       <% = errormessage %>
       
           <% If strMode = "new" Then %>	                 <% = strLangNavBackPrevPage %>
           <% Else %>               <% = strLangNavBackPrevPage %>
       <%     End If 	    End If %> <%  Set adoCon = Nothing Set strCon = Nothing %> 	</td>    </tr> </table>

[MarieleCi]

Originariamente inviato da MarieleCi


....

Potrebbe dipendere dal fatto che ho modificato le impostazioni in modo da ricevere una mail di notifica ad ogni nuovo messaggio inserito (mail che, tra l'altro, non arriva)? Se sì, cosa devo fare per risolvere il problema?

RISOLTO!!!

Dipendeva proprio da quello! Mi è bastato scegliere di non ricevere E-mail per ogni messaggio inserito ed è tornato tutto a posto

Ora rimane il secondo quesito... :master:


"Altro quesito:
vorrei inserire nel nuovo guestbook i messaggi contenuti nel vecchio, del quale ho solo il database di access: è possibile? Se sì, come si fa?"

[michele.santoro]

Credo che l'errore sia dipeso dal fatto che su Aruba devi usare CDOSYS e non CDONTS, è per questo motivo che avendo escluso l'invio delle mail hai risolto pagliativamente il problema.
Per passare i messaggi del vecchio guestbook al nuovo scaricati i due database e poi rinomina i campi del vecchio come i campi del nuovo, dopodiché puoi risolvere con un semplice copia e incolla, o importando i dati dal vecchio al nuovo con una query di aggiornamento.

[MarieleCi]

Grazie Michele, ci proverò