<%@language=vbscript%><%@language=vbscript%>
<%dim objconn, strconn
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/turismo/pino.mdb")
objconn.open strconn
ingress=session("inser")
nascondiglio=session("nasc")
strs="select id from tblex where (logi like'%"&ingress&"%' and passwor like'%"&nascondiglio&"%')"
set rs= server.createobject("adodb.recordset")
rs.open strs,objconn,3,3
identif=rs("id")
if len(sgennaio1)<>0 then
r1=sgennaio1
strquer="update singola set gennaio = '"& r1 &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio2)<>0 then
r2=sgennaio2
if len(sgennaio1)<>0 or len(sgennaio2)<>0 then
ry=r1+r2
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio3)<>0 then
r3=sgennaio3
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 then
ry=r1+r2+r3
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio4)<>0 then
r4=sgennaio4
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or (sgennaio4)<>0 then
ry=ri+r2+r3+r4
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio5)<>0 then
r5=sgennaio5
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) then
ry=ri+r2+r3+r4+r5
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio6)<>0 then
r6=sgennaio6
if len(sgennaio1)<>0 or len(gennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6) then
ry=ri+r2+r3+r4+r5+r6
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio7)<>0 then
r7=sgennaio7
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 then
ry=ri+r2+r3+r4+r5+r6+r7
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio8)<>0 then
r8=sgennaio8
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 then
ry=ri+r2+r3+r4+r5+r6+r7+r8
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio9)<>0 then
r9=sgennaio9
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio9) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio10)<>0 then
r10=sgennaio10
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice= '"&identif&"'"
end if
if len(sgennaio11)<>0 then
end if
r11=sgennaio11
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio12)<>0 then
r12=sgennaio12
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11)<>0 or len(sgennaio12)<>0 then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio13)<>0 then
r13=sgennaio13
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11)<>0 or len(sgennaio12)<>0 or len(sgennaio13) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12+r13
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio14)<>0 then
r14=sgennaio14
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11)<>0 or len(sgennaio12)<>0 or len(sgennaio13) or len(sgennaio14) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12+r13+r14
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio15)<>0 then
r15=sgennaio15
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11)<>0 or len(sgennaio12)<>0 or len(sgennaio13) or len(sgennaio14) or len(sgennaio15) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12+r13+r14+ r15
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio16)<>0 then
r16=sgennaio16
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11)<>0 or len(sgennaio12)<>0 or len(sgennaio13) or len(sgennaio14) or len(sgennaio15) or len(sgennaio16) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12+r13+r14+ r15+r16
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio17)<>0 then
r17=sgennaio17
if len(sgennaio1)<>0 or len(sgennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11)<>0 or len(sgennaio12)<>0 or len(sgennaio13) or len(sgennaio14) or len(sgennaio15) or len(sgennaio16) or len(sgennaio17) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12+r13+r14+ r15+r16+r17
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
if len(sgennaio18)<>0 then
r18=sgennaio18
if len(sgennaio1)<>0 or len(gsennaio2)<>0 or len(sgennaio3)<>0 or len(sgennaio4)<>0 or len(sgennaio5) or len(sgennaio6)or len(sgennaio7)<>0 or len(sgennaio8)<>0 or len(sgennaio8)<>0 or len(sgennaio9)<>0 or len(sgennaio10)<>0 or len(sgennaio11)<>0 or len(sgennaio12)<>0 or len(sgennaio13) or len(sgennaio14) or len(sgennaio15) or len(sgennaio16) or len(sgennaio17) or len(sgennaio19) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12+r13+r14+ r15+r16+r17+r18
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if (questi if then end if sono 31 e ry si incrementa sempre di 1)
set r= server.createobject("adodb.recordset")
r.open strsql,objconn,3,3
rs.close
set rs= nothing
r.close
set r= nothing
objconn.close
set objconn=nothing
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
Rispondi quotando