Secondo voi perchè mi dice che manca l'end?

[diegoctn]

MI DA QUESTO ERRORE:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
In questa riga:

<%
DA=SESSION("farm")
PIERO=SESSION("log")
elsa=Request.querystring("elsa")
data=Request.querystring("data")
function DataAccess(sData)
  dim aData
  aData = split(Data, "/")
  DataAccess = "#" & aData(1) & "/" & aData(0) & "/" & aData(2) & "#"
end function
Data1= DataAccess("DATA") 
if da <> "farmacia" then
response.redirect "riprova.htm"
else
if piero <> "maxillo" then
response.redirect "riprova.htm"
end if
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("intranet.mdb") 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn 
Squeryt="SELECT presidio, datainvio from farmaci where  annulla=false AND ricevuto= true and inviato=true and presidio LIKE '"&elsa&"' and datainvio="&data1&" group by presidio,datainvio ;"
set rs=server.createobject("adodb.recordset") 
rs.open Squeryt,Conn
Do until Rs.eof=True 

%>
<div align="center"><font size="4"><%="Richiesto da " & rs("presidio") & " Il: " & rs("datainvio")%></div>
<%
rs.movenext 
loop
%>
<%
rs.close 
Set rs=Nothing 
conn.close
set Conn=Nothing

%>
<table border="1" width="100%">
<tr>
    <td width="10%">Codice</td> 
    <td width="65%">Descrizione</td>
    <td width="5%">Qua.</td>
    <td width="5%">Gia.</td>
    <td width="15%">Cons./Note</font></td>
  </font>
    
  </tr>
  
</table></div>
<%
DA=SESSION("farm")
elsa=Request.querystring("elsa")
data=Request.querystring("data")
function DataAccess(sData)
  dim aData
  aData = split(Data, "/")
  DataAccess = "#" & aData(1) & "/" & aData(0) & "/" & aData(2) & "#"
end function
Data1= DataAccess("DATA") 
if da <> "farmacia" then
response.redirect "riprova.htm"
end if
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("intranet.mdb") 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn 
Squeryt="SELECT codice, descrizione, quantita, giacenza, uo, datasta from farmaci where  annulla=false AND ricevuto= true and inviato=true and presidio LIKE '"&elsa&"' and datainvio="&data1&" ;"
set rs=server.createobject("adodb.recordset") 
rs.open Squeryt,Conn
Do until Rs.eof=True 
%>
<font color=LightYellow size=3>

<DIV ALIGN="CENTER">

<table border="1" width="100%">
<tr>
    <td width="10%"><%=rs("codice")%></td> 
    <td width="65%"><%=rs("descrizione")%></td>
    <td width="5%"><%=rs("quantita")%></td>
    <td width="5%"><%=rs("giacenza")%></td>
    <td width="15%"><font color="#FF9933"></font></font></td>
  </font>
    
  </tr>
  
</table></div>
<%
rs.movenext 
loop
%>
</font>
<%
rs.close 
Set rs=Nothing 
conn.close
 set Conn=Nothing 

%>


 
  
</body>
</html>