Avatar billede fauer Nybegynder
03. december 2007 - 13:09 Der er 19 kommentarer og
1 løsning

Vis produkt indtil søgning er fortaget.

Hej Eksperter
Jeg vil gerne undgå denne besked:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'DKnavnID='' AND BlomstID='' AND cmID= AND FarveID='''.

xxxxx/select.asp, line 186

Fordi der ikke er foretaget en søgning endnu, men i stedet vise et produkteksempel indtil der er fortaget en søgning på produkter...

Hvis der ikke er søgt, så vis denne, hvis der er søgt så vis søgeresultat.

Mvh fauer
Avatar billede w13 Novice
03. december 2007 - 15:58 #1
Sådan her?:

If DKnavnID<>"" Then
  //ikke søgt
Else
  //der er søgt - vis søgeresultat
End If
Avatar billede fauer Nybegynder
03. december 2007 - 17:59 #2
Jeg vil gerne koble disse to sammen::::::

Så del 1 bliver vist, indtil del 2 får søge id.

Del 1
<%
strSQL = "Select * From FFtabel where DKnavnID='Blue Jacket'"
Set rs = Conn.Execute(strSQL)

do
    strVisDKnavn ="<br>" & rs("GruppeID") & "<br>" & rs("DKnavnID") & ""
    strVisBil ="<br><img src='/F1A2U3E4R5H6O7L8M/db/upload/" & rs("BilledeNavn") & "' height='28' width='28' border='1'>"

    'strVisLinkA = "<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisDKnavn & "</a>"
    strVisLinkA = "<a onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisDKnavn &"</a>"
    'strVisLinkA = " onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisDKnavn
    'strVisLinkB = "<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisBil & "</a>"
    strVisLinkB = "<font face=""Verdana"" color = ""ffffff"" size = ""1"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisbil &"</font>"
    'strVisLinkB = " onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisBil

    strVisTabel ="<tr align='left' valign='top'><td align='left' valign='top' width='35'>" & strVisLinkB & "</td><td align='left' valign='top' class='norm'>" & strVisLinkA & "</td></tr>"
    Response.Write strVisTabel
    rs.MoveNext
    Loop While Not rs.EOF

Og denne::::::::
Del 2

<%

varDKnavn = Request.Form("DKnavnSelect")
varLnavn = Request.Form("LnavnSelect")
varCm = Request.Form("cmSelect")
varFarve = Request.Form("FarveSelect")
   
if varDKnavn  <> "0" and varLnavn ="0" and varCm ="0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn ="0" and varCm <> "0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel WHERE cmID=" & varCm & " Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn <> "0" and varCm ="0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel WHERE BlomstID='" & varLnavn &"' Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn ="0" and varCm ="0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE FarveID='" & varFarve &"' Order by GruppeID, DKnavnID"

end if

if varDKnavn  <> "0" and varLnavn ="0" and varCm <> "0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' AND cmID=" & varCm & " Order by GruppeID, DKnavnID"

end if

if varDKnavn  <> "0" and varLnavn <> "0" and varCm ="0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn &"' Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn <> "0" and varCm <> "0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel WHERE BlomstID='" & varLnavn &"' AND cmID=" & varCm & " Order by GruppeID, DKnavnID"

end if

if varDKnavn  <> "0" and varLnavn ="0" and varCm ="0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn ="0" and varCm <> "0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn <> "0" and varCm ="0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE BlomstID='" & varLnavn &"' AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

end if

if varDKnavn  <> "0" and varLnavn ="0" and varCm <> "0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' AND cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

end if

if varDKnavn  <> "0" and varLnavn <> "0" and varCm ="0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn & "'" & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn <> "0" and varCm <> "0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE BlomstID='" & varLnavn &"' AND cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

end if

if varDKnavn  <> "0" and varLnavn <> "0" and varCm <> "0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn & "'" & " AND cmID=" & varCm & " Order by GruppeID, DKnavnID"

end if

if varDKnavn  <> "0" and varLnavn <> "0" and varCm <> "0" and varFarve <> "0" then
    strSQL = "SELECT * FROM FFtabel WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn & "'" & " AND cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

