Til højre kan du se, hvilke varegrupper, varenavne eller varenumre, der matcher din søgning bedst.
Prøv evt. at variere søgeudtrykket her:Resultat af søgningen: | ||
Varegrupper<% Response.charset = "ISO-8859-1" Response.write "" If Request.Form("soegfelt") <> "" Then sf = Server.HTMLEncode(Request.Form("soegfelt")) sf = Replace(sf,"æ","%") sf = Replace(sf,"ø","%") sf = Replace(sf,"å","%") sf = Replace(sf,"Æ","%") sf = Replace(sf,"Ø","%") sf = Replace(sf,"Å","%") sql = "SELECT * FROM grupper WHERE gruppe LIKE ""%" & sf & "%""" Set objRS = Conn.Execute(sql) While Not objRS.EOF Response.write "" & objRS("gruppe") & " " objRS.MoveNext Wend objRS.Close End If %> | Varenavn<% Response.charset = "ISO-8859-1" Response.write "" If Request.Form("soegfelt") <> "" Then sf = Server.HTMLEncode(Request.Form("soegfelt")) sf = Replace(sf,"æ","%") sf = Replace(sf,"ø","%") sf = Replace(sf,"å","%") sf = Replace(sf,"Æ","%") sf = Replace(sf,"Ø","%") sf = Replace(sf,"Å","%") sql = "SELECT * FROM billeder WHERE titel LIKE ""%" & sf & "%""" Set objRS = Conn.Execute(sql) While Not objRS.EOF Response.write "" If Mid(objRS("titel"),3,1) = "#" Then varetitel = Mid(objRS("titel"),4) Else varetitel = objRS("titel") End If Response.write varetitel & " " objRS.MoveNext Wend objRS.Close End If %> | Varenummer<% Response.charset = "ISO-8859-1" Response.write "" If Request.Form("soegfelt") <> "" Then sf = Server.HTMLEncode(Request.Form("soegfelt")) sf = Replace(sf,"æ","%") sf = Replace(sf,"ø","%") sf = Replace(sf,"å","%") sf = Replace(sf,"Æ","%") sf = Replace(sf,"Ø","%") sf = Replace(sf,"Å","%") sql = "SELECT * FROM varer,billeder WHERE billeder.id = varer.billede AND varer.varenummer LIKE ""%" & sf & "%""" Set objRS = Conn.Execute(sql) While Not objRS.EOF Response.write "" & objRS("varenummer") & "(" If Mid(objRS("titel"),3,1) = "#" Then varetitel = Mid(objRS("titel"),4) Else varetitel = objRS("titel") End If Response.write varetitel & ") " objRS.MoveNext Wend objRS.Close End If %> |