<%@language=vbscript%><%@language=vbscript%><%@lan guage=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")
sgennaio1=request("sgen1") (..........e così fino a 31)
sgennaio30=request("sgen30")
sgennaio31=request("sgen31")
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(.......................e così fino a 31)
if len(sgennaio31)<>0 then
r31=sgennaio31
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(sgennaio18) or len(sgennaio19) or len(sgennaio20) or len(sgennaio21) or len(sgennaio22) or len(sgennaio23) or len(sgennaio24) or len(sgennaio25) or len(sgennaio26) or len(sgennaio27) or len(sgennaio28) or len(sgennaio29) or len(sgennaio30) or len(sgennaio31) then
ry=ri+r2+r3+r4+r5+r6+r7+r8+r9+r10+r11+r12+r13+r14+ r15+r16+r17+r18+r19+r20+r21+r22+r23+24+25+26+27+28 +29+30+31
strquer="update singola set gennaio = '"& ry &"', stanz='"& singstanz &"' where codice = '"&identif&"'"
end if
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