Kan sku ikke finde ud af at få det til at virke!

gør sådan for hver variabel

if hojde <>\"\" THEN

SQL = SQL & \"AND WHERE hojde <  \'& hojde2 &\'  \"
END IF

hojde1 = request.querystring(\"hojde1\")
kon = request.querystring(\"kon\")
ledig = request.querystring(\"ledig\")
hojde2 = request.querystring(\"hojde2\")
vagt1 = request.querystring(\"vagt1\")
vagt2 = request.querystring(\"vagt2\")
alder1 = request.querystring(\"alder1\")
alder2 = request.querystring(\"alder2\")
soger = request.querystring(\"soger\")
bygning = request.querystring(\"bygning\")
born = request.querystring(\"born\")
musik = request.querystring(\"musik\")
ryger = request.querystring(\"ryger\")




SQL = SQL & \"SELECT * \"
SQL = SQL & \"FROM users \"

SQL = SQL & \"WHERE date =  \"& CInt(1) &\"  AND WHERE p_sex =  \"& kon &\" \"
if hojde <>\"\" THEN
SQL = SQL & \"AND WHERE hojde >  \" & hojde1 &\"  \"
END IF
if hojde <>\"\" THEN
SQL = SQL & \"AND WHERE hojde <  \'& hojde2 &\'  \"
END IF
if alder <>\"\" THEN
SQL = SQL & \"AND WHERE alder >  \'& alder1 &\'  \"
end if
if alder <>\"\" THEN
SQL = SQL & \"AND WHERE alder <  \'& alder2 &\'  \"
end if
if vagt <>\"\" THEN
SQL = SQL & \"AND WHERE vagt >  \'& vagt1 & \"
end if
if vagt <>\"\" THEN
SQL = SQL & \"AND WHERE vagt <  \'& vagt2 &\' \"
end if
if soeger <>\"\" THEN
SQL = SQL & \"AND WHERE soger =  \"& soger &\" \"
end if
if bygning <>\"\" THEN
SQL = SQL & \"AND WHERE bygning =  \"& bygning &\" \"
end if
if born <>\"\" THEN
SQL = SQL & \"AND WHERE born =  \"& born &\"  \"
end if
if musik <>\"\" THEN
SQL = SQL & \"AND WHERE musik LIKE  \"& musik &\"  \"
end if
if ryger <>\"\" THEN
SQL = SQL & \"AND WHERE ryger =  \"& ryger &\"  \"
end if
if ledig <>\"\" THEN
SQL = SQL & \"AND WHERE ledig =  \"& CInt(ledig) &\"  \"
end if

SQL = SQL & \"ORDER BY id DESC\"
set RS = Conn.Execute(SQL)
RS.MoveFirst()
while not RS.EOF

%>

Arbejder på en anden løsningen, så giv mig lige 5 minutter mere :)

så får jeg måske inden points :-) *snøft*

Har ikke testet det:

<%
dim tmpFelter(11), tmpSql(11)

tmpFelter = split(\"hojde1,kon,ledig,hojde2,vagt1,vagt2,alder1,alder2,soger,bygning,born,musik,ryger\",\",\")

for i = 0 to 12
    if request(tmpFelter(i)) <> \"\" then
        if tmpFelter(i) = \"musik\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] like %\"\" & lcase(request(\" & tmpFelter(i) & \")) & \"\"%\"
        elseif tmpfelter(i) = \"hojde1\" or tmpfelter(i) = \"alder1\" or tmpfelter(i) = \"vagt1\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] > \'\"\" & request(\" & tmpFelter(i) & \") & \"\"\'\"
        elseif tmpfelter(i) = \"hojde2\" or tmpfelter(i) = \"alder2\" or tmpfelter(i) = \"vagt2\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] < \'\"\" & request(\" & tmpFelter(i) & \") & \"\"\'\"
        else
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] = \'\"\" & lcase(request(\" & tmpFelter(i) & \")) & \"\"\'\"
        end if
    end if
    endSql = endSql & tmpSql(i)
next

sql = \"select * from [users] where [date] = \" & cint(1) & endSql & \" order by [id] desc\"
set rs = conn.execute(sql)
%>

ups... lille fejl... ændre første linie til:

dim tmpFelter(12), tmpSql(12)

sådan her????


<% IF request.querystring(\"action\") = \"sog2\" THEN %>

<center><font size=2>
<a href=\"profil.asp?action=ledigekon&kon=mand\">Ledige mænd</a>
-
<a href=\"profil.asp?action=ledigekon&kon=kvinde\">Ledige Kvinder</a>
-
<a href=\"profil.asp?action=all&kon=mand\">Alle mænd</a>
-
<a href=\"profil.asp?action=all&kon=kvinde\">Alle kvinder</a>
<br>
<form method=get action=\"profil.asp?action=sog\">Søg profil <input name=text type=text><input type=submit value=Søg></form>
</font>
</center>
<br>

<table width=\"98%\">
<tr>
<td><font size=\"2\">Nick name</font></td>
<td></td>
<td><font size=\"2\">Alder</font></td>
<td><font size=\"2\">Fri text</font></td>
<td><font size=\"2\">Sidst online</font></td>
</tr>
<%
dim tmpFelter(12), tmpSql(12)

tmpFelter = split(\"hojde1,kon,ledig,hojde2,vagt1,vagt2,alder1,alder2,soger,bygning,born,musik,ryger\",\",\")

for i = 0 to 12
    if request(tmpFelter(i)) <> \"\" then
        if tmpFelter(i) = \"musik\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] like %\"\" & lcase(request(\" & tmpFelter(i) & \")) & \"\"%\"
        elseif tmpfelter(i) = \"hojde1\" or tmpfelter(i) = \"alder1\" or tmpfelter(i) = \"vagt1\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] > \'\"\" & request(\" & tmpFelter(i) & \") & \"\"\'\"
        elseif tmpfelter(i) = \"hojde2\" or tmpfelter(i) = \"alder2\" or tmpfelter(i) = \"vagt2\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] < \'\"\" & request(\" & tmpFelter(i) & \") & \"\"\'\"
        else
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] = \'\"\" & lcase(request(\" & tmpFelter(i) & \")) & \"\"\'\"
        end if
    end if
    endSql = endSql & tmpSql(i)
next

sql = \"select * from [users] where [date] = \" & cint(1) & endSql & \" order by [id] desc\"
set rs = conn.execute(sql)
%> 

<tr>
<td><font size=\"2\"><a href=\"profilvis.asp?ID=<%=RS.Fields(\"id\")%>\"><%=RS.Fields(\"username\")%></a></font></td>
<td>
<%
p_sex = RS.Fields(\"p_sex\")
IF p_sex = \"mand\" THEN %> <img src=\"images/boy.gif\"> <% ELSE %><img src=\"images/girl.gif\"><% END IF %><%
pic = RS.Fields(\"pic\")
IF pic <> \"\" THEN %>&nbsp;<img src=\"images/pic.gif\"><% ELSE %>&nbsp;<% END IF %>
</td>
<td>Alder</td>
<td><font size=\"2\"><%=RS.Fields(\"p_txt\")%></font></td>
<td><font size=\"2\"><%=RS.Fields(\"gammelonlinetid\")%></font></td>
</tr>
<%
    RS.MoveNext()
WEND
%>
</table>
<% END IF %>

den skal også loope det!!

Jeg er ikke med længere... Hvad er det den skal loope?

Det er tydeligt at se på din kode at du er ny i kodningsfaget, men det har vi jo alle været, men her er lidt tips:

Jeg kan ikke helt se om du bruger FrontPage til at lave din kode, men hvis du gør, så stop! Få fat i en kode editor såsom Homesite og lær fra starten at kode siden fra bunden. Det tager lidt længere tid, men din kode bliver også meget bedere.

Lav koder med indryk da dette gør det meget nemmere at finde rundt i det. Hvis du ikke fostår hvad jeg mener med indryk så er det et eksempel her:

<table>
    <tr>
        <td></td>
    </tr>
</table>

Hverken i html eller i asp er det nødvendigt at bruge store og små bogstaver, så lad vær med at bruge tid på det, og bare skriv det hele med små bogstaver.

Lær at lave hele din side i asp, altså udskrive din html via asp. Dette vil gøre store sider hurtigere.

*G* Hvad har du NU gang i Kasper?

Jeg koder i koder og det er sku 1000 år side jeg brugte Fontpage!

Men det søge script er til en dating side som jeg arbejder på!

den skal så vise alle de bruger med denne kode

<tr>
<td><font size=\"2\"><a href=\"profilvis.asp?ID=<%=RS.Fields(\"id\")%>\"><%=RS.Fields(\"username\")%></a></font></td>
<td>
<%
p_sex = RS.Fields(\"p_sex\")
IF p_sex = \"mand\" THEN %> <img src=\"images/boy.gif\"> <% ELSE %><img src=\"images/girl.gif\"><% END IF %><%
pic = RS.Fields(\"pic\")
IF pic <> \"\" THEN %>&nbsp;<img src=\"images/pic.gif\"><% ELSE %>&nbsp;<% END IF %>
</td>
<td>Alder</td>
<td><font size=\"2\"><%=RS.Fields(\"p_txt\")%></font></td>
<td><font size=\"2\"><%=RS.Fields(\"gammelonlinetid\")%></font></td>
</tr>

som opfylder de krav som men sette med scriptet!!!

Din kode burde se sådan her ud:

do while not rs.eof

response.write \"<tr>\" &_
                  \"<td><font size=\"\"2\"\"><a href=\"\"profilvis.asp?ID=\" & rs(\"id\")& \"\"\">\" & rs(\"username\") & \"</a></font></td>\" &_
                    \"<td>\"

if_rs(\"p_sex\") = \"mand\" then
    response.write \"<img src=\"\"images/boy.gif\"\">\"
else
    response.write \"<img src=\"\"images/girl.gif\"\">
end if

if rs(\"pic\") <> \"\" then
    response.write \" <img src=\"\"images/pic.gif\"\">\"
else
    response.write \" \"
end if

response.write \"</td>\" &_
              \"<td>Alder</td>\" &_
              \"<td><font size=\"\"2\"\">\" & rs(\"p_txt\") & \"</font></td>\" &_
              \"<td><font size=\"\"2\"\">\" & rs(\"gammelonlinetid\") & \"</font></td>\" &_
          \"</tr>\"

rs.movenext
loop

response.write \"</table>\"

end if

Jeg er lige glad med hvor hurtigt siden køre for min server er på en 68 mbit connection!

jeg ville bare gerne have søge scritet til at virke!!!

doomstone.....du har snydt mange brugere for point.....jeg syntes du skal bemærke at point er gratis, det koster ikke noget og du har fået rigeligt med hjælp........det er fandeme frækt....

du må se at få rodet bod på disse ugerninger, ved at oprette nye spørgsmål og dele point ud..... du har til lørdag ellers vil du blive \"anmeldt\" for snyd

http://www.eksperten.dk/spm/126786
http://www.eksperten.dk/spm/127224
http://www.eksperten.dk/spm/126699
http://www.eksperten.dk/spm/126689
http://www.eksperten.dk/spm/126309
http://www.eksperten.dk/spm/128506

doomstone >> Du er anmeldt

Somaliomar >> Det er fordi jeg selv havede fundet ud af at fixe det før de svarede med et svar det virkede og skule jeg så alige vel give dem point???

PAS LIDT PÅ MED DE ANMELDERSER

somaliomar  >> Du er anmeldt

ER der en der kan vise mig hvordan

<%
dim tmpFelter(11), tmpSql(11)

tmpFelter = split(\"hojde1,kon,ledig,hojde2,vagt1,vagt2,alder1,alder2,soger,bygning,born,musik,ryger\",\",\")

for i = 0 to 12
    if request(tmpFelter(i)) <> \"\" then
        if tmpFelter(i) = \"musik\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] like %\"\" & lcase(request(\" & tmpFelter(i) & \")) & \"\"%\"
        elseif tmpfelter(i) = \"hojde1\" or tmpfelter(i) = \"alder1\" or tmpfelter(i) = \"vagt1\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] > \'\"\" & request(\" & tmpFelter(i) & \") & \"\"\'\"
        elseif tmpfelter(i) = \"hojde2\" or tmpfelter(i) = \"alder2\" or tmpfelter(i) = \"vagt2\" then
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] < \'\"\" & request(\" & tmpFelter(i) & \") & \"\"\'\"
        else
            tmpSql(i) = \" and [\" & tmpFelter(i) & \"] = \'\"\" & lcase(request(\" & tmpFelter(i) & \")) & \"\"\'\"
        end if
    end if
    endSql = endSql & tmpSql(i)
next

sql = \"select * from [users] where [date] = \" & cint(1) & endSql & \" order by [id] desc\"
set rs = conn.execute(sql)
%>

virker til min side for jeg fatter ikek noget at den!

Ja, jeg synes, at de skal have deres point også selvom du selv har fundet ud af svaret. Folk bruger tid på at hjælpe dig!

Hvis du virkelig er så nærig, at du ikke vil give dem alle point, kan du da i det mindste give de, der prøver at hjælpe, bare en lille smule af dine points eller sige tak. Du er vist klar over, at der er noget der hedder TAK FOR HJÆLPEN!

doomstone >> Anmelder du mig fordi jeg har anmeldt dig for at snyde andre brugere for points?

Ref: http://www.eksperten.dk/spm/129290

doomstone>>
Samme SPM begge gange lukket af dig selv:
http://www.eksperten.dk/spm/127224
http://www.eksperten.dk/spm/126689

Jeg har selv hjulpet dig et par gange og du gider jo ikke rigtig havde en løsning for du lukker bare uden at svare på det du bliver spurgt om. Du har jo ikke lært af de spørgsmål du har stillet det er de samme fejl der skal rettes hver gang.

Jeg kan stadig se et par fejl i den SQL men.....

kommentar fra doomstone>>>Det er fordi jeg selv havede fundet ud af at fixe det før de svarede med et svar det virkede og skule jeg så alige vel give dem point???

DU HAR JO NETOP IKKE SELV FUNDET EN LØSNING....3 spørsgmål, samme SQL, men med et par dages mellemrum.

http://www.eksperten.dk/spm/129290
http://www.eksperten.dk/spm/127224
http://www.eksperten.dk/spm/126689

Tue det du viset mig virker sikkert men jeg kan ikke selv finde d af at sette det ind så jeg vil være glæad hvis du kunne konkate mig via icq eller email omkring jeg skal bruge det til den side!!