end if

[longlook]

Scusate ma ho un altro problema: invio i dati da un form, li raccoglie la pagina con questo codice dove sgennaio sono le variabili che contengono i dati raccolti

<%@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>

ma il risultato è questo:
Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
/turismo/racoglitore.asp, line 237


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Pagina:
POST 58 bytes to /turismo/racoglitore.asp

POST Data:
sstnza=0&smar14=q&smag16=s&sgiu16=s&select2=0&Subm it=Invia

Ora:
lunedì 16 ottobre 2006, 16.21.05
la linea 237 è precisamente do è scritto objconn.close
ho provato più volte ad aggiungere end ma il risultato non cambia


Informazioni aggiuntive:
Supporto Microsoft

[optime]

da' un'indentata al codice, l'errore apparirà evidente

[maxmalici]

ai miei tempi si usava indentare il Codice
per evitare errori del genere

Ciao max

[michele.santoro]

Così ad occhio sembra che manchi qualche "end if" ... ne ho contati solo 19.

[longlook]

cosa significa identata

[optime]

Originariamente inviato da longlook
cosa significa identata

'sti ggiovani...

codice NON indentato

IF A=B THEN
IF R=2 THEN
IF Z=R2 THEN
Response.Write "Giallo"
ELSE
Response.Write "Verde"
END IF
ELSE
IF Y=H5 THEN
Response.Write "Blu"
ELSE
Response.Write "Nero"
END IF
END IF
ELSE
Response.Write "ImBossibbole!"
END IF



codice indentato

IF A=B THEN
   IF R=2 THEN
      IF Z=R2 THEN
         Response.Write "Giallo"
      ELSE
         Response.Write "Verde"
      END IF
   ELSE
      IF Y=H5 THEN
         Response.Write "Blu"
      ELSE
         Response.Write "Nero"
      END IF
   END IF
ELSE
   Response.Write "ImBossibbole!"
END IF

quale si capisce mejo?

[longlook]

spero di averlo dentato bene, scusate ma non sono esperto:

<%@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")
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>

[optime]

non vedo indent (rientri)...

[optime]

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

due if, una end if.... ci credo che l'animale si lamenta...

[longlook]

<%@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>

non è colpa mia quote impedisce di dentare bene