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

[vorphalack]

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...)

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

[Alethesnake]

Ma quanti oggetti recordset hai creato e aperto???
se per caso ti si collegano due persone contemporaneamente ti esplode il server!
creane uno solo, e se devi printare qualcosa fai un ciclo o qualcosa del genere

per l'errore mi sa che è colpa del campo data, se non erro è una parola riservata di access (sono solo 100 correzioni da fare :gren: )

[weppos]

Poveri criceti! Abbi un po' di pietà per il server.

[ukero]

Originariamente inviato da weppos
Poveri criceti! Abbi un po' di pietà per il server.

Salve weppos, ti posso chiedere una cosa ?

ho visto il tuo sito nel link "home page" del post.

Mi protesti fare un'esempio come si fanno questi siti come il tuo?

graize.

[weppos]

Originariamente inviato da ukero
ho visto il tuo sito nel link "home page" del post.
Mi protesti fare un'esempio come si fanno questi siti come il tuo?

Gulp, di quale parli? weppos.com?
In particolare cosa saresti interessato a conoscere?

[ukero]

Originariamente inviato da weppos
Gulp, di quale parli? weppos.com?
In particolare cosa saresti interessato a conoscere?

Si è quello www.weppos.com

Sono interessato:

1) Il menu che rimane sempre di lato
2) Il cambio della lingua
3) L' inserimento delle news con smilies

Mi protesti dare una mano per farmi il mio sito personale dinamico.

grazie.

[weppos]

Originariamente inviato da ukero
Mi protesti dare una mano per farmi il mio sito personale dinamico.

Posso darti supporto ed eventualmente aiutarti sul forum per problemi, ma di più non posso.
Sono sommerso di lavori e tra 2 giorni pure esami!

Dunque, nello specifico

1. E' semplicemente un include.
Il file contiene l'architettura della tabella ed è incluso in ogni pagina.
E' sviluppato con una funzione e quindi ha l'effetto di cambiare dinamicamente leggendo la variabile della pagina in cui ti trovi.

2. E' semplicemente una variabile che viene letta.
Di default è italiano, se la variabile è valorizzata inglese allora il sito diventa inglese.
I dati vengono richiamati dal database in base alla lingua in cui sono stati catalogati.

3. Beh, questo è un po' complesso.
Mi sono realizzato un pannello personale di gestione del sito dove posso inserire comodamente via browser faq, news e modificare una qualsiasi pagina del sito tipo le licenze o abilitare i download.
Tutto il sito infatti è contenuto nel dataabse ed i dati vengono richiamati da lì.
in questo modo con questo pannello posso amministrare i contenuti ovunque mi trovi.

[ukero]

Originariamente inviato da weppos

Posso darti supporto ed eventualmente aiutarti sul forum per problemi, ma di più non posso.
Sono sommerso di lavori e tra 2 giorni pure esami!

Dunque, nello specifico

1. E' semplicemente un include.
Il file contiene l'architettura della tabella ed è incluso in ogni pagina.
E' sviluppato con una funzione e quindi ha l'effetto di cambiare dinamicamente leggendo la variabile della pagina in cui ti trovi.

2. E' semplicemente una variabile che viene letta.
Di default è italiano, se la variabile è valorizzata inglese allora il sito diventa inglese.
I dati vengono richiamati dal database in base alla lingua in cui sono stati catalogati.

3. Beh, questo è un po' complesso.
Mi sono realizzato un pannello personale di gestione del sito dove posso inserire comodamente via browser faq, news e modificare una qualsiasi pagina del sito tipo le licenze o abilitare i download.
Tutto il sito infatti è contenuto nel dataabse ed i dati vengono richiamati da lì.
in questo modo con questo pannello posso amministrare i contenuti ovunque mi trovi.

Grazie, mi protesti aiutarmi con i messaggi privati, se hai voglia?

[weppos]

Per me va bene, anche se il tempo a mia disposizione non è molto.
Ti consiglierei per i problemi di usare il forum pubblico per poter trarre beneficio da risposte anche di altri utenti.

[ukero]

Originariamente inviato da weppos
Per me va bene, anche se il tempo a mia disposizione non è molto.
Ti consiglierei per i problemi di usare il forum pubblico per poter trarre beneficio da risposte anche di altri utenti.

ok, grazie tanto.