end if

if varDKnavn  ="0" and varLnavn ="0" and varCm ="0" and varFarve ="0" then
    strSQL = "SELECT * FROM FFtabel Order by GruppeID, DKnavnID"
end if

Set rs = Conn.Execute(strSQL)

if Not rs.EOF then
    do

    strVisDKnavn ="<br>" & rs("DKnavnID") & "<br>" & rs("GruppeID") & ""
    strVisBil ="<br><img src='/F1A2U3E4R5H6O7L8M/db/upload/" & rs("BilledeNavn") & "' height='28' width='28' border='1'>"

    'strVisLinkA = "<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisDKnavn & "</a>"
    strVisLinkA = "<a onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisDKnavn &"</a>"
    'strVisLinkA = " onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisDKnavn
    'strVisLinkB = "<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisBil & "</a>"
    strVisLinkB = "<font face=""Verdana"" color = ""ffffff"" size = ""1"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisbil &"</font>"
    'strVisLinkB = " onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisBil

    strVisTabel="<tr valign='top' align='left'><td width='35'>"&strVisLinkB&"</td><td class='norm'>"&strVisLinkA&"</td></tr>"

    Response.Write strVisTabel
    rs.MoveNext
    Loop While Not rs.EOF   
else
    response.write("Der&nbsp;er&nbsp;ingen&nbsp;plante&nbsp;der</br>passer&nbsp;til&nbsp;din&nbsp;s&oslash;gning")
end if
Avatar billede w13 Novice
03. december 2007 - 18:20 #3
Sådan:
-------------------------------------------------------------------
<%if Request.Querystring("id")="" then
    Set rs=Conn.Execute("Select * From FFtabel where DKnavnID='Blue Jacket'")
    do
        strVisDKnavn ="<br>" & rs("GruppeID") & "<br>" & rs("DKnavnID") & ""
        strVisBil ="<br><img src='/F1A2U3E4R5H6O7L8M/db/upload/" & rs("BilledeNavn") & "' height='28' width='28' border='1'>"

        'strVisLinkA = "<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisDKnavn & "</a>"
        strVisLinkA = "<a onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisDKnavn &"</a>"
        'strVisLinkA = " onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisDKnavn
        'strVisLinkB = "<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisBil & "</a>"
        strVisLinkB = "<font face=""Verdana"" color = ""ffffff"" size = ""1"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisbil &"</font>"
        'strVisLinkB = " onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisBil

        strVisTabel ="<tr align='left' valign='top'><td align='left' valign='top' width='35'>" & strVisLinkB & "</td><td align='left' valign='top' class='norm'>" & strVisLinkA & "</td></tr>"
        Response.Write strVisTabel
        rs.MoveNext
    Loop While Not rs.EOF

