Ho la necessità di chiedere aiuto al Forum.
Per l’inserimento/modifica delle News utilizzo lo script in calce
Quando modifico la News inserita, il sistema segnala un errore alla riga relativa alla data:
RecSet("data") = Replace(Replace(Request.Form("data"), chr(13), "
"), "'", "′")
Potete suggerirmi una soluzione?
Grazie.
<body>
<%
' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
' CONTROLLA SE TUTTI I CAMPI SONO STATI COMPILATI
IF Len(Request("autore")) = 0 or Len(Request("titolo")) = 0 or Len(Request("contenuto")) = 0 then
' CAMPI NON COMPILATI!
%>
<hr>
<p align="center"><font face="Verdana" size="4" color="#FF0000">Campi non compilati!</font></p>
<hr>
<%
Else
' CAMPI COMPILATI
' RICEVE L'OPERAZIONE DA SVOLGERE (AGGIUNGERE/MODIFICARE NEW)
operazione = Request.QueryString("tipo")
Set RecSet = Server.CreateObject("ADODB.Recordset")
' IN BASE ALL'OPERAZIONE CREA LA QUERY AL DATABASE
IF operazione = "aggiungi" then
' DEVE AGGIUNGERE LA NEW
SQL = "SELECT * FROM giuris"
else
' DEVE MODIFICARE LA NEW
SQL = "SELECT * FROM giuris WHERE ID = " & Request.Querystring("id") &""
End IF
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
' OPERAZIONE : AGGIUNGI NEW
IF operazione = "aggiungi" then
RecSet.Addnew
' SE SI AGGIUNGE LA NEW INSERISCE LA DATA CORRENTE
End IF
RecSet("data") = Replace(Replace(Request.Form("data"), chr(13), "
"), "'", "′")
RecSet("cod") = Replace(Replace(Request.Form("cod"), chr(13), "
"), "'", "′")
RecSet("AT_1") = Replace(Replace(Request.Form("AT_1"), chr(13), "
"), "'", "′")
RecSet("AT_2") = Replace(Replace(Request.Form("AT_2"), chr(13), "
"), "'", "′")
RecSet("AT_3") = Replace(Replace(Request.Form("AT_3"), chr(13), "
"), "'", "′")
RecSet("AT_4") = Replace(Replace(Request.Form("AT_4"), chr(13), "
"), "'", "′")
RecSet("area_1") = Replace(Replace(Request.Form("area_1"), chr(13), "
"), "'", "′")
RecSet("area_2") = Replace(Replace(Request.Form("area_2"), chr(13), "
"), "'", "′")
RecSet("titolo_1") = Replace(Replace(Request.Form("titolo_1"), chr(13), "
"), "'", "′")
RecSet("nota") = Replace(Replace(Request.Form("nota"), chr(13), "
"), "'", "′")
RecSet("titolo") = Replace(Replace(Request.Form("titolo"), chr(13), "
"), "'", "′")
RecSet("autore") = Replace(Replace(Request.Form("autore"), chr(13), "
"), "'", "′")
RecSet("contenuto") = Replace(Replace(Request.Form("contenuto"), chr(13), "
"), "'", "′")
fld_box = Replace(Replace(Request.Form("fld_box"), chr(13), "
"), "'", "′")
if (fld_box = "-1") then
fld_box = -1
else
fld_box = 0
end if
RecSet("fld_box") = fld_box
' AGGIORNA E CHIUDE IL DB
RecSet.Update
RecSet.Close
Set RecSet = Nothing
%>
<hr>
<p align="center"><font face="Verdana" size="4">Operazione eseguita
correttamente!</font></p>
<hr>
<%
End IF
Conn.Close
Set Conn = Nothing
%>
<a href="Gestione_new.asp"><font face="Verdana" size="2">Torna alla
Gestione delle news</font></a></p>
</body>
</html>
Rispondi quotando
