ASP - Inserimento dati in record... anomalo

[marco.agelao]

[ASP] Salve, mi spiego:
Ho realizzato uno script in vbs che mi inserisce nei campi di una tabella dei valori.... in locale tutto procede tranquillamente.... sul sito installato nel relativo server non va....
premetto che non ci sono problemi di connessione al db (MySQL)... funziona tutto prefettamente anche sul server in cui è installato il sito.... posto lo script

<%
Dim sc, cn, rs, dataa, oraa, userida, passworda, livelloa, ipa, giornoedataa, datiutente, i
ipa=Request.ServerVariables("REMOTE_ADDR")
giornoedataa=FormatDateTime(Now(),1)
dataa=FormatDateTime(Now(),2)
separaora=split(time(),".")
if separaora(0)<10 then
     separaora(0)="0"&separaora(0)
else
end if
oraa=separaora(0)&":"&separaora(1)&":"&separaora(2)
For Each i In Request.ServerVariables
     datiutente=datiutente & i & " = " & Request.ServerVariables(i) & "
"
Next
userida=CStr(Session("MM_Username"))
passworda=CStr(Session("MM_Password"))
livelloa=CStr(Session("MM_UserAuthorization"))

sc = MM_conn_RTPtv_MySQL_STRING
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc' & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "accessi", cn, 3, 3
rs.AddNew
rs("ipa") = ipa
rs("giornoedataa") = giornoedataa
rs("dataa") = dataa
rs("oraa") = oraa
rs("userida") = userida
rs("passworda") = passworda
rs("livelloa") = livelloa
rs("datiutente") = datiutente
rs.Update
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>

... ripeto, in locale è tutto perfetto

[Roby_72]

Non va che vuol dire???

Roby

[marco.agelao]

Ciao Roby, grazie per aver risposto.
Non va.... il server purtroppo non segnala il tipo di errore.
Mi risponde che è impossibile ritornare la pagina.
Se tolgo lo script ovviamente nessun problema.
Lo script però non da problemi in locale.
Fa esattamente il suo dovere.
Mi sono accorto di aver scritto il nome della variabile che contiene la stringa di connessione in modo diverso all'interno dello script... ma è un errore nel postare lo script.... non c'è nella pagina....quindi non farci caso... non è quello

[optime]

puoi postare l'errore esatto?

[marco.agelao]

Purtroppo, come ho già detto, non mi da l'errore esatto... altrimenti sarebbe stato tutto più facile da risolvere...
mi dice semplicemente

500 - Errore interno del server.
Si è verificato un problema che non consente di visualizzare la risorsa desiderata.

<%
Dim sc, cn, rs, dataa, oraa, userida, passworda, livelloa, ipa, giornoedataa, datiutente, i
ipa=Request.ServerVariables("REMOTE_ADDR")
giornoedataa=FormatDateTime(Now(),1)
dataa=FormatDateTime(Now(),2)
separaora=split(time(),".")
if separaora(0)<10 then
     separaora(0)="0"&separaora(0)
else
end if
oraa=separaora(0)&":"&separaora(1)&":"&separaora(2)
For Each i In Request.ServerVariables
     datiutente=datiutente & i & " = " & Request.ServerVariables(i) & "
"
Next
userida=CStr(Session("MM_Username"))
passworda=CStr(Session("MM_Password"))
livelloa=CStr(Session("MM_UserAuthorization"))

sc = MM_conn_MySQL_STRING
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc' & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "accessi", cn, 3, 3
rs.AddNew
rs("ipa") = ipa
rs("giornoedataa") = giornoedataa
rs("dataa") = dataa
rs("oraa") = oraa
rs("userida") = userida
rs("passworda") = passworda
rs("livelloa") = livelloa
rs("datiutente") = datiutente
rs.Update
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>

lo script, ripeto, è questo....
ho notato che, eliminando la zona di scrittura su db, mi da già errore quando splitto... ma non credo sia quello... ed in ogni caso, com'è possibile che in locale non dia problemi? Non è quindi questione di sintassi...
... se puoi provalo e magari, se hai un server di appoggio dove testarlo, questo è impostato per darti l'errore nel dettaglio....
fammi sapere

[Roby_72]

Togli la spunta dai Messaggi di errore HTTP brevi dal menu Strumenti --> Opzioni Internet --> Avanzate di IE.

Roby

[marco.agelao]

... è tolta da sempre....

[Roby_72]

Fatti stampare tutte le variabili fino al NEXT compreso.
Verifica se sono come te le aspetti.

Roby

[marco.agelao]

sempre lo stesso

ma comunque in locale va...

[marco.agelao]

nessun nuovo suggerimento?