else
    varDKnavn=Request.Form("DKnavnSelect")
    varLnavn=Request.Form("LnavnSelect")
    varCm=Request.Form("cmSelect")
    varFarve=Request.Form("FarveSelect")

    strSQL="SELECT * FROM FFtabel "

    if varDKnavn<>"0" and varLnavn ="0" and varCm ="0" and varFarve ="0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn ="0" and varCm <> "0" and varFarve ="0" then strSQL = strSQL&"WHERE cmID=" & varCm & " Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn <> "0" and varCm ="0" and varFarve ="0" then strSQL = strSQL&"WHERE BlomstID='" & varLnavn &"' Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn ="0" and varCm ="0" and varFarve <> "0" then strSQL = strSQL&"WHERE FarveID='" & varFarve &"' Order by GruppeID, DKnavnID"

    if varDKnavn<>"0" and varLnavn ="0" and varCm <> "0" and varFarve ="0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' AND cmID=" & varCm & " Order by GruppeID, DKnavnID"

    if varDKnavn<>"0" and varLnavn <> "0" and varCm ="0" and varFarve ="0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn &"' Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn <> "0" and varCm <> "0" and varFarve ="0" then strSQL = strSQL&"WHERE BlomstID='" & varLnavn &"' AND cmID=" & varCm & " Order by GruppeID, DKnavnID"

    if varDKnavn<>"0" and varLnavn ="0" and varCm ="0" and varFarve <> "0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn ="0" and varCm <> "0" and varFarve <> "0" then strSQL = strSQL&"WHERE cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn <> "0" and varCm ="0" and varFarve <> "0" then strSQL = strSQL&"WHERE BlomstID='" & varLnavn &"' AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

    if varDKnavn<>"0" and varLnavn ="0" and varCm <> "0" and varFarve <> "0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' AND cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

    if varDKnavn<>"0" and varLnavn <> "0" and varCm ="0" and varFarve <> "0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn & "'" & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn <> "0" and varCm <> "0" and varFarve <> "0" then strSQL = strSQL&"WHERE BlomstID='" & varLnavn &"' AND cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

    if varDKnavn<>"0" and varLnavn <> "0" and varCm <> "0" and varFarve ="0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn & "'" & " AND cmID=" & varCm & " Order by GruppeID, DKnavnID"

    if varDKnavn<>"0" and varLnavn <> "0" and varCm <> "0" and varFarve <> "0" then strSQL = strSQL&"WHERE DKnavnID='" & varDKnavn &"' AND BlomstID='" & varLnavn & "'" & " AND cmID=" & varCm & " AND FarveID='" & varFarve & "' Order by GruppeID, DKnavnID"

    if varDKnavn="0" and varLnavn ="0" and varCm ="0" and varFarve ="0" then strSQL = strSQL&"Order by GruppeID, DKnavnID"

    Set rs=Conn.Execute(strSQL)

    if Not rs.EOF then
        do
            strVisDKnavn="<br>" & rs("DKnavnID") & "<br>" & rs("GruppeID") & ""
            strVisBil="<br><img src='/F1A2U3E4R5H6O7L8M/db/upload/" & rs("BilledeNavn") & "' height='28' width='28' border='1'>"

            'strVisLinkA="<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisDKnavn & "</a>"
            strVisLinkA="<a onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisDKnavn &"</a>"
            'strVisLinkA=" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisDKnavn
            'strVisLinkB="<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisBil & "</a>"
            strVisLinkB="<font face=""Verdana"" color = ""ffffff"" size = ""1"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisbil &"</font>"
            'strVisLinkB=" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisBil

            strVisTabel="<tr valign='top' align='left'><td width='35'>"&strVisLinkB&"</td><td class='norm'>"&strVisLinkA&"</td></tr>"

            Response.Write strVisTabel
            rs.MoveNext
        Loop While Not rs.EOF   
    else
        Response.Write "Der&nbsp;er&nbsp;ingen&nbsp;plante&nbsp;der</br>passer&nbsp;til&nbsp;din&nbsp;s&oslash;gning"
    end if
end if%>
-----------------------------------------------------------
Men du burde nu nok forkorte SQL'en i del 2, så den ikke fylder 30 linjer. Altså sådan her:

strSQL="SELECT * FROM FFtabel "

if varDKnavn<>"" and varLnavn<>"" and varCm<>"" and varFarve<>"" then strSQL=strSQL&"WHERE "

if varDKnavn<>"" then strSQL=strSQL&" DKnavnID='"&varDKnavn&"' "
if varLnavn<>"" then strSQL=strSQL&" BlomstID='"&varLnavn&"' "
if varCm<>"" then strSQL=strSQL&" cmID='"&varCm&"' "
if varFarve<>"" then strSQL=strSQL&" FarveID='"&varFarve&"' "

strSQL=strSQL&"ORDER BY GruppeID, DKnavnID"
Avatar billede w13 Novice
03. december 2007 - 18:30 #4
if varCm<>"" then strSQL=strSQL&" cmID='"&varCm&"' "
sku' være
if varCm<>"" then strSQL=strSQL&" cmID="&varCm&" "
i mit sidste eksempel.
Avatar billede w13 Novice
03. december 2007 - 18:33 #5
Hm. Glemte "AND" som jo også skal med i det sidste eksempel:
----------------------------------
strSQL="SELECT * FROM FFtabel "

if varDKnavn<>"" and varLnavn<>"" and varCm<>"" and varFarve<>"" then strSQL=strSQL&"WHERE "

