Asp kode, viser ingen ting

Du kan få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

skal koden vise et eller flere links?

Flere links...

Prøver lige

Oki det er If rs("emne_id") = " & Request.Querystring("id") then

Hvis jeg laver den sådan:
If rs("emne_id") = "" & Request.Querystring("id") then
Så får jeg da hjemmesiden af se men der er stadig fejl i den string

Der er en masse crap i det her, men tjek lige om ikke det kan udskrive

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From artikel Order by overskrift Desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
        %><br>
                    <table cellspacing="1" cellpadding="2" border="0" bgcolor="#AEBCC7" align="center" height="44" width="572">
                      <tr valign="top" align="center" bgcolor="#eef6fb">
                        <td class="downloads" bgcolor="#FFFFFF" width="365" height="25">
                          <div align="left"><b>Artikler</b></div>
                        </td>
                      </tr>
                      <%
Do While Not rs.EOF
%>
                      <tr valign="top" align="center" bgcolor="#eef6fb">
                        <td class="downloads" bgcolor="#FFFFFF" width="365" height="2">
                          <table width="413" border="0" cellspacing="0" cellpadding="0" bordorcolordark="black"  bordercolor="#CCCCCC" height="65">
                            <tr>
                              <td width="39%" height="22"><font face="Courier New, Courier, mono" size="2"><font size="3">
                                <% = rs("DetDerskalSkrivesUd") %>
                                </font></font></td>
                            </tr>
                          </table>
                        </td>
                      </tr>
                      <%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
%>
                    </table>
                <br><div align="center"><font face="Courier New, Courier, mono"><%
Else
%>
                  </font></div>
                    <div align="center"><font face="Courier New, Courier, mono"><span class="overskrift"><font color="#FF0000" size="2"><b>Ingen
                      Tomt</b></font> </span>
                      <%
End If
rs.Close
Set rs = Nothing

%>

hmm
Hvor skriver du hvilken tabel du henter fra ?

Den fejler ikke

Arh har fundet det

virkede den? kunne det bruges? lidt feedback? hehe:P

Hehe roder med at jeg tror det er databasen

error '80020009'
/index_artikel_read.asp, line 113


If rs("emne_id") = "" AND Request.Querystring("id") <> "" then

Der kom nemlig ikke noget ud af din :P

måske det er dette problem?
http://support.microsoft.com/kb/q175239/

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/data.mdb")
Conn.Open DSN

strSQL = "Select * From artikel Order by overskrift Desc"
Set rs = Conn.Execute(strSQL)

fundet = false
While NOT rs.EOF OR fundet = false
If rs("emne_id") = "" AND Request.Querystring("id") <> "" then

    strNavn = rs("overskrift")

      strLink = "<span style=""color: black;""><a href='index_artikel_now.asp?id=" & rs("Id") & "'>" & strNavn & "</span></a>"

  Response.Write "<li>" & strLink & "</li>"
fundet = true
  End if
  rs.MoveNext
wend

Conn.Close
Set Conn = Nothing
%>   


Forfanden kan da ikke passe :S

Man må da kunne lave en If sætning med Request.Querystring ??

jeg er slet ikke så dygtig til ASP.. men hvorfor en if uden en else?

Nu virker siden men der kommer ikke noget ud :D

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/data.mdb")
Conn.Open DSN

strSQL = "Select * From artikel Order by overskrift Desc"
Set rs = Conn.Execute(strSQL)

fundet = false
While NOT rs.EOF OR fundet = false
If rs("emne_id") = "" AND Request.Querystring("id") <> "" then

    strNavn = rs("overskrift")

      strLink = "<span style=""color: black;""><a href='index_artikel_now.asp?id=" & rs("Id") & "'>" & strNavn & "</span></a>"

  Response.Write "<li>" & strLink & "</li>"

  else
 
    fundet = true
   
  End if
  rs.MoveNext

wend

Conn.Close
Set Conn = Nothing
%>

tror det fordi den ikke køre din if sætning

Hvad ønsker du den skal gøre?
Angående koden  12/02-2005 15:41:41  så virker det lidt underligt du har fundet=true i else delen det betyder hvis if sætningen ikke er opfyldt så går den ud af loopet da du har fundet som en betingelse til at stoppe loopet.

En af jer opret et svar .. ..
Ved ikke lige hvad jeg har lavet der ...

ok