ciao raga. ho fatto un semplice script per l invio di messaggi.
Tutto funziona senza errori , xo non capisco xke i valori presenti nel form non vengono passati ...
vi metto il codice :
<%
If Request.QueryString("send") = 1 Then
Dim rs_addMsg 'Recordsheet per il nuovo utente
Dim strsqlnewmsg
new_Oggetto = Request.form("oggetto")
new_Messaggio = Request.form("testo")
new_Data = now
new_IdMittente = str_users_code
new_usernameMittente = str_users_name
new_IdDestinatario = Request.form("destinatario")
response.write new_IdDestinatario
response.end
new_usernameDestinatario = Request.form("destinatario")
new_nuovo = "True"
Randomize()
max = 1000000
new_Idmsg = max * Rnd()
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "DBQ=" & Server.Mappath("mdb-database\utenti.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
'Creo una nuova stringa SQL
strsqlnewmsg="SELECT * FROM messaggiPrivati"
'Creo un nuovo recordset
set rs_addMsg = Server.CreateObject("ADODB.Recordset")
'apro recordsheet e eseguo la stringa SQL
rs_addMsg.open strsqlnewmsg,DataConn ,3,3
'setto recordsheet e aggiungo un nuovo record
rs_addMsg.AddNew
'Enter a new record into the database
rs_addMsg.Fields("Idmsg") = new_Idmsg
rs_addMsg.Fields("Oggetto") = new_Oggetto
rs_addMsg.Fields("Messaggio") = new_Messaggio
rs_addMsg.Fields("Data") = new_Data
rs_addMsg.Fields("IdMittente") = new_IdMittente
rs_addMsg.Fields("usernameMittente") = new_usernameMittente
rs_addMsg.Fields("IdDestinatario") = new_IdDestinatario
rs_addMsg.Fields("usernameDestinatario") = new_usernameDestinatario
rs_addMsg.Fields("nuovo") = new_nuovo
'aggiorno il recordset
rs_addMsg.Update
rs_addMsg.Close
'set rs_addMsg = Nothing
Response.Redirect("centro_messaggi.asp")
End If
%>
qui ci sono i campi :
<form name="nuovomsg" method="get"><input name="destinatario" type="text" readonly value="<%=Request.QueryString("dest")%>" size="20" maxlength="20"></form></td>
<td width="111"></td>
</tr>
<tr>
<td height="23" valign="top">oggetto :</td>
<td valign="top"><input name="oggetto" type="text" readonly value="Re : <%=Request.QueryString("ogg")%>"></td>
<td></td>
</tr>
<tr>
<td height="30" valign="top">testo : </td>
<td rowspan="2" valign="top">
<div>
<font color="#FF0000">
<textarea name="testo" cols="28" rows="5" style="color: #FF0000; background-color: #FFFFFF"></textarea><%=Request.QueryString("testo")%>
IL RESPONSE .WRITE E' VUOTO !!! XKE ???