Nå men jeg kan ikke se den så vil lige ligge spørgsmålet igen
Jeg sidder med denne side http://www.1q.frip.dk/opslag/default.asp Og når når søger (søg på v) og vælger en af resultaterne fjerne den resultaterne og viser kun dataerne ved det spurgte id.
Jamen jeg trækker det ud med <%ordet = request.form("ord") set rs = server.CreateObject("ADODB.Recordset") set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("database.mdb") strSQL = "SELECT * FROM opslagsord where (forklaring like '%"& ordet &"%') or (ord like '%"& ordet &"%') or (relation like '%"& ordet &"%') ORDER BY ord ASC" Set rs = Conn.Execute(strSQL) if ordet <> "" then if rs.eof then response.write "Du søgte på" & " " & """ & "<b>" & ordet & "</b>" & """ & " " & "gav ingen resultater" & "<br>" Response.write "Hjælp os med at udbygge maskinen ved at følge instruktionen herunder" else response.write "Vi fandt følgende, efter din søgning på" & " " & """ & "<b>" & ordet & "</b>" & """ & "<br>" Response.write "<br>" do while not rs.EOF response.write "<a style='color: rgb(0,0,0)' href='default.asp?ID=" & RS("ID") & "'> " & RS("ord") & "</a>" & "<br>" rs.movenext loop end if if request.querystring("ID") <> "" then response.write "Vi fandt følgende, efter din søgning på" & " " & """ & "<b>" & ordet & "</b>" & """ & "<br>" Response.write "<br>" do while not rs.EOF response.write "<a style='color: rgb(0,0,0)' href='default.asp?ID=" & RS("ID") & "'> " & RS("ord") & "</a>" & "<br>" rs.movenext loop end if end if %>
Og så er det i øvrigt en rigtig god idé at "fikse" de singlequotes ('), søgestrengen måtte indeholde for at undgå SQL-komplikationer.
SikkerStreng = Replace(ordet, "'", "''") strSQL = "SELECT * FROM opslagsord where (forklaring like '%"& SikkerStreng &"%') or (ord like '%"& SikkerStreng &"%') or (relation like '%"& SikkerStreng &"%') ORDER BY ord ASC"
Det har jo heller ingen betydning for selve funktionen, hvad der indtastet. Hvis nogen synes det er sjovt at søge efter "ingenting", skal de næsten have den fornøjelse.
nej det er ligemeget.. det er det der står nederst Altså hvis den ikke finder noget skal der være de muligheder der står nederst, enten kan brugeren selv skrive betydningen med videre ellers kan han ligge den ud til folk så kan man se hvilke ord hvor betydningen er ukendt, eller han kan sende en mail til mig så skal jeg se om jeg kan finde ud af det.
Angående mit indlæg pr. 31/01-2003 13:44:45, så skal du ikke lave en replace af "ordet". Opret en ny variabel "SikkerStreng", som jeg illustrerede. Ellers vil der ved en søgning på "That's why" komme til at stå: Du søgte på "That''s why" gav ingen resultater
strSQL = "SELECT * FROM opslagsord where (forklaring like '%"& ordet &"%') or (ord like '%"& ordet &"%') or (relation like '%"& ordet &"%') ORDER BY ord ASC"
- med:
SikkerStreng = Replace(ordet, "'", "''") strSQL = "SELECT * FROM opslagsord where (forklaring like '%"& SikkerStreng &"%') or (ord like '%"& SikkerStreng &"%') or (relation like '%"& SikkerStreng &"%') ORDER BY ord ASC"
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.