Hvorfor virker dette ikke?

Hvorfor virker dette ikke?
<!--#include file="protect.inc"-->
<%
Query = Trim(Request.Form("Query"))
Valg = Trim(Request.Form("Valg"))
%>
<HEAD><LINK href="style.css" type=text/css rel=stylesheet></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 margin="0" marginheight="0"
marginwidth="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="50%"><IMG height=84 src="image/sommertop.jpg" width=681></td>
    <td width="50%" valign="top">
    <!-- #include virtual="/dlg/velkom.inc"-->
    </td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="19%"><!-- #include virtual="/dlg/menu.inc"--></td>
    <td width="81%" valign="top">
    <form method="POST" action="find_kunde.asp">
    <select size="1" name="Valg">
    <option>Kundenr</option>
    <option value="Mobil">Mobiltelefon</option>
    <option value="Snr">Sælgernummer</option>
    </select></p>
    <input type="text" name="Query" size="25">
    <input type="submit" value="Søg" name="Soeg">
    <input type="reset" value="Slet" name="slet">
    </form>
    </td>
  </tr>
</table>
<br>
<% If Query = "" Then %>
<% Else %>
<!-- #include virtual="/dlg/database.inc"-->

<%
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM DLG.saelger;")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing

intValue = (intRecords - intStart)
If intPageSize > intValue Then
intPageSize = intValue
end if

intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
    intPage = int(1)
else
    intPage = int(intPage)
end if

intPageSize = int(100)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1

SQL = "SELECT * FROM DLG.saelger WHERE " & Valg & " = '" & Query & "' LIMIT " & intStart & ", " & intPageSize & ";"
Response.write Sql
Set rs = Conn.Execute(SQL)
if rs.EOF or rs.BOF then
        Response.Write "Ingen poster"
    else
%>
<table>
</TD></TR>
  <table>
        <tr class="lightgrey">
        <td>Id</td>
        <td>Kundenummer</td>
        <td>Fornavne</td>
        <td>Efternavn</td>
        <td>Adresse</td>
        <td>Postnr.</td>
        <td>By</td>
        <td>Telefon</td>
        <td>Mobil</td>
        <td>Fastnet</td>
        <td>SælgerNr</td>
        </tr>
<%

For i = 1 to intPages
    if i = intPage then
        %>

        <tr>
        <td><%= rs("Id") %></td>
        <td><a href="rediger_kunde.asp?Id=<%= rs("Id") %>"><font color="#000000"><%= rs("Kundenr") %></font></a></td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;<a href="rediger_kunde.asp?Id=<%= rs("Id") %>"><font color="#000000"><%= rs("Mobil") %></td>
        <td>&nbsp;<a href="rediger_kunde.asp?Id=<%= rs("Id") %>"><font color="#000000"><%= rs("Fastnet") %></td>
        <td>&nbsp;<%= rs("Snr") %></td>
        </tr>
</table>
        <%
    else
        Response.Write "<a href=""find_kunde.asp?page=" & i & """>"
        Response.Write i
        Response.Write "</a> "
    end if
next
%>

<%
RS.Close
Set rs = Nothing
End IF
Conn.Close
Set Conn = Nothing
End If
%>

</BODY>