Databasesøgemaskine til hjemmeside

Denne skulle kunne gøre det med lidt asp

http://www.activeserverpages.dk/aspdigital/kapitel2/search.asp

tjaa det skulle over i asp kategorien under programmering, men har du lavet en form??
hvilke felter vil du søge i i db\'en??

gå ind på denne adresse: http://magten.dk/jagten/netvarket/tilmelding_net.php så kan du skrive navnet på en skole og plup dukker adressen op. Det skal søgeren kunne og så skal den kunne vise om skolen er medlem af vores organisation ved at sætte et hak i en boks hvor der står medlem

brug det netsrac skrev :)

skal manikke have mySQL

Nej eksemplet er lavet til Access

Dene her er god... (eksempel på: http://DevilDesign.trab.dk/scripts.asp )


<form action=\"soeg.asp\" method=\"post\">
<div align=\"center\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\" align=\"center\">Søg:&nbsp;<input type=\"text\" name=\"soeg\"><input type=\"submit\" name=\"submit\" value=\"Søg\"></td>
</tr>
</table>
</div>
<br>
<%
If Request.Form(\"soeg\") <> \"\" then
    Set DB = Server.CreateObject(\"ADODB.Connection\")
    DBSti = \"DBQ=\" & Server.Mappath(\"database.mdb\")
    DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti
    SQL = \"select * from MAPPEN where message like \'%\" & Request.Form(\"soeg\") & \"%\' or script like \'%\" & Request.Form(\"soeg\") & \"%\'\"
    Set rs = db.Execute (SQL)
        If not rs.eof then
        %>
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100%\" align=\"center\" bgcolor=red><b>Resultater:</b></td>
        <%
        Do until rs.eof
    %>
   
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"75%\" style=\"border-bottom: 2 dotted #FF0000\"><b><a href=\"scriptinfo.asp?id=<%=RS(\"id\")%>\"><%=RS(\"Script\")%>&nbsp;(<i><%=RS(\"Type\")%></i>)</b></td>
</center>
<td width=\"25%\" style=\"border-bottom: 2 dotted #FF0000\"><p align=\"right\">Af:&nbsp;<%
If rs(\"email\") = \"ingen\" then %>

<% Else %><a href=\"mailto:<%=RS(\"email\")%>\"><% end if %><%=RS(\"name\")%></td>
</tr>
</table>
</div>


    <%       
            rs.movenext
        Loop
    Else
        Response.Write \"<b>Der var intet der matchede det søgte ord</b>\"
    End if
End if


%>

tak?

tak