Errore su un banale request.form

[diegoctn]

Scusate sarà il ritorno dalle vacanze ma:

ho una serie di select:

......
<td width="25%"><font color="yellow">Lunedì</font></td>
<td width="25%"><select name="1a"> 
<% 
do while not Rs.eof 
valore=Rs("inf") 
nome=Rs("inf")
response.write("<option value=" & valore & ">" & nome &" </option>") 
Rs.movenext 
loop 
rs.close 
Set rs=Nothing %> 
</SELECT>.....

Pagina che processa, e mi si impianta quà:

.......
1a=Request.Form("1a")
1af=Replace(1a,"'","''")
.......

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/galeazzi/reper.asp, line 12



Perchè?

[kalosjo]

Istruzione precedente a 1a=Request.Form("1a")

forse manca qualcosa in quella precedente

[diegoctn]

This is the code:

Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("repe.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset") 
set objRs = objConn.Execute("SELECT * from principe") 
da1=session("xcucina")
da=Replace(da1,"'","''")
dal=Request.Form("dal")
al=Request.Form("al")
1a=Request.Form("1a") 
1af=Replace(1a,"'","''")
......................

[diegoctn]

Ragazzi sono in panne. Se avete anche un solo consiglio, andrebbe benissimo....

[kalosjo]

il nome di una variabile non può iniziare con un numero!

[diegoctn]

Non lo sapevo! Mea culpa.