24. december 2000 - 16:24Der er
14 kommentarer og 1 løsning
Få denne søgemaskine til og virke!
Har lavet denne søgemaskine: <% Set DB = Server.CreateObject(\"ADODB.Connection\") DBSti = \"DBQ=\" & Server.Mappath(\"soeg.mdb\") DB.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") SQL = \"select * from codes where type = \'\" & Request.form(\"type\") & \"\' and beskrivelse like \'%\" & Request.Form(\"keyword\") & \"%\'\" Set rs = db.Execute (SQL) If not rs.eof then Do until rs.eof %> <%=rs(\"titel\")%> <% rs.movenext Loop %> </div> </center> </table> <% Else %> <b>Der var intet der matchede din søgekriterier!</b> <% End if %>
Men hvad er der galt ? Hvis man indtaster søgeord der passer til mere end 1 post skriver den der ikke var nogen! ???? Hvad er der galt og hvordan får jeg det til og virke ?
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
prøv denne: <% Set DB = Server.CreateObject(\"ADODB.Connection\") DBSti = \"DBQ=\" & Server.Mappath(\"soeg.mdb\") DB.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") SQL = \"select * from codes where type = \'\" & Request.form(\"type\") & \"\' and beskrivelse like \'%\" & Request.Form(\"keyword\") & \"%\'\" Set rs = db.Execute (SQL) If not rs.eof then %> <b>Der var intet der matchede din søgekriterier!</b> <% Else %> <% Do until rs.eof %> <%=rs(\"titel\")%> <% rs.movenext Loop %> </div> </center> </table>
ellers i din SQL sætning er type ikke noget felt du søger i, jeg ved ikke helt hvordan jeg sakl forklare det, men så vidt jeg kan se er det kun feltet beskrivelse den søger i!
da_nigga så må du hjælpe bjarke-b vi andre kan ikke når vi ikke kan få lov til at se sourcen måske du kunne få løst problemet for mange ved at dele din kode
tjoo jeg tror da det virker jeg har aldrig prøvet det, men jeg er næsten sikker på at det virker: <% Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\") Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"Select * From tabel Where feltidb Like \'%\" & Request.form(\"formfelt\") & \"%\' and feltidb Like \'%\" & Request.form(\"formfelt\") & \"%\'\" rs.Open strSQL, Conn if rs.EOF then %> <b>Inget fundet.</b> <% else %> <b>Fundet:</b><br> <% Do Until rs.EOF %> <%=rs(\"felt\")%><br> <% rs.MoveNext Loop end if %>
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.
