Søgning uden resultat
Jeg kan ikke få denne kode til at fungere ordenligtDen resulterer kun at der ikke findes noget, selv om jeg ved at det eksisterer i databasen.
Lidt kode
// selve programmet
tekst = Request.Form("tekst");
//skabe forbindelse til databasen uden ODBC
conn = Server.CreateObject("ADODB.Connection");
DBPath = "DBQ=" + Server.mappath("nyheder.mdb");
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " + DBPath);
rs = conn.Execute("SELECT NyhedsId, NyhedsOverskrift, Nyheden FROM Nyheder WHERE NyhedsOverskrift Like '"+tekst+"'");
fundet = "0"
while (!rs.EOF){
Response.write("<a href='visnyhed.asp?id="+rs.Fields("Nyhedsid")+"'>"+rs.Fields("NyhedsOverskrift")+"</a><p>"+rs.Fields("Dato")+" "+rs.Fields("Tid")+"</p><br>");
rs.movenext();
fundet = "1"
}
if (fundet == "0") {
Response.write("<p>Søgeord: "+tekst+"</p><p>Der blev ikke fundet noget resultat på denne søgning</p>");
}
conn.Close();
%>
Tror det er noget i while løkken der er problemet.
Der er brugt JS og ikke VB til koden