SikkerStreng = Replace(nyhed, "'", "''") strSQL = "SELECT * FROM nyheder where (ditsoegerord like '%"& SikkerStreng &"%') ORDER BY id ASC" Set rs = Conn.Execute(strSQL)
noget i den retning som medions svar også vil vise
Så får jeg dette... Men jeg bliver bare kastet tilbage til den side der hedder main???
' Henter værdien fra soeg.htm strKeyword = Request.Form("sogning")
If Len(strKeyword) = 0 Then ' Hvis der ikke er skrevet i feltet Response.Clear Response.Redirect("main.asp") Else ' Hvis der er skrevet i feltet strKeyword = Replace(strKeyword,"'","''") End If
' Opbygger en dynamisk SQL streng strSQL = "SELECT NyhedID, nyhed, Dato FROM nyheder WHERE" strSQL = strSQL & " (nyhed LIKE '%" & strKeyword & "%')" strSQL = strSQL & " OR (Dato LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("admin/news/nyheder.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN
' Skaber et recordset udfra SQL strengen Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then ' Hvis der er fundet poster på søgningen Response.Write "<p>Søgeresultat</p>" Response.Write "<table border=1>" Response.Write "<tr><th>Navn</th><th>Adresse</th><th>By</th><th>Beskrivelse</th></tr>" Do While Not rs.EOF Response.Write "<tr><td>" & rs("nyhed") & "</td>" Response.Write "<td>" & rs("Dato") & "</td></tr>" rs.MoveNext Loop Response.Write "</table>" Else ' Hvis der ikke er fundet poster på søgningen Response.Write "<p>Der er ikke fundet noget på denne søgning</p>" End If
' Rydder op efter os myConn.Close Set myConn = Nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.