Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o

**vorphalack** · 14-06-2004, 19:45

ciao a tutti, vi posto il codice (veramente lunghissimo ma di semplice lettura dato che sono righe ripetute) che mi sta facendo impazzare da qualche tempo....
l'errore che mi da è quello del titolo del post:

"Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto."

il codice è questo:
(per "semplicità" non ho usato cicli for, infatti appena risolto l'errore pensavo di ottimizzare il tutto...)

codice:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:/inetpub/wwwroot/Regionale_Greco/db/db1.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")
Set rs4 = Server.CreateObject("ADODB.Recordset")
Set rs5 = Server.CreateObject("ADODB.Recordset")
Set rs6 = Server.CreateObject("ADODB.Recordset")
Set rs7 = Server.CreateObject("ADODB.Recordset")
Set rs8 = Server.CreateObject("ADODB.Recordset")
Set rs9 = Server.CreateObject("ADODB.Recordset")
Set rs10 = Server.CreateObject("ADODB.Recordset")

Set rs11 = Server.CreateObject("ADODB.Recordset")
Set rs22 = Server.CreateObject("ADODB.Recordset")
Set rs33 = Server.CreateObject("ADODB.Recordset")
Set rs44 = Server.CreateObject("ADODB.Recordset")
Set rs55 = Server.CreateObject("ADODB.Recordset")
Set rs66 = Server.CreateObject("ADODB.Recordset")
Set rs77 = Server.CreateObject("ADODB.Recordset")
Set rs88 = Server.CreateObject("ADODB.Recordset")
Set rs99 = Server.CreateObject("ADODB.Recordset")
Set rs100 = Server.CreateObject("ADODB.Recordset")

Giorno = Request.Form("giorno")
Mese = Request.Form("mese")
Anno = Request.Form("anno")
if len(mese)<2 then
mese = "0" & mese
end if
divis = "/"
data = giorno & divis & mese & divis & anno
sql = "SELECT * FROM generale WHERE data = '"& data & "'"
rs.Open sql, conn ,3,3
sql1= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'Pada%'"
rs1.Open sql1, conn ,3,3
sql2= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'Pala%'"
rs2.Open sql2, conn ,3,3
sql3= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'che%'"
rs3.Open sql3, conn ,3,3
sql4= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 're%'"
rs4.Open sql4, conn ,3,3
sql5= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'garri%'"
rs5.Open sql5, conn ,3,3
sql6= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'isel%'"
rs6.Open sql6, conn ,3,3
sql7= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'camp%'"
rs7.Open sql7, conn ,3,3
sql8= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'bove%'"
rs8.Open sql8, conn ,3,3
sql9= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'bres%'"
rs9.Open sql9, conn ,3,3
sql10= "SELECT tipo_macchina, numero_macchina FROM generale WHERE data = '"& data & "' AND operatore LIKE 'dit%'"
rs10.Open sql10, conn ,3,3

sql1= "SELECT * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'Pada%'"
rs11.Open sql11, conn ,3,3
sql22= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'Pala%'"
rs22.Open sql22, conn ,3,3
sql33= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'che%'"
rs33.Open sql33, conn ,3,3
sql44= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 're%'"
rs44.Open sql44, conn ,3,3
sql55= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'garri%'"
rs55.Open sql55, conn ,3,3
sql66= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'isel%'"
rs66.Open sql66, conn ,3,3
sql77= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'camp%'"
rs77.Open sql77, conn ,3,3
sql88= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'bove%'"
rs88.Open sql88, conn ,3,3
sql99= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'bres%'"
rs99.Open sql99, conn ,3,3
sql100= "SELECT  * FROM note_operai WHERE data = '"& data & "' AND operatore LIKE 'dit%'"
rs100.Open sql100, conn ,3,3

%>

<html>
<head>
<title>Foglio di Lavoro</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/style.css" rel="stylesheet" type="text/css">

<link  media="print" href="css/print.css" rel="stylesheet" type="text/css">
</head>

<body>
[img]../immagini/treno21.gif[/img] 

<p class="innertextitle">Foglio lavoro del <%=data%>
</p>
<p class="innertexsubtitle">
Stampa
</p>

<table border="2" cellpadding="2" cellspacing="2">
	<tr>
		<td>
			Dati Relativi alle macchine
		</td> 
	</tr>

  <tr> 
    <td > Macchina: </td>
    <td > Tipo di Rip.</td>
	<td > Avaria: </td>
    <td > Riparazione</td>
  </tr>
  <%
Do While NOT Rs.EOF
%>
  <tr> 
    <td width="90"> <%= Rs("tipo_macchina")%>-<%=Rs("numero_macchina")%> </td>
    <td width="20"> <%=Rs("tipo_riparazione")%></td>
	<td width="185"> <%=Rs("avaria")%> </td>
    <td width="185"> <%=Rs("riparazione")%></td>
  </tr>
  <%
Rs.Movenext
Loop
%>
	<tr>
		<td>
			Dati relativi agli operai
		</td>
	</tr>

   <tr>
   		<td>
   			Padalino Giuliano
    	</td>
		<td>
<%
if rs1.eof AND rs1.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs1.EOF
%>
			<%=Rs1("tipo_macchina")%><%=Rs1("numero_macchina")%>,
<%
Rs1.Movenext
Loop
if rs11.eof then
Response.Write(".")
else
%>
			<%=Rs11("nota")%>
<%
end if
end if
%>
		</td>
   </tr>
   <tr>
   		<td>
   			Palamà Vittorio
    	</td>
		<td>
<%
if rs2.eof AND rs2.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs2.EOF
%>
			<%=Rs2("tipo_macchina")%><%=Rs2("numero_macchina")%>,
<%
Rs2.Movenext
Loop
if rs22.eof then
Response.Write(".")
else

%>
			<%=Rs22("nota")%>
<%	
end if
end if

%>
		</td>
   </tr>
   <tr>
   		<td>
   			Chessa Michele
    	</td>
		<td>
<%
if rs3.eof AND rs3.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs3.EOF
%>
			<%=Rs3("tipo_macchina")%><%=Rs3("numero_macchina")%>,
<%
Rs3.Movenext
Loop
if rs33.eof then
Response.Write(".")
else

%>
			<%=Rs33("nota")%>
<%
end if	
end if

%>
		</td>
   </tr>
   <tr>
   		<td>
   			Re Mauro
    	</td>
		<td>
<%
if rs4.eof AND rs4.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs4.EOF
%>
			<%=Rs4("tipo_macchina")%><%=Rs4("numero_macchina")%>,
<%
Rs4.Movenext
Loop
if rs44.eof then
Response.Write(".")
else

%>
			<%=Rs44("nota")%>
<%	
end if
end if
%>
		</td>
   </tr>
   <tr>
   		<td>
   			Garrinella Mirko
    	</td>
		<td>
<%
if rs5.eof AND rs5.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs5.EOF
%>
			<%=Rs5("tipo_macchina")%><%=Rs5("numero_macchina")%>,
<%
Rs5.Movenext
Loop
if rs55.eof then
Response.Write(".")
else

%>
			<%=Rs55("nota")%>
<%	
end if
end if
%>
		</td>
   </tr>
   <tr>
   		<td>
   			Isella Giuseppe
    	</td>
		<td>
<%
if rs6.eof AND rs6.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs6.EOF
%>
			<%=Rs6("tipo_macchina")%><%=Rs6("numero_macchina")%>,
<%
Rs6.Movenext
Loop
if rs66.eof then
Response.Write(".")
else

%>
			<%=Rs66("nota")%>
<%	
end if
end if
%>
		</td>
   </tr>
   <tr>
   		<td>
   			Campanella
    	</td>
		<td>
<%
if rs7.eof AND rs7.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs7.EOF
%>
			<%=Rs7("tipo_macchina")%><%=Rs7("numero_macchina")%>,
<%
Rs7.Movenext
Loop
if rs77.eof then
Response.Write(".")
else

%>
			<%=Rs77("nota")%>
<%	
end if
end if
%>
		</td>
   </tr>
   <tr>
   		<td>
   			Bove
    	</td>
		<td>
<%
if rs8.eof AND rs8.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs8.EOF
%>
			<%=Rs8("tipo_macchina")%><%=Rs8("numero_macchina")%>,
<%
Rs8.Movenext
Loop
if rs88.eof then
Response.Write(".")
else

%>
			<%=Rs88("nota")%>
<%	
end if
end if
%>
		</td>
   </tr>
   <tr>
   		<td>
   			Brescianini Davide
    	</td>
		<td>
<%
if rs9.eof AND rs9.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs9.EOF
%>
			<%=Rs9("tipo_macchina")%><%=Rs9("numero_macchina")%>,
<%
Rs9.Movenext
Loop
if rs99.eof then
Response.Write(".")
else

%>
			<%=Rs99("nota")%>
<%	
end if
end if
%>
		</td>
   </tr>
   <tr>
   		<td>
   			Ditta
    	</td>
		<td>
<%
if rs10.eof AND rs10.bof then
Response.Write("è uno sfaticato")
else
Do While NOT Rs10.EOF
%>
			<%=Rs10("tipo_macchina")%><%=Rs10("numero_macchina")%>,
<%
Rs10.Movenext
Loop
if rs100.eof then
Response.Write(".")
else

%>
			<%=Rs100("nota")%>
<%	
end if
end if
%>
		</td>
   </tr>

</table>

</body>
</html>

<%
Rs1.Close
Set Rs1 = Nothing
Rs2.Close
Set Rs2 = Nothing
Rs3.Close
Set Rs3 = Nothing
Rs4.Close
Set Rs4 = Nothing
Rs5.Close
Set Rs5 = Nothing
Rs6.Close
Set Rs6 = Nothing
Rs7.Close
Set Rs7 = Nothing
Rs8.Close
Set Rs8 = Nothing
Rs9.Close
Set Rs9 = Nothing
Rs10.Close
Set Rs10 = Nothing

Rs11.Close
Set Rs11 = Nothing
Rs22.Close
Set Rs22 = Nothing
Rs33.Close
Set Rs33 = Nothing
Rs44.Close
Set Rs44 = Nothing
Rs55.Close
Set Rs55 = Nothing
Rs66.Close
Set Rs66 = Nothing
Rs77.Close
Set Rs77 = Nothing
Rs88.Close
Set Rs88 = Nothing
Rs99.Close
Set Rs99 = Nothing
Rs100.Close
Set Rs100 = Nothing


Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

beh sì, la lunghezza è un po' spropositata effettivamente...

ciaoooo!

Discussione: Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o

Permessi di invio