Salve, ho una form di immissione dati con dei controlli if che vengono saltati, cioè nonostante i campi siano vuoti vengono inseriti nel database, mi dite perchè??
Di seguito il codice semplicissimo della pagina.
<%
Dim str_wanted_rif, objconn, objrs, str_db_rif, rs_check_rif
str_wanted_rif = Request.form("rif")
SQL = "SELECT rif FROM contatti"
set rs_check_rif=Server.CreateObject("ADODB.Recordset" )
rs_check_rif.Open SQL,objConn
Do While NOT rs_check_rif.EOF
str_db_rif = rs_check_rif("rif")
If str_db_rif = str_wanted_rif Then Response.Redirect("attenzione.asp?error=9")
rs_check_rif.MoveNext
Loop
rs_check_rif.Close
Set rs_check_rif = Nothing
set objrs = Server.CreateObject("ADODB.Recordset")
rif=Replace(Request.Form("rif"), "'", "''")
data=Replace(Request.Form("data"), "'", "''")
unit=Replace(Request.Form("unit"), "'", "''")
proven=Replace(Request.Form("proven"), "'", "''")
nomin=Replace(Request.Form("nomin"), "'", "''")
recapito=Replace(Request.Form("recapito"), "'", "''")
funz=Replace(Request.Form("funz"), "'", "''")
lav=Replace(Request.Form("lav"), "'", "''")
commenti=Replace(Request.Form("commenti"), "'", "''")
if rif = "" then
response.redirect("attenzione.asp?error=1")
end if
if data = "" then
response.redirect("attenzione.asp?error=2")
end if
if unit = "" then
response.redirect("attenzione.asp?error=3")
end if
if proven = "" then
response.redirect("attenzione.asp?error=4")
end if
if nomin = "" then
response.redirect("attenzione.asp?error=5")
end if
if recapito = "" then
response.redirect("attenzione.asp?error=6")
end if
if funz = "" then
response.redirect("attenzione.asp?error=7")
end if
if commenti = "" then
response.redirect("attenzione.asp?error=8")
end if
SQL = "INSERT INTO contatti (rif, data, unit, proven, nomin, recapito, funz, lav, commenti) "
SQL = SQL & "VALUES ('" & rif & "','" & data & "','" & unit & "','" & proven & "','" & nomin & "','" & recapito & "','" & funz & "','" & lav & "','" & commenti & "')"
objrs.Open SQL, objconn
response.redirect ("/xxxxx/xxxxxx/default.asp?unit="&unit&"")
objconn.Close
Set objconn = Nothing
%>

Rispondi quotando