Redirect med relation

<%response.buffer = true %>
<HTML>
<BODY>
<%
url = request.querystring(\"url\")
if url <> \"\" then
url = strreverse(url)
urlarr = split(url, \"/\")
url = strreverse(urlarr(0))

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
if IsNumeric(url) then
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
if rs.eof then
response.write(\"Artiklen er der IKKE\")
go1 = 1
else
response.redirect(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\" & url)
end if
set rs = nothing
else
SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
set rs = dbconn.execute(SQL)
if rs.eof then
go2 = 1
else
response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste?Category=\" & url)
end if
end if
dbconn.close
set dbconn = nothing
else
response.write(\"Der er ikke angivet nogen side\")
end if
if go1 = 1 AND go2 = 1 then
reponse.redirect(\"http://www.erhvervstilbud.dk/redirect/nopage.asp\")
end if
%>
</BODY>

Virker ikke med dette kald:
http://www.erhvervstilbud.dk/redirect/tracer.asp?url=http://www.sandgaard.dk/32

Eller:
http://www.erhvervstilbud.dk/redirect/tracer.asp?url=httgfhsfhsfhp://www.bedstefar%20har%20engammel%20hankat.dfrk/world

Kommer ud med page not found.

<%response.buffer = true %>
<HTML>
<BODY>
<%
url = request.querystring(\"url\")
if url <> \"\" then
url = strreverse(url)
urlarr = split(url, \"/\")
url = strreverse(urlarr(0))

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
if IsNumeric(url) then
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
if rs.eof then
response.write(\"Artiklen er der IKKE\")
go1 = 1
else
response.redirect(server.urlencode(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\" & url))
end if
set rs = nothing
else
SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
set rs = dbconn.execute(SQL)
if rs.eof then
go2 = 1
else
response.redirect(server.urlencode(\"http://www.erhvervstilbud.dk/webalfaliste?Category=\" & url))
end if
end if
dbconn.close
set dbconn = nothing
else
response.write(\"Der er ikke angivet nogen side\")
end if
if go1 = 1 AND go2 = 1 then
reponse.redirect(server.urlencode(\"http://www.erhvervstilbud.dk/redirect/nopage.asp\"))
end if
%>
</BODY>

Virker stadig ikke. Tror du ikke det er de der ;

Jeg har ikke en pind check på det - spørger bare :0)

Arg...for h******, det er eksperten´s funktion til at lave tekst til links, jo tag den seneste og smid ; efter de 3 url´s

Jeg VED at følgende findes:
http://www.erhvervstilbud.dk/redirect/tracer.asp?url=http://www.erhvervstilbud.dk/59

Men den viser i url:
http://www.erhvervstilbud.dk/redirect/http%253A%252F%252Fwww%252Eerhvervstilbud%252Edk%252Fbladre%252Easp%253FArticleId%253D59
og går til 404.asp

Her skulle den gå til bladre.asp?ArticleId=59 (i RODEN)

Jeg VED at følgende ikke findes:
http://www.erhvervstilbud.dk/redirect/tracer.asp?url=http://www.erhvervstilbud.dk/32

I dette tilfælde skal den gå til 404.asp - artiklen findes jo ikke.

Jeg tror,det er galt med den der url.encode :0)

Slå mig lige, tag det første eksempel som jeg lavede fjern semikollonnerne i det, så skulle det virke :-)

Okay - vi holder fast i den første - den virker på 59 og world - en artikel der er der og en kategori, der er der. Den redirecter.

Iøvrigt var det webalfaliste.asp? osv. - min fejl.

Men ved /32 (findes ikke) skrives kun \"Artiklen er der ikke\" - den skal gå til 404.asp - ASP...

Ved world16 skriver den bare i url og går ingen vegne. Den skal også gå til 404.asp

Er du sikker på at du har fået de 3 sidste linier med i det første script jeg skrev ?

Yes - her er koden. Måske skulle vi lave det om til, at man bare fortsætter på siden, hvis der intet findes. Denne side skal nemlig være en 404.asp side lidt senere, og så skal url=request.querystring ændres til
url=request http_referrer eller sådan noget.
Så relationerne for go1 og go2 skal fjernes, og man springer ned til \"Starten af body\", hvor fejlmeddelelsen skrives (Siden findes ikke)

Jeg håber du ser det smarte...

<%response.buffer = true %>
<HTML>
<BODY>
<%
url = request.querystring(\"url\")
if url <> \"\" then
url = strreverse(url)
urlarr = split(url, \"/\")
url = strreverse(urlarr(0))

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
if IsNumeric(url) then
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
if rs.eof then
response.write(\"Artiklen er der IKKE\")
go1 = 1
else
response.redirect(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\"& url)
end if
set rs = nothing
else
SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
set rs = dbconn.execute(SQL)
if rs.eof then
go2 = 1
else
response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste?Category=\"& url)
end if
end if
dbconn.close
set dbconn = nothing
else
response.write(\"Der er ikke angivet nogen side\")
end if
if go1 = 1 AND go2 = 1 then
reponse.redirect(\"http://www.erhvervstilbud.dk/redirect/nopage.asp\")
end if
%>
</BODY>
</HTML>

Bliver det lidt lettere af det? Jeg har sat points op til 50  :0)

Hvem jeg forstår ikke rigtig hvorfor den opfører jeg sig sådan, er der et sted jeg kan se det ?

Yes, de hyperlinks, der er opgivet er ægte...

F.eks www.erhvervstilbud.dk/redirect/tracer.asp?url=hhhhsdbsdvv/32

Prøv lige at bruge denne her, hvad skriver den ud på særmen ?

<%response.buffer = true %>
<HTML>
<BODY>
<%
url = request.querystring(\"url\")
if url <> \"\" then
url = strreverse(url)
urlarr = split(url, \"/\")
url = strreverse(urlarr(0))

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
if IsNumeric(url) then
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
if rs.eof then
response.write(\"Artiklen er der IKKE\")
go1 = 1
else
response.redirect(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\"&; url)
end if
set rs = nothing
else
SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
set rs = dbconn.execute(SQL)
if rs.eof then
go2 = 1
response.write(\"Kategorien er der ikke\")
else
response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste?Category=\"&; url)
end if
end if
dbconn.close
set dbconn = nothing
else
response.write(\"Der er ikke angivet nogen side\")
end if
if go1 = 1 AND go2 = 1 then
reponse.redirect(\"http://www.erhvervstilbud.dk/redirect/nopage.asp\";)
end if
%>
</BODY>
</HTML>

En artikel (nummer) der IKKE findes: Artiklen findes ikke
En artikel (nummer) der FINDES: Korrekt redirect

En kategori der IKKE findes: Kategorien er der ikke
En kategori der FINDES: Redirect til 404.asp

Redirect til 404.asp ? Den er jo ikke defineret nogle steder ?

Nej - og det er OK!!! For på serveren er den opsat til dette. Det er min egen \"page not found\" side.

Er det meningen at den skal redirecte til 404.asp hvis kategorien findes, det er da helt hen i vejret ?

Gider ikke hjælpe dig hvis du smider om dig med ! og snakker til mig som om jeg er en idiot, hvis det er på den måde, kan du få lov at betale 150 eksl. moms pr. time, jeg er her af min egen fri vilje, jeg får jo ikke noget for at være her vel ? !!!!!!!!!!!!!!!!!

Undskyld. Det var overhovedet ikke meningen at råbe. Jeg er meget glad for din hjælp :0)

Det var kun for at sige, at jeg har fået lov til at have denne 404.asp hos min ISP, og at den bruges per default ved page not found. Og dét er helt OK.

Nej, hvis kategorien ikke findes, skal der egentlig bare rulles igennem scriptet og man havner i 404.asp

Det samme gælder, hvis der ikke er en artikel med nummeret.

Okay jamen så tror jeg vi har den her:

<%response.buffer = true
url = request.querystring(\"url\")
if url <> \"\" then
url = strreverse(url)
urlarr = split(url, \"/\")
url = strreverse(urlarr(0))

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
if IsNumeric(url) then
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
if not rs.eof then
response.redirect(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\"& url)
end if
set rs = nothing
else
SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
set rs = dbconn.execute(SQL)
if not rs.eof then
response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste?Category=\"& url)
end if
end if
dbconn.close
set dbconn = nothing
else
response.redirect(\"404.asp\")
end if
response.redirect(\"404.asp\")
%>

Husk at fjerne semikollon.

Okay. Jeg glemte at sige til dig, at jeg er klar over, at denne opgave er svær. Jeg ville aldrig selv kunne lave det.

Super. Nu fungerer det perfekt. Den var tricky :0)
Det som er så svært, er at forklare og skrive om logikken i sådanne scripts. Og når det så skal fyldes ned i et programmeringssprog, så bliver det endnu værre.

Hvis du har lyst, skal denne opgave laves helt færdig. Det bliver nok ikke helt så tricky denne gang.

Vender tilbage imorgen, har travlt idag :-)

Okay :0)

Så er jeg tilbage :-)

Hej netsrac! Er du klar til den sidste opgave i dette opslag - så opretter jeg et nyt spørgsmål...

Ja ja opret du bare et nyt spm. kan jeg ikke klare det kan en anden sikkert :)

Det er nemmere at lave det heri til dig. Så giver jeg bare points 30 til dig bagefter i et nyt spørgsmål.

Nedenstående kode ændres, så logikken bliver følgende:

Hvis artiklen er der, redirectes til http://www.erhvervstilbud.dk/bladre.asp?ArticleId=url
Ellers gåes videre i Category.

Hvis Category er der redirectes til http://www.erhvervstilbud.dk/webalfaliste?Category=url
Eller gåes videre.

NYT NYT: Her skal du bruge \"select * from leverandor\"

Hvis LevAlias er der redirectes til
http://www.erhvervstilbud.dk/webalfaliste?LevAlias=url

Hvis artiklen IKKE er der OG Kategorien OG LevAlias ikke findes - redirectes til
http://www.erhvervstilbud.dk/redirect/nopage.asp

Kode:
<%
url = request(\"query_string\")
if url <> \"\" then
url = strreverse(url)
urlarr = split(url, \"/\")
url = strreverse(urlarr(0))

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
if IsNumeric(url) then
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
if not rs.eof then
response.redirect(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\"& url)
end if
set rs = nothing
else
SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
set rs = dbconn.execute(SQL)
if not rs.eof then
response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste.asp?Category=\"& url)
end if
end if
dbconn.close
set dbconn = nothing
else
response.redirect(\"/redirect/nopage.asp?value=\"& url)
end if
response.redirect(\"/redirect/nopage.asp?value=\"& url)
%>

<%
url = request(\"query_string\")
if url <> \"\" then
    url = strreverse(url)
    urlarr = split(url, \"/\")
    url = strreverse(urlarr(0))

    Set dbConn = Server.CreateObject(\"ADODB.Connection\")
    dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")

    if IsNumeric(url) then
        SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
        set RS = dbconn.execute(SQL)
            if not rs.eof then
                response.redirect(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\"& url)
            end if
        set rs = nothing
    else
        SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
        set rs = dbconn.execute(SQL)
        if not rs.eof then
            response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste.asp?Category=\"& url)
        Else
            SQL2 = \"select * from leverandor where levalias = \'\" & url & \"\'\"
            Set rs2 = dbconn.execute(SQL2)
            If not rs2.eof then
                Response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste?LevAlias=\" & url)
            End if
            set rs2 = nothing
        End if
    End if
    dbconn.close
    set dbconn = nothing 
Else
    response.redirect(\"/redirect/nopage.asp?value=\"& url)
End if
response.redirect(\"/redirect/nopage.asp?value=\"& url)
%>

Kanon! Jeg opretter lige et \"points til netsrac\" spørgsmål på 30 points.

Tak for hjælpen  :0)

Så lidt :-)

Er du klar til en mere?

Ja da :-)

Denne her bliver nok lidt sværere at forklare.

I første instans, hvor vi finder en articleId, redirecter vi til bladre.asp. Bladre.asp er i dag tilpasset, så den laver request.querystring fint. Den skal der ikke gøres noget ved.

I de to andre instanser skal webalfaliste.asp udføre en request.querystring.

I dag laver webalfaliste.asp bare et komplet udtræk med følgende kode:

Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
SQL = \"Select * FROM Articles where accepted=\'accepted\' Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)

Den skal iht. dit seneste svar ændres, så følgende logik opnåes:

Den skal finde ud af, om der står noget i Category=xx og lave ovenstående sql med en
\"AND Category=xx\" hvis du forstår hvad jeg mener.

Den skal finde ud af, om der står noget i LevId=xx (Bemærk nedenstående kode er ændret fra
din løsning til at den smider en LevId med) og lave ovenstående sql med en
\"AND LevId=xx\" hvis du igen forstår.

Hvis querystring er helt tom, skal ovenstående sql eksekveres.....

Jeg håber, jeg har forklaret ideen, koden til alle sql-balladerne finder jeg aldrig selv ud af  :0)

Den nye ændrede kode fra sidste opgave:


<%
url = request(\"query_string\")
if url <> \"\" then
    url = strreverse(url)
    urlarr = split(url, \"/\")
    url = strreverse(urlarr(0))

    Set dbConn = Server.CreateObject(\"ADODB.Connection\")
    dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")

    if IsNumeric(url) then
        SQL = \"Select * FROM Articles where accepted=\'accepted\' AND ArticleID = \"&url&\" Order BY Category asc,Title Asc\"
        set RS = dbconn.execute(SQL)
            if not rs.eof then
                response.redirect(\"http://www.erhvervstilbud.dk/bladre.asp?ArticleId=\"& url)
            end if
        set rs = nothing
    else
        SQL = \"Select * FROM Articles where Category = \'\"&url&\"\' and accepted = \'accepted\' Order BY Category asc,Title Asc\"
        set rs = dbconn.execute(SQL)
        if not rs.eof then
            response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste.asp?Category=\"& url)
        Else
            SQL2 = \"select * from leverandor where levalias = \'\" & url & \"\'\"
            Set rs2 = dbconn.execute(SQL2)
            If not rs2.eof then
            Firma = rs2 ( \"LevID\" )

                Response.redirect(\"http://www.erhvervstilbud.dk/webalfaliste.asp?LevId=\" & Firma)
            End if
            set rs2 = nothing
        End if
    End if
    dbconn.close
    set dbconn = nothing 
Else
    response.redirect(\"/redirect/nopage.asp?value=\"& url)
End if
response.redirect(\"/redirect/nopage.asp?value=\"& url)
%>

Går udfra at levid er et tal.

cat = Request.querystring(\"category\")
levid = Request.querystring(\"levid\")
Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
If cat <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND category = \'\" & cat & \"\' Order BY Category asc,Title Asc\"
Elseif levid <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND levid = \" & levid & \" Order BY Category asc,Title Asc\"
Else
response.redirect(\"/redirect/nopage.asp?value=\"& url)
End if
set RS = dbconn.execute(SQL)

Hej!

Den ser fin ud, men den sidste if (hvis både cat og levid er tomme) skal udføre sql * from articles where accepted = accepted i stedet for en redirect.

cat = Request.querystring(\"category\")
levid = Request.querystring(\"levid\")
Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
If cat <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND category = \'\" & cat & \"\' Order BY Category asc,Title Asc\"
Elseif levid <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND levid = \" & levid & \" Order BY Category asc,Title Asc\"
Else
SQL = \"Select * FROM Articles where accepted=\'accepted\' Order BY Category asc,Title Asc\"
End if
set RS = dbconn.execute(SQL)

Jeg forstår det ikke. Når jeg indsætter koden i webalfaliste.asp, kommer der en fejl 500 - \"Internal Server Error\". Jeg har indsat den originale kode til webalfaliste.asp her:

<%
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
\'----------------
\'View Data Code
Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
SQL = \"Select * FROM Articles where accepted=\'accepted\' Order BY Category asc,Title Asc\"
set RS = dbconn.execute(SQL)
\'----------------
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"erhvervstilbud.css\">
<title>Tilbud fra danske virksomheder - Alfabetisk liste</title>
<base target=\"_self\">
<SCRIPT language=Javascript>
<!--
    function pop_kupondata() {
  xpos = Math.round((screen.width-600)/2);
  ypos = Math.round((screen.height-500)/2);
  if (navigator.appName!=\"Netscape\") {
    var pos = \",left=\"+xpos+\",top=\"+ypos
  } else {
    var pos = \",screenX=\"+xpos+\",screenY=\"+ypos
  };
  post = window.open( \"kupondata.asp\", \"post\", \"width=600,height=500\" +pos ); 
};
//-->
</SCRIPT>
<script language=\'javascript\'>
window.defaultStatus=\"Alfabetisk liste over tilbud\";
</script>
<style>
A:link {color : #000000; font:  bold 11px Verdana, Arial;text-decoration: none;line-height: 14px;}
A:visited {color : #000000; font: bold 11px Verdana, Arial;text-decoration: none;line-height: 14px;}
A:active {color : #000000; font: bold 11px Verdana, Arial;text-decoration: none;line-height: 14px;}
A:hover {color : #000000; font: bold 11px Verdana, Arial;text-decoration: none;line-height: 14px;}
</style>
<STYLE>
INPUT
{
    font-size:12px; font-weight:bold; text-align: center;
    BORDER-RIGHT: 1px solid black; margin-right: 4px;
    BORDER-TOP: 1px solid black; margin-top: 2px;
    BORDER-LEFT: 1px solid black; margin-left: 4px;
    BORDER-BOTTOM: 1px solid black; margin-bottom: 2px;
}
</STYLE>

</head>
<body topmargin=\"0\" leftmargin=\"7\" bgcolor=\"#FFFFFF\">
<center>
<table border=\"0\" cellpadding=\"2\" width=\"765\" height=\"91\" cellspacing=\"0\">
  <tr>
    <td width=\"250\" height=\"64\" align=\"left\" background=\"/backgrounds/grad.jpg\"><img border=\"0\" src=\"/images/logo.jpg\" width=\"200\" height=\"60\"></td>
    <td height=\"64\" align=\"left\" bgcolor=\"#FFFFFF\" background=\"/backgrounds/grad.jpg\">
      <p align=\"center\"><img border=\"0\" src=\"/Banners/0164.GIF\" align=\"left\" width=\"468\" height=\"60\"></td>
  </tr>
</table>
<table border=\"0\" cellpadding=\"5\" cellspacing=\"0\" width=\"765\" height=\"168\" style=\"border-right: 1 solid #3089B8\">
<tr>
<td valign=\"top\" align=\"left\" bgcolor=\"#3089B8\" rowspan=\"3\" height=\"148\" width=\"127\">
<p class=\"10menu\">&nbsp; <a href=\"forside.asp\" onMouseover=\"window.status=\'Gå til Forsiden\'; return true\" onMouseOut=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onClick=\"window.status=\'Gå til Forsiden\'; return true\" onmousedown=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmouseup=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onfocus=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\"><font color=\"#FFFFFF\">Hjem</font></a><br>
&nbsp; <a href=\"bladre.asp\" onMouseover=\"window.status=\'Gå til startside\'; return true\" onMouseOut=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onClick=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmousedown=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmouseup=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onfocus=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\"><font color=\"#FFFFFF\">Kataloget<br>
</font></a><font color=\"#FFFFFF\">&nbsp;</font>&nbsp;<font color=\"#C0C0C0\">Oversigten<br>
&nbsp; <a href=\"priser.asp\" onMouseover=\"window.status=\'Se priser for annoncering på ErhvervsTilbud.dk\'; return true\" onMouseOut=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onClick=\"window.status=\'Se priser for annoncering på ErhvervsTilbud.dk\'; return true\" onmousedown=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmouseup=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onfocus=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\"><font color=\"#FFFFFF\">Priser</font></a><font color=\"#FFFFFF\"><a href=\"java script:pop_kupondata();\" onMouseover=\"window.status=\'Udfyld bestillingskuponer automatisk\'; return true\" onMouseOut=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onClick=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmousedown=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmouseup=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onfocus=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\"><font color=\"#FFFFFF\"><br>
&nbsp; KuponData<br>
</font></a>&nbsp; <a href=\"nyhedsbrev.asp\" onMouseover=\"window.status=\'Gå til nyhedsbrev til- og framelding\'; return true\" onMouseOut=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onClick=\"window.status=\'Gå til nyhedsbrev til- og framelding\'; return true\" onmousedown=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmouseup=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onfocus=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\"><font color=\"#FFFFFF\">Nyhedsbrev<br>
<a href=\"dinprofil.asp\" onMouseover=\"window.status=\'Se din personlige profil\'; return true\" onMouseOut=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onClick=\"window.status=\'Gå til nyhedsbrev til- og framelding\'; return true\" onmousedown=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmouseup=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onfocus=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\"><font color=\"#FFFFFF\">&nbsp;
Din Profil<br>
&nbsp; </font></a><a href=\"search.asp\" onMouseover=\"window.status=\'Søg i tilbudene på ErhvervsTilbud.dk\'; return true\" onMouseOut=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onClick=\"window.status=\'Søg i tilbudene på ErhvervsTilbud.dk\'; return true\" onmousedown=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onmouseup=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\" onfocus=\"window.status=\'Alfabetisk oversigt over tilbud\'; return true\"><font color=\"#FFFFFF\">Søgning
&nbsp;</font></a></font></a></font>
      </p>
      <FORM METHOD=\"GET\" ACTION=\"http://www.erhvervstilbud.dk/bladre.asp\">
        <p class=\"button\" align=\"left\">&nbsp;<INPUT NAME=\"ArticleId\" SIZE=3 MAXLENGTH=4><br>
        <INPUT TYPE=SUBMIT VALUE=\"Vis nr.\" class=\"button\"></FORM>
<p align=\"center\"><img border=\"0\" src=\"/Banners/palm1.gif\">
<p align=\"center\"><img border=\"0\" src=\"/Banners/handstep.gif\">
<p align=\"center\">&nbsp;
</font>
    </td>
</center>
    <td width=\"613\" valign=\"top\" align=\"left\" bgcolor=\"#3089B8\" height=\"11\">
<table cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
  <tr>
    <td nowrap valign=\"top\">
      <p align=\"left\" class=\"11b\"><b><font color=\"#FFFFFF\">Alfabetisk oversigt over tilbud&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></b> <font color=\"#FF0000\">&nbsp;</font><font color=\"#FFFFFF\"><b>
      <script language=\"JavaScript\">
<!--
function date(skriv){
document.write(skriv);
}
var iDag=new Date();
var ugedag=iDag.getDay();
var dato=iDag.getDate();
var maaned=iDag.getMonth()+1;
var aar=iDag.getFullYear();
if(ugedag==\"0\")D=\"&nbsp;&nbsp;&nbsp;&nbsp;Søndag\";
if(ugedag==\"1\")D=\"&nbsp;&nbsp;&nbsp;&nbsp;Mandag\";
if(ugedag==\"2\")D=\"&nbsp;&nbsp;&nbsp;&nbsp;Tirsdag\";
if(ugedag==\"3\")D=\"&nbsp;&nbsp;&nbsp;&nbsp;Onsdag\";
if(ugedag==\"4\")D=\"&nbsp;&nbsp;&nbsp;&nbsp;Torsdag\";
if(ugedag==\"5\")D=\"&nbsp;&nbsp;&nbsp;&nbsp;Fredag\";
if(ugedag==\"6\")D=\"&nbsp;&nbsp;&nbsp;&nbsp;Lørdag\";
if(maaned==\"1\")M=\"Januar\";
if(maaned==\"2\")M=\". Februar\";
if(maaned==\"3\")M=\"Marts\";
if(maaned==\"4\")M=\"April\";
if(maaned==\"5\")M=\"Maj\";
if(maaned==\"6\")M=\"Juni\";
if(maaned==\"7\")M=\"Juli\";
if(maaned==\"8\")M=\"August\";
if(maaned==\"9\")M=\"September\";
if(maaned==\"10\")M=\"Oktober\";
if(maaned==\"11\")M=\"November\";
if(maaned==\"12\")M=\"December\";
var B=D+\" d. \"+dato+\". \"+M+\" \"+aar;
//Helligdage indsættes her.
if(maaned==\"6\" && dato==\"5\")B=B+\" - Grundlovsdag\";
if(maaned==\"11\" && dato==\"8\")B=B+\" - Morten Bisp\";
if(maaned==\"12\" && dato==\"24\")B=B+\" - Juleaften\";
if(maaned==\"12\" && dato==\"25\")B=B+\" - 1. Juledag\";
if(maaned==\"12\" && dato==\"26\")B=B+\" - 2. Juledag\";
if(maaned==\"12\" && dato==\"31\")B=B+\" - Nytårsaften\";
date(B);
// -->
</script>
      </b></font><class=\"10b\">
     
    </td>
    <td width=\"4\">&nbsp;</td>
    <td width=\"1\">
          </td>
  </tr>
</table>
    </td>
  </tr>
  <tr>
    <td bgcolor=\"#FFFFFF\" valign=\"top\" align=\"left\" height=\"117\" background=\"backgrounds/light-sandlys.gif\" width=\"550\">
<p style=\"line-height: 75%\" class=\"10\">
<%
do while not rs.eof
if oldCateogry<> RS(\"Category\") THEN response.write(\"<b>\" & \" \" & \"<p class=\"\"10bh\"\" style=\"\"line-height: 18px\"\" style=\"\"background-color: #3089B8\"\">\" & \"&nbsp;\" & RS(\"Category\") &\"</b></p><p class=\"\"10b\"\">\")
oldCateogry= RS(\"Category\")
%>
&nbsp;&nbsp;&nbsp;&nbsp;<class=\"10hyp\"><a HREF=\"bladre.asp?ArticleID=<%=RS(\"ArticleID\")%>\" onmouseover=\"window.status=\'Se tilbud nr. <%=RS(\"ArticleID\")%>:  <%=RS(\"Title\")%>\'; return true\" onmouseout=\"window.status=\'\';\"><%=RS(\"Title\")%></font>&nbsp;&nbsp;&nbsp;<img border=\"0\" src=\"/IMAGES/Type<%=RS(\"ArticleType\")%>.gif\"></a><br><br>
<%
    RS.Movenext
    loop
%>
</b>
</p>
<p class=\"10\">&nbsp;</p>
</table>
</body>
<!--#include file=\"bottombred.asp\" -->

I din browser:

Funktioner -> Internetindstillinger -> Avanceret -> Fjern kryd i Vis uskadelige http fejl

Og prøv så igen, hvilken fejl får du så?

Jeg har nu gjort, som du har sagt i browseren. Ved nedenstående kode i \"toppen\" af siden - skriver den: syntax error i linje 10 - det er linjen med \" & cat & \" i henhold til fejlmeddelelsen

<%
Response.AddHeader \"PRAGMA\", \"NO-CACHE\"
\'----------------
\'View Data Code
cat = Request.querystring(\"category\")
levid = Request.querystring(\"levid\")
Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
If cat <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND category = \'\" & cat & \"\' Order BY Category asc,Title Asc\"
Elseif levid <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND levid = \" & levid & \" Order BY Category asc,Title Asc\"
Else
SQL = \"Select * FROM Articles where accepted=\'accepted\' Order BY Category asc,Title Asc\"
End if
set RS = dbconn.execute(SQL)
\'----------------
%>

tror det er den her:
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND levid = \" & levid & \" Order BY Category asc,Title Asc\"

Lav den om til:
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND levid = \" & levid & \" Order BY Category asc,Title Asc\"

Okay. Jeg har prøvet den nye kode, men nu skriver den syntax error i linje 7 - den med \" & cat & \"

Kode:

cat = Request.querystring(\"category\")
levid = Request.querystring(\"levid\")
Set dbConn = Server.CreateObject(\"ADODB.Connection\")
dbConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/_private/ArticleDB.mdb\")
If cat <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' \" AND category = \'\" & cat & \"\' Order BY Category asc,Title Asc\"
Elseif levid <> \"\" Then
SQL = \"Select * FROM Articles where accepted=\'accepted\' AND levid = \" & levid & \" Order BY Category asc,Title Asc\"
Else
SQL = \"Select * FROM Articles where accepted=\'accepted\' Order BY Category asc,Title Asc\"
End if
set RS = dbconn.execute(SQL) 

Damn der er den også gal, den skal se sådan her ud:

SQL = \"Select * FROM Articles where accepted=\'accepted\' AND category = \'\" & cat & \"\' Order BY Category asc,Title Asc\"

Stands! Det virker hvis jeg fjerner den ekstra \" i linje 7 - mellem \'accepted\' og AND....

:) Vi så det samme

Der er oprettet et \"points til dig\" spørgsmål  :0)

Tak for hjælpen - jeg vender nok snart tilbage :0)