07. april 2002 - 20:46Der er
5 kommentarer og 1 løsning
Lav den lidt mere avanceret...
Er der nogen der kan lave denne søgemaskine om så man kan søge på flere ord af gangen adskilt af et mellemrum:
------------------------------------------------
Soegeord = Trim(Request.Form("soeg"))
If Soegeord = "%" Then Response.Redirect Request.ServerVariables("HTTP_REFERER") Else If Len(Soegeord) = 0 Then Response.Redirect Request.ServerVariables("HTTP_REFERER") Else Soegeord = Replace(Soegeord,"'","''") End If End If
Soegeord = "(titel Like '%"& Soegeord &"%' Or indlaeg Like '%"& Soegeord &"%')"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Function dbStrip(streng) dbStrip = Replace(streng, "'", "''") End Function
Soegeord = Trim(Request.Form("soeg"))
If Soegeord = "%" Then Response.Redirect Request.ServerVariables("HTTP_REFERER") Else If Len(Soegeord) = 0 Then Response.Redirect Request.ServerVariables("HTTP_REFERER") Else SogeArr = Split(Soegeord, " ") sogeSQL = "" For each item in SogeArr If sogeSQL = "" Then sogeSQL = "titel like '%" & dbStrip(item) & "%' OR indlaeg like '%" & dbStrip(item) & "%'"
Else sogeSQL = sogeSQL & " OR titel like '%" & dbStrip(item) & "%' OR indlaeg like '%" & dbStrip(item) & "%'" End if Next End If 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.
