Page not displaying

[branson]

Following is a function on button click event to display the details of an user. If I include this function page is not displaying. Can u tell me where the mistake is?

[code]

sub DisplayData()
dim Idn
Idn = document.all("Display").value
<%dim rsDisplay
set rsDisplay=server.createobject("ADODB.Recordset")
rsDisplay.open "Select * from Personal where Id='" & Idn & "'"
if not rsDisplay.eof then %>
with document
.all("Id").value = <%rsDisplay.fields(0).value%>
.all("Name").value = <%rsDisplay.fields(1).value%>
.all("Age").value = <%rsDisplay.fields(2).value%>
.all("Address").value = <%rsDisplay.fields(3).value%>
.all("Email").value = <%rsDisplay.fields(4).value%>
end with
end if
<%set rs = nothing%>
end sub
-- This message may have been cut off and the rest will only be shown to members. To become a member, click here --

[komodo23]

I am not sure this has anything to do with it, but you really don't need to close and reopen your delimiters.

Code:
<%
sub DisplayData()
dim Idn
Idn = document.all("Display").value
dim rsDisplay
set rsDisplay=server.createobject("ADODB.Recordset")
rsDisplay.open "Select * from Personal where Id='" & Idn & "'"
if not rsDisplay.eof then %>
with document
.all("Id").value = <%rsDisplay.fields(0).value%>
.all("Name").value = <%rsDisplay.fields(1).value%>
.all("Age").value = <%rsDisplay.fields(2).value%>
.all("Address").value = <%rsDisplay.fields(3).value%>
.all("Email").value = <%rsDisplay.fields(4).value%>
end with
end if
set rs = nothing
end sub
%>

but then try running some response. Write sta -- This message may have been cut off and the rest will only be shown to members. To become a member, click here --