qsto è l'errore ke mi da la pagina asp su server locale mentre su remoto mi dice ke c'è un disadattamento di tipo alla linea 38 il codice è il seguente:
<%@ Language=VBScript %>
<%
if Session("login") = "" then Response.Redirect "login.asp"
szAzione = Request("szAzione")
szTitolo = Request("szTitolo")
szOcchiello = Request("szOcchiello")
szTesto = Request("szTesto")
bPub = Request("bPub")
dtIns = Request("dtIns")
dtDay = Request("dtDay")
dtMonth = Request("dtMonth")
dtYear = Request("dtYear")
id_user = request ("id_user")
set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("PANNELLO_ConnectionString")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Select Case lcase( szAzione )
Case "nuova"
Conn.BeginTrans
sql = "SELECT TOP 1 * FROM NEWS"
Rs.Open sql , Conn , 1 , 3
Rs.AddNew
Rs("TITOLO") = szTitolo
Rs("OCCHIELLO") = szOcchiello
Rs("TESTO") = szTesto
if bPub = "on" then
Rs("PUBBLICATO") = True
else
Rs("PUBBLICATO") = False
end if
Rs("DATA_INS") = dtYear &"-"& dtMonth &"-"& dtDay
Rs("ID_USER")= id_user
Rs.Update
Rs.Close
Set Rs = Nothing
if Err.number = 0 then
Conn.CommitTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp"
else
Conn.RollbackTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp?szMsg=news non inserita! "& Err.Description
end if
Case "modifica"
Conn.BeginTrans
sql = "select * from news where id_news="& Request("idNews")
Rs.Open sql,Conn,1,3
Rs("TITOLO") = szTitolo
Rs("OCCHIELLO") = szOcchiello
Rs("TESTO") = szTesto
if bPub = "on" then
Rs("PUBBLICATO") = True
else
Rs("PUBBLICATO") = False
end if
Rs("DATA_INS") = dtYear &"-"& dtMonth &"-"& dtDay
Rs.Update
Rs.Close
Set Rs = Nothing
if Err.number = 0 then
Conn.CommitTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp"
else
Conn.RollbackTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp?szMsg=news non inserita! "& Err.Description
end if
Case "del"
Conn.Execute("DELETE FROM NEWS WHERE ID_NEWS="& Request("idNews") )
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp"
End Select
%>
la linea 38 e qlla dove passo l'id_user cioè:
Rs("ID_USER")= id_user
qlc1 mi sa dire cosa sbaglio? xkè io proprio nn riesco a capirlo;
può essere ke mi da qsto errore xkè collegata alla tabella utenti proprio tramite l'id_user e qndi magari nn devo inserire qsto campo?:dipser:
<%@ Language=VBScript %>
<%
if Session("login") = "" then Response.Redirect "login.asp"
szAzione = Request("szAzione")
szTitolo = Request("szTitolo")
szOcchiello = Request("szOcchiello")
szTesto = Request("szTesto")
bPub = Request("bPub")
dtIns = Request("dtIns")
dtDay = Request("dtDay")
dtMonth = Request("dtMonth")
dtYear = Request("dtYear")
id_user = request ("id_user")
set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("PANNELLO_ConnectionString")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Select Case lcase( szAzione )
Case "nuova"
Conn.BeginTrans
sql = "SELECT TOP 1 * FROM NEWS"
Rs.Open sql , Conn , 1 , 3
Rs.AddNew
Rs("TITOLO") = szTitolo
Rs("OCCHIELLO") = szOcchiello
Rs("TESTO") = szTesto
if bPub = "on" then
Rs("PUBBLICATO") = True
else
Rs("PUBBLICATO") = False
end if
Rs("DATA_INS") = dtYear &"-"& dtMonth &"-"& dtDay
Rs("ID_USER")= id_user
Rs.Update
Rs.Close
Set Rs = Nothing
if Err.number = 0 then
Conn.CommitTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp"
else
Conn.RollbackTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp?szMsg=news non inserita! "& Err.Description
end if
Case "modifica"
Conn.BeginTrans
sql = "select * from news where id_news="& Request("idNews")
Rs.Open sql,Conn,1,3
Rs("TITOLO") = szTitolo
Rs("OCCHIELLO") = szOcchiello
Rs("TESTO") = szTesto
if bPub = "on" then
Rs("PUBBLICATO") = True
else
Rs("PUBBLICATO") = False
end if
Rs("DATA_INS") = dtYear &"-"& dtMonth &"-"& dtDay
Rs.Update
Rs.Close
Set Rs = Nothing
if Err.number = 0 then
Conn.CommitTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp"
else
Conn.RollbackTrans
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp?szMsg=news non inserita! "& Err.Description
end if
Case "del"
Conn.Execute("DELETE FROM NEWS WHERE ID_NEWS="& Request("idNews") )
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Redirect "default.asp"
End Select
%>
la linea 38 e qlla dove passo l'id_user cioè:
Rs("ID_USER")= id_user
qlc1 mi sa dire cosa sbaglio? xkè io proprio nn riesco a capirlo;
può essere ke mi da qsto errore xkè collegata alla tabella utenti proprio tramite l'id_user e qndi magari nn devo inserire qsto campo?:dipser:
