Salve ragazzi effettuo la seguente procedura per l'inserimento dati in un DB ma nn miu funziona non capisco perché!!!!
Premetto che i campi del form sono stati controllati ed hanno lo stesso nome come quelli presenti nel DB
<%
' Definizione delle variabili
dim titolo
titolo = Replace(Request.Form("titolo"),"'","''")
dim data
data = Replace(Request.Form("data"),"'","''")
dim azienda
azienda = Replace(Request.Form("azienda"),"'","''")
dim categoria
categoria = Replace(Request.Form("categoria"),"'","''")
dim telefono
telefono = Replace(Request.Form("telefono"),"'","''")
dim email
email = Replace(Request.Form("email"),"'","''")
dim sito
sito = Replace(Request.Form("sito"),"'","''")
dim descrizione
descrizione = Replace(Request.Form("descrizione"),"'","''")
descrizione = Replace(descrizione, vbCrLf, "
")
Do While InStr(1, descrizione, "
" ,vbTextCompare) > 0
'Replace
with one case of
descrizione = Replace(descrizione , "
", "
")
Loop
' Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/db.mdb")
Conn.Open strConn
sql_inserimento = "INSERT INTO annunci ( titolo,data,azienda,categoria,telefono,email,sito, descrizione) VALUES ('" & titolo & "', '" & data & "','" & azienda & "','" & categoria & "','" & telefono & "','" & email & "','" & sito & "','" & descrizione & "');"
Conn.Execute sql_inserimento
' Chiusura del database
conn.Close
set conn = Nothing
%>
NON VA!!!!!
Rispondi quotando
