Søgning på postnr. hvor den finder alt i nærheden
Hej...Jeg sidder i øjeblikket med en søgebase hvor man indtaster postnr. og så finder den ern record der svarer til det. Jeg ville jo også gerne have at den fandt de postnr. der var nærheden.
Her er koden:
<%@LANGUAGE=\"VBSCRIPT\"%> <%
Dim rsbutikker__MMColParam
rsbutikker__MMColParam = \"0\"
if(Request.QueryString(\"Pnr\") <> \"\") then rsbutikker__MMColParam = Request.QueryString(\"Pnr\")
%> <%
set rsbutikker = Server.CreateObject(\"ADODB.Recordset\")
rsbutikker.ActiveConnection = \"dsn=synoptik;\"
rsbutikker.Source = \"SELECT * FROM butikker WHERE Pnr = \'\" + Replace(rsbutikker__MMColParam, \"\'\", \"\'\'\") + \"\'\"
rsbutikker.CursorType = 0
rsbutikker.CursorLocation = 2
rsbutikker.LockType = 3
rsbutikker.Open
rsbutikker_numRows = 0
%><%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsbutikker_numRows = rsbutikker_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Find butik</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\">
<form name=\"form1\" method=\"get\" action=\"findbutik.asp\">
<table width=\"75%\" border=\"0\">
<tr bgcolor=\"#CCCCCC\">
<td width=\"309\"><font color=\"#000000\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Søg
efter butik med postnummer:</font></b></font></td>
<td width=\"481\"><font color=\"#000000\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<input type=\"text\" name=\"Pnr\" maxlength=\"4\">
</font></b></font></td>
</tr>
</table>
</form>
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"> </font></p>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsbutikker.EOF))
%>
<% If Not rsbutikker.EOF Or Not rsbutikker.BOF Then %>
<table width=\"75%\" border=\"0\" bgcolor=\"#CCCCCC\">
<tr>
<td width=\"17%\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Butik:</font></td>
<td width=\"83%\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<%=(rsbutikker.Fields.Item(\"Navn\").Value)%> <%=(rsbutikker.Fields.Item(\"Butiksnr\").Value)%>
, <%=(rsbutikker.Fields.Item(\"Adresse\").Value)%>,
<%=(rsbutikker.Fields.Item(\"Pnr\").Value)%> <%=(rsbutikker.Fields.Item(\"By\").Value)%>.</font></b></td>
</tr>
<tr>
<td width=\"17%\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Butikschef:</font></td>
<td width=\"83%\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<%=(rsbutikker.Fields.Item(\"Fornavn\").Value)%> <%=(rsbutikker.Fields.Item(\"Efternavn\").Value)%>.
</font></b></td>
</tr>
<tr>
<td width=\"17%\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Brille-tlf.:</font></td>
<td width=\"83%\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><%=(rsbutikker.Fields.Item(\"Brille tlf\").Value)%>.</font></b></td>
</tr>
<tr>
<td width=\"17%\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Kontaktlinse-tlf.:</font></td>
<td width=\"83%\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<%=(rsbutikker.Fields.Item(\"Kontaktlinse tlf\").Value)%>.</font></b></td>
</tr>
<tr>
<td width=\"17%\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Distriktchef:</font></td>
<td width=\"83%\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><%=(rsbutikker.Fields.Item(\"Distriktchef\").Value)%>
i distrikt <%=(rsbutikker.Fields.Item(\"Distrikt\").Value)%>.
</font></b></td>
</tr>
<tr>
<td colspan=\"2\" height=\"21\">
<hr width=\"100%\" align=\"center\">
</td>
</tr>
</table>
<% End If \' end Not rsbutikker.EOF Or NOT rsbutikker.BOF %><%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsbutikker.MoveNext()
Wend
%>
</body>
</html>
/Massy