i=0
if varDKnavn<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" DKnavnID='"&varDKnavn&"' "
    i=i+1
end if
if varLnavn<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" BlomstID='"&varLnavn&"' "
    i=i+1
end if
if varCm<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" cmID="&varCm&" "
    i=i+1
end if
if varFarve<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" FarveID='"&varFarve&"' "
    i=i+1
end if

strSQL=strSQL&"ORDER BY GruppeID, DKnavnID"
Avatar billede w13 Novice
03. december 2007 - 18:43 #6
Og inde i din nuværende kode bliver det:
-----------------------------------------------
<%if Request.Form("cmSelect")="" then
    Set rs=Conn.Execute("Select * From FFtabel where DKnavnID='Blue Jacket'")
    do
        strVisDKnavn="<br>" & rs("GruppeID") & "<br>" & rs("DKnavnID") & ""
        strVisBil="<br><img src='/F1A2U3E4R5H6O7L8M/db/upload/" & rs("BilledeNavn") & "' height='28' width='28' border='1'>"

        'strVisLinkA="<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisDKnavn & "</a>"
        strVisLinkA="<a onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisDKnavn &"</a>"
        'strVisLinkA=" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisDKnavn
        'strVisLinkB="<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisBil & "</a>"
        strVisLinkB="<font face=""Verdana"" color = ""ffffff"" size = ""1"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisbil &"</font>"
        'strVisLinkB=" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisBil

        strVisTabel="<tr align='left' valign='top'><td align='left' valign='top' width='35'>" & strVisLinkB & "</td><td align='left' valign='top' class='norm'>" & strVisLinkA & "</td></tr>"
        Response.Write strVisTabel
        rs.MoveNext
    Loop While Not rs.EOF
else
    varDKnavn=Request.Form("DKnavnSelect")
    varLnavn=Request.Form("LnavnSelect")
    varCm=Request.Form("cmSelect")
    varFarve=Request.Form("FarveSelect")

strSQL="SELECT * FROM FFtabel "

if varDKnavn<>"" and varLnavn<>"" and varCm<>"" and varFarve<>"" then strSQL=strSQL&"WHERE "

i=0
if varDKnavn<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" DKnavnID='"&varDKnavn&"' "
    i=i+1
end if
if varLnavn<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" BlomstID='"&varLnavn&"' "
    i=i+1
end if
if varCm<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" cmID="&varCm&" "
    i=i+1
end if
if varFarve<>"" then
    if i>0 then strSQL=strSQL&"AND "
    strSQL=strSQL&" FarveID='"&varFarve&"' "
    i=i+1
end if

strSQL=strSQL&"ORDER BY GruppeID, DKnavnID"

    Set rs=Conn.Execute(strSQL)

    if Not rs.EOF then
        do
            strVisDKnavn="<br>" & rs("DKnavnID") & "<br>" & rs("GruppeID") & ""
            strVisBil="<br><img src='/F1A2U3E4R5H6O7L8M/db/upload/" & rs("BilledeNavn") & "' height='28' width='28' border='1'>"

            'strVisLinkA="<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisDKnavn & "</a>"
            strVisLinkA="<a onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisDKnavn &"</a>"
            'strVisLinkA=" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisDKnavn
            'strVisLinkB="<a href=""#"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');"">" & strVisBil & "</a>"
            strVisLinkB="<font face=""Verdana"" color = ""ffffff"" size = ""1"" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');""style=""cursor:hand; cursor:pointer;"">" & strVisbil &"</font>"
            'strVisLinkB=" onClick=""multilink('billede.asp?ID=" & rs("ID") & "', 'forhandler.asp?ID=" & rs("ID") & "');" & strVisBil

            strVisTabel="<tr valign='top' align='left'><td width='35'>"&strVisLinkB&"</td><td class='norm'>"&strVisLinkA&"</td></tr>"

            Response.Write strVisTabel
            rs.MoveNext
        Loop While Not rs.EOF   
    else
        Response.Write "Der&nbsp;er&nbsp;ingen&nbsp;plante&nbsp;der</br>passer&nbsp;til&nbsp;din&nbsp;s&oslash;gning"
    end if
