---
title: "Välja alternativ med kryssrutor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/176612-välja-alternativ-med-kryssrutor/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lorelie"
published: "2009-01-30T17:50:44.000Z"
updated: "2009-02-10T21:10:24.000Z"
replies: 47
views: 1262
page: 2
pages: 3
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/176612-välja-alternativ-med-kryssrutor"
---
# Välja alternativ med kryssrutor
_Sida 2 av 3._
## #21 — Lorelie, 2009-02-01T17:23Z
Det blir samma felmeddelande vad jag än gör! \*frustrerad\*
Permalänk: https://www.webforum.nu/p/2167356
## #22 — voigtann1, 2009-02-01T17:49Z
ta bort all asp och bara kör en response.write("test") för att ens kolla att servern inte har några problem med ASPn.
Permalänk: https://www.webforum.nu/p/2167357
## #23 — Lorelie, 2009-02-01T18:27Z
Det funkade!, blev inga fel
Permalänk: https://www.webforum.nu/p/2167361
## #24 — voigtann1, 2009-02-01T18:45Z
Då är det ju bara att börja felsöka, kommentera ut Recordset koden, kolla att ditt Connection objekt kan skapas utan några problem osv.
Permalänk: https://www.webforum.nu/p/2167364
## #25 — Lorelie, 2009-02-01T21:28Z
Men sånt kan inte jag =S
Permalänk: https://www.webforum.nu/p/2167390
## #26 — voigtann1, 2009-02-01T21:30Z
Om det är "min" kod du kör: Kommentera ut från rs.Open SQL, MinCon till set RS = Nothing
Så kan du ju se att du kan ansluta dig till din databas korrekt, om det fungera, ta bort kommentaren för rs.Open, om det fungera gå vidare...
Permalänk: https://www.webforum.nu/p/2167391
## #27 — Lorelie, 2009-02-10T17:09Z
Provade nu (inte haft tid på jättelänge!) men det blir samma felmeddelande vad jag än gör!
Permalänk: https://www.webforum.nu/p/2168382
## #28 — Peter S, 2009-02-10T17:22Z
Visa hela avancerad.asp så som den ser ut nu :)
Permalänk: https://www.webforum.nu/p/2168385
## #29 — Lorelie, 2009-02-10T18:06Z
Denna ligger ute på hemsidan nu.
```
Aramennoc.se - Med connemaran i focus
<%
Function SafeSQL(strText)
SafeSQL = Replace(Replace(strText, "\", "\\"), "'", "''")
End Function
Set MinCon = Server.Createobject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DRIVER={MySQL};SERVER=localhost;DATABASE=aramennoc_se;UID=***********;PWD=***********;"
if Request.Form("kon") = "" then
response.write "Du måste välja kön (ett, två eller tre)"
else
kon = ""
for each k in Request.Form("kon")
if kon <> "" then kon = kon & ","
kon = kon & "'" & safesql(k) & "'"
next
SQL = _
"select *" &_
" from hast" &_
" where kon in (" & kon & ")"
farg = SafeSQL(Request.Form("farg"))
ras = SafeSQL(Request.Form("ras"))
namn = SafeSQL(Request.Form("hast"))
stambok = lcase(SafeSQL(Request.Form("stambok")))
uppf = SafeSQL(Request.Form("uppf"))
inskickad_av = SafeSQL(Request.Form("inskickad_av"))
if farg <> "%" then
SQL = SQL & " and farg like '" & farg & "%'"
end if
if ras <> "%" then
SQL = SQL & " and ras like '" & ras & "%'"
end if
if namn <> "" then
SQL = SQL & " and namn like '%" & namn & "%'"
end if
if stambok = "not null" then
SQL = SQL & " and stamboks_nr is not null"
elseif stambok = "null" then
SQL = SQL & " and stamboks_nr is null"
end if
if uppf <> "" then
SQL = SQL & " and uppf like '%" & uppf & "%'"
end if
if inskickad_av <> "" then
SQL = SQL & " and inskickad_av like '%" & inskickad_av & "%'"
end if
bild = SafeSQL(Request.Form("bild"))
if bild <> "" then
SQL = SQL & " and bild_url is not null"
end if
diplom = SafeSQL(Request.Form("diplom"))
if diplom <> "" then
SQL = SQL & " and diplom_ar is not null"
end if
elit = SafeSQL(Request.Form("elit"))
if elit <> "" then
SQL = SQL & " and elit_ar is not null"
end if
SQL = SQL & " order by " & SafeSQL(Request.Form("ordning"))
rs.Open SQL, MinCon
end if
Tillbaka till avancerat sökformulär
Hittade hästar:
<%
Do While Not rs.EOF
%>
><%=rs("namn")%>
<%
IF (rs("bild_url"))<>"" THEN %>
<%
END IF %>
<%
rs.MoveNext
Loop
%>
<%
END IF %>