Søgning på Webside (Kartotek)

select * from databsen order by postnr

\"select * from databsen where postnr = \" & ThePostnr

Måske dette kan give et hint

<HTML>
<HEAD>
</HEAD>
<BODY>
<table bgcolor=#E8E7DC border=\"1\" cellPadding=\"4\" cellSpacing=\"0\" align=center WIDTH=\"500\">
<TR bgColor=\"black\">
    <TD ALIGN=\"center\"><span class=\"tekstoverskrift\">Overskrift</span></TD>
    </TR>
<TR>
<%
\'Creating the Recordset Object
                   
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

\'Creating a DSN-Less connection to the Database
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
   
\'Creating a SQL Request as a string
strSQL = \"SELECT * FROM vin \"
strSQL = strSQL & \"WHERE (detindtastede LIKE \'\" & myletter & \"%\')\"
\' Sorteres i Alfabetisk rækkefølge
strSQL = strSQL & \" ORDER BY Postnr\"
       
\'Open the recordset
rs.Open strSQL, strDSN, 1

if Not rs.EOF then

i = 1
Do While Not rs.EOF
           
%>

    <TD ALIGN=LEFT class=name width=\'*\'><B><%=RS(\"Adresse\")%>
    </TD>
<%

If (i mod 1) = 0 then
%>
    </TR>
    <TR>
<%
end if
i = i + 1
rs.MoveNext

\' Looping through our Recordset
Loop

\'Finished - Time to close the Recordset and the Connection to the Database
rs.Close
Set rs = Nothing
           
else
Response.Write (\"<td ALIGN=LEFT class=white COLSPAN=3 width=\'*\'>Sorry No Records Founds</td></tr>\")
end if
           
%>
</table>

</BODY>
</HTML>

der hvor jeg har skrevet \'detindtastede\' der skal selvfølgelig stå \'Postnr\'..8o)