end if%>
----------------------------------
Her bliver del 1 kun vist, hvis Request.Form("cmSelect") ikke er sat. Ved ikke, om det er helt rigtigt.
Avatar billede fauer Nybegynder
03. december 2007 - 23:09 #7
Har ikke testet det af endnu, men del 1 skal kun vises hvis ingen af følgende er sat Request.Form("DKnavnSelect")
Request.Form("LnavnSelect")
Request.Form("cmSelect")
Request.Form("FarveSelect")
Altså kun siden bliver loaded første gang, og der ikke er taget nogen form valg
Avatar billede w13 Novice
04. december 2007 - 02:29 #8
Så ret:
if Request.Form("cmSelect")="" then
til:
if Request.Form.Length=0 then

Det burde virke. Medmindre du sender brugeren hen til del 1 af siden, med en anden form. =)
Avatar billede fauer Nybegynder
04. december 2007 - 10:39 #9
Jeg får følgende fejl:

Microsoft VBScript runtime  error '800a01b6'
Object doesn't support this property or method: 'Length'

Med: if Request.Form("cmSelect")="" then
Får jeg kun fejlmeddelsen: Der er ingen plante der passer til din søgning. "Blue Jacket" bliver ikke vist.
Avatar billede w13 Novice
04. december 2007 - 13:26 #10
Prøv .count i stedet for .length ...
Og alternativt:
If (Request.Form("DKnavnSelect")&Request.Form("LnavnSelect")&Request.Form("cmSelect")&Request.Form("FarveSelect"))="" Then
Avatar billede fauer Nybegynder
04. december 2007 - 14:16 #11
fauerflora dot dk slash Afauerflora slash fauerflora

.count virker men... jeg får stadig den samme fejlmeddelse(Der er ingen plante der passer til din søgning), når jeg laver en søgning
Avatar billede w13 Novice
04. december 2007 - 14:49 #12
Ret:
strSQL=strSQL&"ORDER BY GruppeID, DKnavnID"
til:
strSQL=strSQL&"ORDER BY GruppeID, DKnavnID"
response.write strSQL

Så fortæller den os, hvordan den prøver at finde planterne.
Avatar billede fauer Nybegynder
04. december 2007 - 15:12 #13
sådan!
Avatar billede fauer Nybegynder
04. december 2007 - 15:24 #14
Jeg vender frygtelig tilbage i morgen
Avatar billede w13 Novice
19. januar 2008 - 15:50 #15
:)
Avatar billede fauer Nybegynder
19. januar 2008 - 23:27 #16
Undskyld w13..

Jeg har ikke haft tid til at kigge på det siden, og er stadig hængt op. Måske kan jeg kigge på det i morgen søndag.

Men lige nu får du point som tak for din toldmodighed... ;o) så må jeg jo håbe du vil hjælpe mig igen en anden dag.

Mvh fauer
Avatar billede w13 Novice
19. januar 2008 - 23:36 #17
Jeg tænkte bare, at problemet ikke længere var aktuelt. Du kan bare skrive, når du får tid. =)

Og tak for point!
Avatar billede w13 Novice
20. januar 2008 - 00:21 #18
*at problemet måske ikke længere var aktuelt.
Avatar billede fauer Nybegynder
20. januar 2008 - 21:07 #19
w13 hvis du stadig er på, så kunne jeg virkelig godt bruge din hjælp...
se her på fauerflora dot dk slash Afauerflora slash fauerflora.
Jeg tror at problematikken er i at jeg reloader formene DKnavnSelect, LnavnSelect, cmSelect, FarveSelect når der bliver klikket SØG. Så de valg der var i select boksene er jo væk, og derfor er der ingen valg der passer til søgningen.
Hvordan kan jeg få selectboksene til at huske valget, selv om den bliver reloadet.

Mvh fauer
Avatar billede fauer Nybegynder
21. januar 2008 - 11:31 #20
w13 jeg har oprettet et nyt spørgsmål på ovenstående, hvis du skulle have lyst til at kigge på det. http://www.eksperten.dk/spm/815763

Mvh fauer
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester