HTTP 500 Au secours

Bonjour,
Je suis en train de débuter sur la programmation en Wap-ASP, et pour l'instant tout se passe bien. Cependant j'ai une erreur HTTP 500 Erreur interne au serveur.
Je m'explique. J'ai établi une connexion DSN avec ma base de donnée AS400. Dans la page WML1.ASP j'affiche la liste des clients d'une ville donnée. Maintenant ce que je souhaite, c'est clicker sur le code d'un client, et avoir une page(wml2.asp) qui m'affiche plus d'infos sur ce client. Le problème vient quand je clique sur le lien.
Je vous met ci-joint les codes des deux pages (wml1.asp, et wml2.asp)

WML1.ASP

<%
Response.ContentType = "text/vnd.wap.wml"
%>
<%
Dim Iville
Iville = Request("ville")
set rs=Server.CreateObject("ADODB.RecordSet")
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=TESTV5;UID=CHRISTIAN;PWD=CIOCIO"

sql="select clncli, clnmfa from pclient where clvilfa='" & Iville & "'"
set rs=conn.execute(sql)
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="liste">
<p>

<%
Response.Write(Now)

%>
</p>
<p>La ville est:<%Response.Write(Iville)%></p>

<p align="center">


<% do until rs.eof %>


<% On error resume next%>
<%Ident=RS(0)%>


Numéro:<a href="wml2.asp?ID='$(Ident)'"><%=Ident%>&­lt;/a><br/>



Nom <%=RS(1) %><br/>



<%rs.movenext
loop %>


</p>

</card>

<% rs.close
set rs=nothing
conn.close
set conn=nothing %>

</wml>

WML2.ASP

<%
Response.ContentType = "text/vnd.wap.wml"
%>
<%
Dim Ident
Ident = Request("ID")
set rs1=Server.CreateObject("ADODB.RecordSet")
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=TESTV5;UID=CHRISTIAN;PWD=CIOCIO"

sql="select clncli, clnmfa,cladf1, clcpfa; clvilfa from pclient where clncli='" & Ident & "'"
set rs1=conn.execute(sql)
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
" http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="Clients">
<p>

<%
Response.Write(Now)

%>
</p>

<p>La numéro client est:<%Response.Write(ID)%></p>


<% do until rs1.eof %>
<% On error resume next%>

<p align="center">
Numéro: <%=RS1("clncli")%><br/>
</p>

<p align="left">
<%=RS1("clnmfa")%><br/>
<%=RS1("cladf1")%><br/>
<%=RS1("clcpfa")%><br/>
<%=RS1("clvilfa")%><br/>
</p>

<%rs1.movenext
loop %>


</card>
</wml>

Si vous avez des idées, n'hésitez pas à me le dire