Prova così e dimmi cosa ti stampa a video:
codice:
<BODY>
<%
dim DesAgente
dim Password
dim idagente
dim nomeesteso
dim data
dim message
dim contamessage
dim autore
DesAgente=replace(Request.Form("DesAgente"),"'","''")
Password=replace(Request.Form("Password"),"'","''")
idagente=replace(Request.Form("idagente"),"'","''")
nomeesteso=replace(Request.Form("nomeesteso"),"'","''")
data=replace(Request.Form("data"),"'","''")
'message=Request.Form("message"),"'","''")
contamessage= "1"
autore=replace(Request.Form("autore"),"'","''")
Response.write (desagente)
Response.write (password)
Response.write (idagente)
Response.write (nomeesteso)
Response.write (data)
response.end
Dim cn
Dim strSQLConn
Dim rs
Dim autenticato
Dim sqlstr
strSQLConn= "Driver={SQL Server};Server=localhost;Database=Estrac
t;UID=sa;PWD=sa;"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strSQLConn
Set Rs=Server.createobject("ADODB.Recordset")
SQLStr="INSERT INTO EstTabellaAgenti (desagente, password, idagente, nomeesteso) VALUES ('"&desagente&"','"&password&"','"&idagente&"','"&nomeesteso&"')"
cn.execute(sqlstr)
Response.Redirect "gestione_age.asp"
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
%>
Rispondi quotando
