asp + Access = non scrive sul DB

[redkaa]

Ciao a tutti, sono pesantemente un novizio. Seguo da un po' il forum per capire come fare un sito almeno elementare e ci sto provando.
Ora mi sto cimentando con l'asp e per prima cosa ho provato a creare un modulo di feedback, facendomi aiutare da FP2003. Orbene, ho generato la pagina asp, ho collegato tutti i moduli, pulsanti, caselle di testo al db che FP ha creato, ho controllato la corrispondenza del nome del db e dei singoli campi tra pagina asp e tabella. Sembra tutto ok
Lancio la pagina asp da localhost, la compongo, la invio, mi si apre la pagina di conferma, ma sul db non viene scritto nessun record. Ho provato anche a pubblicarla, ma il risultato è lo stesso, nessun record scritto.
Il db è nella dir fpdb, global.asa lo punta esattamente.
Dove sta l'inghippo, dove sbaglio ????

Grazie per le risposte

[Roby_72]

Mah la palla di vetro non l'abbiamo...
Se la pagina non restituisce errori forse, dico forse, la query di inserimento non viene eseguita, ma questo lo sai solo tu.

Roby

[redkaa]

grazie Roby, come faccio a verificare come lavora (e se lavora) la query ??

[Roby_72]

Non lo so.
Hai scritto qui lo script? Come faccio a saperlo?

Roby

[redkaa]

Originariamente inviato da Roby_72
Non lo so.
Hai scritto qui lo script? Come faccio a saperlo?

Roby

Giusto. Ecco lo script

<%
' FP_ASP File ASP generato automaticamente da un componente di FrontPage. Non modificarlo.

On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Session.LCID = 1040
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Impossibile creare la connessione."

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Impossibile creare il set di record."

fp_conn.Open Application("feedback_ConnectionString")
FP_DumpError strErrorUrl, "Impossibile aprire il database."

fp_rs.Open "Risultati", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Impossibile aprire il set di record."

fp_rs.AddNew
FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database."
Dim arFormFields0(7)
Dim arFormDBFields0(7)
Dim arFormValues0(7)

arFormFields0(0) = "TelefonoUtente"
arFormDBFields0(0) = "TelefonoUtente"
arFormValues0(0) = Request("TelefonoUtente")
arFormFields0(1) = "PostaElettronicaUtente"
arFormDBFields0(1) = "PostaElettronicaUtente"
arFormValues0(1) = Request("PostaElettronicaUtente")
arFormFields0(2) = "Commenti"
arFormDBFields0(2) = "Commenti"
arFormValues0(2) = Request("Commenti")
arFormFields0(3) = "TipoMessaggio"
arFormDBFields0(3) = "TipoMessaggio"
arFormValues0(3) = Request("TipoMessaggio")
arFormFields0(4) = "FaxUtente"
arFormDBFields0(4) = "FaxUtente"
arFormValues0(4) = Request("FaxUtente")
arFormFields0(5) = "Argomento"
arFormDBFields0(5) = "Argomento"
arFormValues0(5) = Request("Argomento")
arFormFields0(6) = "NomeUtente"
arFormDBFields0(6) = "NomeUtente"
arFormValues0(6) = Request("NomeUtente")

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_utente"
End If
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_computer_remoto"
End If
FP_SaveFieldToDB fp_rs, Now, "Data_e_ora"
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_browser"
End If

fp_rs.Update
FP_DumpError strErrorUrl, "Impossibile aggiornare il database."

fp_rs.Close
fp_conn.Close

FP_FormConfirmation "text/html; charset=windows-1252",_
"Conferma modulo",_
"Grazie per averci inviato le seguenti informazioni:",_
"feedback.asp",_
"Torna al modulo"

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<html>

<head>
<% ' FP_ASP -- File ASP generato automaticamente da un componente di FrontPage. Non modificarlo.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<% ' FP_ASP -- File ASP generato automaticamente da un componente di FrontPage. Non modificarlo.
FP_LCID = 1040 %>
<meta http-equiv="Content-Language" content="it">
<title>Commenti</title>
</head>

<body bgcolor="#FFCC66">

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign="top" height="100%" style="border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium">
<p style="margin-top: 0; margin-bottom: 0"></p>
<form method="POST" action="--WEBBOT-SELF--" onSubmit="">


<p style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="2">Quale tipo di commenti desiderate inviare?
</font></p>
<dl>
<dd><font face="Verdana"><input type="radio" name="TipoMessaggio" value="Dead link"><font size="2">Segnalazione
di &quot;dead link&quot; </font>
<input type="radio" name="TipoMessaggio" value="New link"><font size="2">Segnalazione
di nuovi link
</font>
<input type="radio" checked name="TipoMessaggio" value="Suggerimento"><font size="2">Suggerimento
</font>
<input type="radio" name="TipoMessaggio" value="Critiche"><font size="2">Critiche</font></font></dd>
</dl>


<font face="Verdana"><font size="2">Argomento
</font>
</font></p>
<table width="100%" border="1">
<thead>
</thead>
<tbody>
</tbody>
</table>


<font face="Verdana">
<input type="text" size="26" maxlength="256" name="Argomento"></font></p>


<font face="Verdana" size="2">Inserite i commenti nello spazio sottostante: </font></p>
<dl>
<dd><font face="Verdana"><textarea name="Commenti" rows="5" cols="42"></textarea></font></dd>
</dl>


<font face="Verdana" size="2">Per contattarvi </font></p>
<dl>
<dd>
<table>
<tr>
<td><font face="Verdana" size="2">Nome</font></td>
<td>
<font face="Verdana">
<input type="text" size="35" maxlength="256" name="NomeUtente"></font></td>
</tr>
<tr>
<td><font face="Verdana" size="2">Posta elettronica</font></td>
<td>
<font face="Verdana">
<input type="text" size="35" maxlength="256" name="PostaElettronicaUtente"></font></td>
</tr>
<tr>
<td><font face="Verdana" size="2">Telefono</font></td>
<td>
<font face="Verdana">
<input type="text" size="35" maxlength="256" name="TelefonoUtente"></font></td>
</tr>
<tr>
<td><font face="Verdana" size="2">Fax</font></td>
<td>
<font face="Verdana">
<input type="text" size="35" maxlength="256" name="FaxUtente"></font></td>
</tr>
</table>
</dd>
</dl>



<font face="Verdana"><input type="submit" value="Invia commenti">
<input type="reset" value="Cancella"></font></p>
</form>
</td>
</tr>
</table>

</body>

</html>

Grazie e ciao

[yro]

sarò addormentato... ma di query non ne vedo.

poi. lo so che probabilmente è più facile così, ma io mi sono abituato a scrivermi il codice a mano da zero... per carità sbaglio tanto e tante cose, ma questo mi permettere una conoscenza più approfondita del codice... poi vedi tu.

[wallrider]

@yro: è perchè non usa query usa il metodo addnew+update

@redkaa: cosa fa la funzione FP_SaveFormFields

[redkaa]

Originariamente inviato da yro
sarò addormentato... ma di query non ne vedo.

poi. lo so che probabilmente è più facile così, ma io mi sono abituato a scrivermi il codice a mano da zero... per carità sbaglio tanto e tante cose, ma questo mi permettere una conoscenza più approfondita del codice... poi vedi tu.

Grazie ragazzi per le risposte, ma come premesso, sono totalemte a digiuno di asp e il codice l'ha scritto in automatico FP2003. Qualche riga riesco ad interpretarla (memoria di Cobol), ma per il resto buio totale. Mi aspettavo di trovare qualche comando che richiamasse una write al db, ma non la trovo.