perchè la funzione qui sotto, non mi risolve il problema degli apici nei form ?
IF azione = 1 THEN
'prima riga
aCampi = aCampi & campo_01
aValori = aValori & "'" & Replace(Session("utente"), "'", "''") & "'"
'righe successive
aCampi = aCampi & ", " & campo_02
aValori = aValori & ",'" & Replace(Request.Form("form_02"), "'", "''") & "'"
aCampi = aCampi & ", " & campo_03
aValori = aValori & ",'" & Replace(Request.Form("form_03"), "'", "''") & "'"
aCampi = aCampi & ", " & campo_04
aValori = aValori & ",'" & Replace(Request.Form("form_04"), "'", "''") & "'"
aCampi = aCampi & ", " & campo_05
aValori = aValori & ",'" & Replace(Request.Form("form_05"), "'", "''") & "'"
aCampi = aCampi & ", " & campo_06
aValori = aValori & ",'" & Replace(Request.Form("form_06"), "'", "''") & "'"
aCampi = aCampi & ", " & campo_07
aValori = aValori & ",'" & Replace(Request.Form("form_07"), "'", "''") & "'"
aCampi = aCampi & ", " & campo_08
aValori = aValori & ",'" & Replace(Request.Form("form_08"), "'", "''") & "'"
sSql = "INSERT INTO " & t_dati & " (" & aCampi & ") VALUES (" & aValori & ")"
'Response.Write("<hr>" & "Inserimento" & sSql & "<hr>")
db_primo.Execute (sSql)
END IF

Rispondi quotando