Ho scritto le seguenti :
CTR_PW_MOD.ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
username = Request.Form("Utenti")
password = Request.Form("Password")
progetto = Request.Form("Progetto")
%>
<%
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.mappath("schede_proj.mdb")
set connobj = Server.CreateObject( "ADODB.Connection" )
connobj.Open url_DB
%>
<%
Set RsCheck = Server.CreateObject("ADODB.Recordset")
sqlcheck = "Select * From Utente where username = '"&username&"' and Password = '"&password&"' and Progetto = '"&progetto&"'"
RsCheck.open sqlcheck, connobj
%>
<%
if not RsCheck.eof then
Set RsDati = Server.CreateObject("ADODB.Recordset")
sqlDati = "Select * From Scheda where Denominazione = '"&progetto&"'"
RsDati.open sqlDati, connobj
if not RsDati.eof then
scopo = RsDati("Scopo")
tempistica = RsDati("Tempistica")
obiettivi_intermedi = RsDati("Obiettivi_intermedi")
session("username") = username
session("Loggato") = True
response.redirect "modifica.asp? denominazione='"&progetto&"'&scopo='"&scopo&"'&tem pistica='"&tempistica&"'&obiettivi_intermedi='"&ob iettivi_intermedi&"'&username='"&username&"'"
else
session("Loggato")= False
response.redirect "login_modifica.asp?check=ok&check_progetto=ko "
end if
else
session("Loggato")= False
response.redirect "login_modifica.asp?check=ko&check_progetto=ok "
end if
connobj.Close
set connobj = nothing
%>
MODIFICA.ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
scopo = Request.QueryString("scopo")
%>
<textarea name="Scopo" cols="100" rows="8" id="Scopo"><%=scopo%></textarea>
Il problema è che quando scrivo il valore di scopo nella textarea viene posto un apice all'inizio e alla fine del valore.
Grazie.
Vincenzo