Questo è il codice che sto usando!
<%
comments=Trim(Request.Form("comments"))
name=Trim(Request.Form("name"))
email=Trim(Request.Form("email"))
image=Trim(Request.Form("image"))
font=Trim(Request.Form("font"))
color=Trim(Request.Form("color"))
immagine=Trim(Request.Form("img"))
response.write(immagine)
If LEN(email)=0 Then email="Not disclosed"
If LEN(immagine)=0 Then immagine="No img"
' deal with apostrophes and disable any html codes
name=REPLACE(name, "'", "'")
name=REPLACE(name, ">", "")
name=REPLACE(name, "<", "")
comments=REPLACE(comments, "<", "")
comments=REPLACE(comments, "'", "'")
comments=REPLACE(comments, ">", "")
email=REPLACE(email, "<", "")
email=REPLACE(email, "'", "")
email=REPLACE(email, ">", "")
MyCols="[Name],[Comments],[IP Address],[Posted],[Image],[Font],[Color],[email],[immagine]"
MyVals="'"&name&"',"
MyVals=MyVals & "'"&comments&"',"
MyVals=MyVals & "'"&Request.ServerVariables("REMOTE_ADDR")&"', "
subtime=NOW
MyVals=MyVals & "'"&subtime&"',"
MyVals=MyVals & "'"&image&"',"
MyVals=MyVals & "'"&font&"',"
MyVals=MyVals & "'"&color&"',"
MyVals=MyVals & "'"&email&"'"
MyVals=MyVals & "'"&immagine&"'"
MySql="INSERT INTO Visitors ("&MyCols&") VALUES ("&MyVals&")"
'dbf=Server.MapPath ("guestbook.mdb")
dbf=Server.MapPath ("../../dati/store.mdb")
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + dbf
my_Conn.Execute MySql
my_Conn.Close
%>
e funziona tutto fino a quando ho pensato di inserire un'altro campo nel db: il campo immagine!
questo è l'errore che mi da:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Driver ODBC Microsoft Access] Il numero dei valori nella query non corrisponde a quello dei campi di destinazione.
/piazzaerbe/it/addguest.asp, line 235
Se potete aiutarmi!!
grazie!

Rispondi quotando