Søg
Avatar billede bobbedude Nybegynder
28. november 2001 - 09:39 Der er 34 kommentarer og
1 løsning

Session

på min login side sætter jeg:

session(\"vis\") = 5

På siden jeg viser mine billeder på har jeg i toppen:

<%
if Request.Form(\"select\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"select\")
end if
%>


Siden kører med Paging og PageSize sætter jeg sådan:

rs.PageSize = session(\"vis\")


Når jeg står på en side kan jeg via en drop ned boks og en submit knap skifte hvor mange billeder jeg vil se:

<form name=\"vis\" method=\"post\" action=\"se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage%>\" class=\"sortalmfont\">
        Vis
    <select name=\"select\">
    <option selected><%=session(\"vis\")%></option>
    <option>2</option>
    <option>3</option>
    <option>4</option>
    <option>5</option>
    <option>6</option>
  </select>
        billeder
<input type=\"submit\" name=\"Submit\" value=\"Go\">
      </form>


men når jeg går til næste side husker session(\"vis\") ikke men sætter sig til 3 HVORFOR ??
Avatar billede nute Nybegynder
28. november 2001 - 09:42 #1
vell...det hjelper iallefall å legge values på din select:

<select name=\"select\">
    <option value=\"<%=session(\"vis\")%>\" selected><%=session(\"vis\")%></option>
    <option value=\"2\">2</option>
    <option value=\"3\">3</option>
    <option value=\"4\">4</option>
    <option value=\"5\">5</option>
    <option value=\"6\">6</option>
  </select>
Avatar billede carpediem Nybegynder
28. november 2001 - 09:43 #2
<option value=\"<%=session(\"vis\")%>\" selected><%=session(\"vis\")%></option>
<option value=\"2\">2</option>
<option value=\"3\">3</option>
<option value=\"4\">4</option>
<option value=\"5\">5</option>
<option value=\"6\">6</option>
Avatar billede bobbedude Nybegynder
28. november 2001 - 09:44 #3
men nute den gør stadig det samme hvergang jeg skifter side sættes session til 3 ??
Avatar billede carpediem Nybegynder
28. november 2001 - 09:44 #4
Nå, nute kom først. Og så et helt minut. Jeg må virkelig ikke være i omdrejninger her til morgen.
Avatar billede bobbedude Nybegynder
28. november 2001 - 09:46 #5
men jeg har samme problem :ø(
Avatar billede carpediem Nybegynder
28. november 2001 - 09:46 #6
Prøv lige:
<%
IF NOT LEN(Trim(Request.Form(\"select\"))) <= 0 then
    session(\"vis\") = Trim(Request.Form(\"select\"))
Else
    session(\"vis\") = 3
end if
%>
Avatar billede nute Nybegynder
28. november 2001 - 09:47 #7
bobbedude >> det *kan* skyldes at select er et reservert ord i ASP. prøv å kall din select noe annet.

det er da en helt simpel request. det er da ikke så mye som kan gå galt :-)
Avatar billede bobbedude Nybegynder
28. november 2001 - 09:54 #8
ok jeg har ændret navnet til valger men har samme problem og jeg har prøvet carpediems>> forslag men det gav også samme problem.
Avatar billede nute Nybegynder
28. november 2001 - 09:55 #9
kan vi se noe full kode ? lyder merkelig dette her...
Avatar billede bobbedude Nybegynder
28. november 2001 - 09:56 #10
login siden:

<%
If Request.Form(\"Action\") = \"Login\" Then

strUID = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))

If Len(strUID) > 0 And Len(strPWD) > 0 Then

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

strSQL = \"SELECT UserID FROM Users WHERE (Username = \'\" & strUID & \"\') AND (Password = \'\" & strPWD & \"\')\"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

intUID = rs(\"UserID\")
Else

strERR = \"Ingen adgang\"
End If


myConn.Close
Set myConn = Nothing

If Len(intUID) Then
session(\"bruger\") = Request.Form(\"Brugernavn\")
Session(\"UserID\") = intUID
session(\"vis\") = 5
Response.Redirect(\"kategori.asp\")
End If
Else

strErr = \"Du skal skrive både brugernavn og adgangskode\"
End If

If Len(strErr) > 0 Then

strErr = \"<font color=red>\" & strErr & \"\"

End If
End If
%>
<html><head>
<title>Login</title>
<link rel=\"stylesheet\" href=\"styler.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\">
<p class=\"body\">&nbsp;</p>
<form method=\"POST\" action=\"login.asp\">

  <table width=\"300\" border=\"0\" align=\"center\" class=\"tabel\" cellpadding=\"2\">
    <tr>
      <td align=\"center\" class=\"style\"><img src=\"logo.gif\" width=\"101\" height=\"50\"></td>
    </tr>
    <tr>
      <td><span class=\"rodbold\">Angiv brugernavn og adgangskode.</span><br>
        <span class=\"rodbold\"><%=strErr%> </span></td>
    </tr>
    <tr>
      <td align=\"center\">
        <table border=\"0\">
          <tr>
            <td width=\"50%\" class=\"sortbold\">Brugernavn:</td>
            <td width=\"50%\">
              <input type=\"text\" name=\"Brugernavn\" size=\"20\">
            </td>
          </tr>
          <tr>
            <td width=\"50%\" class=\"sortbold\">Adgangskode:</td>
            <td width=\"50%\">
              <input type=\"password\" name=\"Adgangskode\" size=\"20\">
            </td>
          </tr>
        </table>
     
      </td>
    </tr>
    <tr>
      <td>
        <input type=\"submit\" value=\"Login\" name=\"Action\">
      </td>
    </tr>
    <tr>
      <td>&nbsp;</td>
    </tr>
  </table>
 
</form>

<p class=\"style\">&nbsp;</p>
</body></html>
<%

select case Request.QueryString(\"mode\")

case \"logout\"

session.contents.remove(\"bruger\")
session.contents.remove(\"UserID\")
Response.Redirect(\"login.asp\")

end select
%>

siden der vises på:

<!--#include file=\"protect.inc\"-->
<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"bank.mdb\")
strSQL2 = \"SELECT * FROM kategorier WHERE id =\" & Request(\"linkid\")
Set rs2 = connect.Execute(strSQL2)
%>
<html><head>
<title><%=rs2(\"kategori\")%></title>
<style><!--a{text-decoration:none}//--></style>
<script type=\"text/javascript\" language=\"JavaScript\"><!--
function PopUp(url) {
window.open(url,\"MyPopup\",\'height=150,width=320\');
} //-->
</script>

<script type=\"text/javascript\" language=\"JavaScript\"><!--
function PopUp2(url) {
window.open(url,\"MyPopup\");
} //-->
</script>
<%
if Request.Form(\"valger\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"valger\")
end if
%>
<link rel=\"stylesheet\" href=\"styler.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" link=\"#CC0000\" vlink=\"#CC0000\" alink=\"#CC0000\">
<font face=\"Arial, Helvetica, sans-serif\" size=\"2\"><span class=\"sortbold\">Velkommen</span>
<span class=\"rodbold\"><%=session(\"bruger\")%></span> <a href=\"login.asp?mode=logout\"><span class=\"sortalmfont\">-
Tryk her for at logge ud</span></a><br>
<a href=\"kategori.asp\">Tilbage til oversigten</a></font><br>
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM links WHERE kategori = \" & request(\"linkid\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"bank.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = session(\"vis\")
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
   
%>
<table border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td align=\"center\" valign=\"top\" rowspan=\"6\">
      <img src=\"logo.gif\" width=\"101\" height=\"50\">
   
    </td>
    <td align=\"center\" valign=\"top\" rowspan=\"6\">&nbsp;&nbsp;</td>
    <td align=\"left\" valign=\"middle\"><font face=\"Arial, Helvetica, sans-serif\" size=\"2\"><span class=\"sortbold\">Side</span>
      <span class=\"rodbold\"><%=intPage%></span> <span class=\"sortbold\">ud af</span> <span class=\"rodbold\"><%=intPageCount%></span></font></td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\" height=\"1\"></td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\"> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">
      <font class=\"sortalmfont\">Gå til side</font>
      <%
For intNum = 1 To intPageCount
%>
      <a href=se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intNum%>><%=intNum%></a>
      <%   
   
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
%>
      </font> </td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\" height=\"1\"></td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\"> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\"><a href=se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage - 1%>><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>
      <%   
   
Else
\'der er ingen sider tilbage så skriv ingenting
    Response.Write \"&nbsp;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
%>
      <a href=se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage + 1%>><img src=\"next.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"N&aelig;ste\"></a></font>
      <%
Else
\'der er ingen sider frem så skriv ingenting
    Response.Write \"&nbsp;\"
End If
%>
    </td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\">&nbsp;</td>
  </tr>
</table>
<table width=\"500\" border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td>
      <form name=\"vis\" method=\"post\" action=\"se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage%>\" class=\"sortalmfont\">
        Vis
  <select name=\"valger\">
    <option value=\"<%=session(\"vis\")%>\" selected><%=session(\"vis\")%></option>
    <option value=\"2\">2</option>
    <option value=\"3\">3</option>
    <option value=\"4\">4</option>
    <option value=\"5\">5</option>
    <option value=\"6\">6</option>
  </select>
        billeder
<input type=\"submit\" name=\"Submit\" value=\"Go\">
      </form>
    </td>
  </tr>
  <tr>
    <td bgcolor=\"#00CC00\">&nbsp;<span class=\"sortbold\">Du er i kategorien</span>
      <span class=\"rodbold\"><%=rs2(\"kategori\")%></span></td>
  </tr>
</table>

<p>
  <% 
if Cint(Request.QueryString(\"linkid\")) = rs2(\"id\") then 
Do While Not rs.EOF And intRecCount > 0
%>

<table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td width=\"200\" align=\"center\" valign=\"middle\"><a href=\"java script:PopUp(\'big.asp?linkid=<%=rs(\"id\")%>\')\"><img src=\"images/thumb/TN_<%=rs(\"thumb\")%>\" border=\"0\" alt=\"Tryk for at se det store billede\"></a></td>
    <td>
      <table width=\"300\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Billednavn:</font></td>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"rodbold\"><%=rs(\"thumb\")%></font></td>
        </tr>
        <tr bgcolor=\"#00CC00\">
          <td colspan=\"2\" height=\"1\"></td>
        </tr>
        <tr>
          <td height=\"5\"></td>
          <td></td>
        </tr>
        <tr>
          <td><a href=\"java script:PopUp(\'note.asp?linkid=<%=rs(\"id\")%>\')\">
            <img src=\"icon_edit_topic.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"Ret info for billed <%=rs(\"thumb\")%>\"></a></td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"sortalmfont\">Gemmes
            ?:</font></td>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"rodbold\"><%=rs(\"gemmes\")%></font></td>
        </tr>
        <tr bgcolor=\"#00CC00\">
          <td colspan=\"2\" height=\"1\"></td>
        </tr>
        <tr>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"sortalmfont\">Kommentar:</font></td>
          <td></td>
        </tr>
        <tr>
          <td colspan=\"2\" class=\"rodbold\"><%=rs(\"notat\")%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td colspan=\"2\" align=\"center\" valign=\"middle\" height=\"5\"></td>
  </tr>
  <tr bgcolor=\"#00CC00\">
    <td colspan=\"2\" height=\"1\"></td>
  </tr>
  <tr>
    <td colspan=\"2\" height=\"5\"></td>
  </tr>
</table>
<p>
  <%
       
       
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
end if
rs.Close
Set rs = Nothing
%>
</p>


</body>
</html>
Avatar billede nute Nybegynder
28. november 2001 - 10:06 #11
hmmm....den siden du redirecter til i ditt login script er jo kategori.asp. er det den samme som du har postet til sist ?
Avatar billede bobbedude Nybegynder
28. november 2001 - 10:10 #12
nop den er her :

<!--#include file=\"protect.inc\"-->
<%
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"bank.mdb\")

Set rs2 = Connect.Execute(\"SELECT COUNT(*) AS antal FROM links\")
%>
<html>
<head>
<title>Du er logget på som - <%=session(\"bruger\")%></title>
<style><!--a{text-decoration:none}//--></style>

<link rel=\"stylesheet\" href=\"styler.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" link=\"#CC0000\" vlink=\"#CC0000\" alink=\"#000000\">
<p><span class=\"sortbold\">Velkommen</span> <span class=\"rodbold\"><%=session(\"bruger\")%></span> <a href=\"login.asp?mode=logout\"><span class=\"sortalmfont\">-
  Tryk her for at logge ud</span></a></p>
<table width=\"400\" border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td align=\"center\"><img src=\"logo.gif\" width=\"101\" height=\"50\"></td>
  </tr>
  <tr>
    <td align=\"center\">&nbsp;</td>
  </tr>
</table>
<table width=\"400\" border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"2\">
  <tr align=\"left\">
    <td class=\"rodbold\" colspan=\"2\">&nbsp;</td>
  </tr>
  <tr>
    <td colspan=\"2\"><span class=\"sortbold\">Der er</span> <span class=\"rodbold\"><%=rs2(\"antal\")%></span> <span class=\"sortbold\">billeder i databasen</span></td>
  </tr>
  <tr>
    <td class=\"sortbold\" colspan=\"2\">&nbsp;</td>
  </tr>
  <tr>
    <td class=\"rodbold\" bgcolor=\"#00CC00\">&nbsp;kategori</td>
    <td class=\"rodbold\" bgcolor=\"#00CC00\">Beskrivelse</td>
  </tr>
  <tr>
    <td colspan=\"2\" height=\"5\"></td>
  </tr>
  <%
response.buffer = true


strSQL = \"SELECT Count(links.ID) AS CountOflink, kategorier.ID, kategorier.Kategori, kategorier.[Kat-tekst] \"
strSQL = strSQL & \"FROM kategorier LEFT JOIN links ON kategorier.ID = links.kategori \"
strSQL = strSQL & \"GROUP BY kategorier.Kategori, kategorier.[Kat-tekst], kategorier.ID;\" 

Set rs = Connect.Execute(strSQL)
if not rs.EOF then
do until rs.EOF
%>
  <tr>
    <td ><a href=\"se-kat.asp?linkid=<%=rs(\"id\")%> \" class=\"sortbold\">&nbsp;<%=rs(\"kategori\")%></a></td>
    <td class=\"sortalmfont\"><span class=\"rodbold\"><%=rs(\"CountOflink\")%></span> - <span class=\"sortbold\"><%=rs(\"kat-tekst\")%></span></td>
  </tr>
  <tr>
    <td colspan=\"2\" height=\"5\"></td>
  </tr>
  <tr>
    <td colspan=\"2\" height=\"2\" bgcolor=\"#CC0000\"></td>
  </tr>
  <%
  rs.movenext
Loop
else
  response.write \"Ingen felter\"
end if
%>
  <tr>
    <td colspan=\"2\" height=\"2\">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
rs.Close()
rs2.Close()
%>
Avatar billede nute Nybegynder
28. november 2001 - 10:20 #13
ehhh....er det ved klikk til \'neste side\' det ikke fungerer ?

Avatar billede bobbedude Nybegynder
28. november 2001 - 10:21 #14
ja

<a href=se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage - 1%>><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>
Avatar billede nute Nybegynder
28. november 2001 - 10:27 #15
nåja....men du er jo nødt til å sende videre parameteret her...

<a href=se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage - 1%>&valger=<%= session(\"vis\")><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>

(( og ditto for din \'neste\' link ))

og så skifter du denne:

if Request.Form(\"valger\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"valger\")
end if

til dette:

if Request(\"valger\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"valger\")
end if

så bør det vel kunne fungere...

Avatar billede bobbedude Nybegynder
28. november 2001 - 10:41 #16
nu sender den værdien med rundt men den bliver ved med at stille sig på 3 ??????????????????
Avatar billede nute Nybegynder
28. november 2001 - 10:49 #17
oki...så er vi iallefall litt nærmere en løsning...skift din select ut med denne:

<select name=\"valger\">
  <%
  for i = 1 to 6
    response.write \"<option value=\"\"\" & i \"\"\"\"
    if( session(\"vis\") = i ) then
      response.write \" selected\"
    end if
    response.write \">\" & \"</option>\"
  next 
  %>
</select>

så er du iallefall sikker på at den option som er tilsvarende din session(\"vis\") blir korrekt vist...

og en ting til...

det var en liten feil i den siste posting fra meg...
if Request(\"valger\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"valger\")
end if

skal være

if Request(\"valger\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request(\"valger\")
end if

/nute
Avatar billede carpediem Nybegynder
28. november 2001 - 11:26 #18
Når I nu er så godt igang, så skal i huske at \"næste side\" skal submitte formen, ellers vil Request.Form(\"valger\") jo være tom
Avatar billede nute Nybegynder
28. november 2001 - 11:28 #19
carpediem >> det er derfor Request.Form(\"valger\") er forandret til request(\"valger\") ;-)

les threaden...
Avatar billede carpediem Nybegynder
28. november 2001 - 11:38 #20
nute>> Har jeg gjort, men så vil request(\"valger\") altid være 3, da i aldrig submitter formen. I laver det jo således

<a href=se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage - 1%>&valger=<%= session(\"vis\")><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>

Men hvor sætter i Session(\"vis\")

Det gør i her

if Request(\"valger\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request(\"valger\")
end if

Og hvad er request(\"valger\")

Den er lig med Session(\"valger\")

Altså er du inde i en løkke. Kan du se hvad jeg mener?
Avatar billede carpediem Nybegynder
28. november 2001 - 11:42 #21
Jeg ville gå tilbage til det oprindelige, hvor option value er med og så lave:
<a href=se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage - 1%>&valger=<%= session(\"vis\")><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>


om til:

<a href=\"java script:void(document.vis.submit());\">
Avatar billede carpediem Nybegynder
28. november 2001 - 11:43 #22
Eller rettere om til:

<a href=\"java script:void(document.vis.submit());\"><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>
Avatar billede nute Nybegynder
28. november 2001 - 11:45 #23
nja...oki...jeg ser hva du mener...men det å submitte vil heller ikke være en enkel løsning. for så får man ikke sendt over \'linkid\' og \'page\'. disse må så legges over i noen hidden fields...
Avatar billede bobbedude Nybegynder
28. november 2001 - 11:48 #24
ok jeg har tabt tråden ??

Hvis jeg gør dette:

<a href=\"java script:void(document.vis.submit());\"><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>


så submitter jeg jo bare formen igen ikke ?? og derfor kommer jeg ikke videre til næste side.
Avatar billede carpediem Nybegynder
28. november 2001 - 11:50 #25
Ja, det er rigtigt med page, men linkid står jo i form headeren, og da den er det samme ligegyldigt om man går frem eller tilbage, så virker det fint.
Men med page, skal det laves en hidden felt, der ændrer value, hvis man går den ene vej frem for den anden.
Avatar billede bobbedude Nybegynder
28. november 2001 - 11:52 #26
nute >> jeg har lige prøvet:

<select name=\"valger\">
  <%
  for i = 1 to 6
    response.write \"<option value=\"\"\" & i \"\"\"\"
    if( session(\"vis\") = i ) then
      response.write \" selected\"
    end if
    response.write \">\" & \"</option>\"
  next 
  %>
</select>

men jeg får fejl på den:

Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/mediebank/150dandy/se-kat.asp, line 120

response.write \"<option value=\"\"\" & i \"\"\"\"
--------------------------------------^
Avatar billede nute Nybegynder
28. november 2001 - 11:54 #27
carpediem >> fino...så er vi enige... :)

bobbedude >> det mangler tydeligvis et &...

response.write \"<option value=\"\"\" & i & \"\"\"\"

Avatar billede bobbedude Nybegynder
28. november 2001 - 11:56 #28
hehe nute hvordan får jeg vist tallene vælgeren virker men viser ikke noget i dropned menuen.
Avatar billede bobbedude Nybegynder
28. november 2001 - 12:04 #29
ok den kører nu select boksen men den skriver selected ud som html:

<select name=\"valger\">
  <%
  for i = 1 to 6
    response.write \"<option value=\"\"\" & i & \"\"\">\" & i & \"\"
    if( session(\"vis\") = i ) then
      response.write \" selected\"
    end if
    response.write \"</option>\"
  next 
  %>
</select>
Avatar billede nute Nybegynder
28. november 2001 - 12:25 #30
det er fordi du ikke har gjort som jeg skrev...sånn skal den se ut:

<select name=\"valger\">
  <%
  for i = 1 to 6
    response.write \"<option value=\"\"\" & i & \"\"\"\"
    if( session(\"vis\") = i ) then
      response.write \" selected\"
    end if
    response.write \">\" & i & \"</option>\"
  next 
  %>
</select>

Avatar billede bobbedude Nybegynder
28. november 2001 - 12:32 #31
ja ok men den lander altså aligevel altid på 1
Avatar billede nute Nybegynder
28. november 2001 - 12:42 #32
hmmm...man kommer jo ingen vei med dette...

send meg lortet (alle filer + database) og en forklaring på hvordan jeg kan finne frem til feilen, så skal jeg se om jeg ikke kan finne ut av det...
Avatar billede bobbedude Nybegynder
28. november 2001 - 14:05 #33
ellers mange tak jeg prøver selv igen...
Avatar billede carpediem Nybegynder
28. november 2001 - 14:36 #34
Jeg har ikke testet det, men prøv det lige:

siden der vises på:

<!--#include file=\"protect.inc\"-->
<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"bank.mdb\")
strSQL2 = \"SELECT * FROM kategorier WHERE id =\" & Request(\"linkid\")
Set rs2 = connect.Execute(strSQL2)
%>
<html><head>
<title><%=rs2(\"kategori\")%></title>
<style><!--a{text-decoration:none}//--></style>
<script type=\"text/javascript\" language=\"JavaScript\"><!--
function PopUp(url) {
window.open(url,\"MyPopup\",\'height=150,width=320\');
} //-->
</script>

<script type=\"text/javascript\" language=\"JavaScript\"><!--
function PopUp2(url) {
window.open(url,\"MyPopup\");
} //-->
</script>



<!--Her er et javascript der først udfylder et hidden felt i formularen og derefter submitter formularen -->
<SCRIPT LAGUAGE=\"javascript\">
function Videre(Side) {
    document.formular.Page.value = Side;
    document.formular.submit();
}
</SCRIPT>





<%
if LEN(Trim(Request.Form(\"valger\") )) <= 0 Then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"valger\")
end if
%>
<link rel=\"stylesheet\" href=\"styler.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" link=\"#CC0000\" vlink=\"#CC0000\" alink=\"#CC0000\">
<font face=\"Arial, Helvetica, sans-serif\" size=\"2\"><span class=\"sortbold\">Velkommen</span>
<span class=\"rodbold\"><%=session(\"bruger\")%></span> <a href=\"login.asp?mode=logout\"><span class=\"sortalmfont\">-
Tryk her for at logge ud</span></a><br>
<a href=\"kategori.asp\">Tilbage til oversigten</a></font><br>
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM links WHERE kategori = \" & request(\"linkid\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"bank.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = session(\"vis\")
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
   
%>
<table border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td align=\"center\" valign=\"top\" rowspan=\"6\">
      <img src=\"logo.gif\" width=\"101\" height=\"50\">
   
    </td>
    <td align=\"center\" valign=\"top\" rowspan=\"6\">&nbsp;&nbsp;</td>
    <td align=\"left\" valign=\"middle\"><font face=\"Arial, Helvetica, sans-serif\" size=\"2\"><span class=\"sortbold\">Side</span>
      <span class=\"rodbold\"><%=intPage%></span> <span class=\"sortbold\">ud af</span> <span class=\"rodbold\"><%=intPageCount%></span></font></td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\" height=\"1\"></td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\"> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">
      <font class=\"sortalmfont\">Gå til side</font>
      <%





\'Her skrives siderne 1 til intPageCount. Hvis siden vi er på er en anden end den side der skrives er der et link til at submitte formen og sende os hen til den valgte side
For intNum = 1 To intPageCount
    If intNum = intPage Then
        Response.Write intNum & \"nbsp;\"
    Else
        Response.Write \"<a href=\"\"java script:void(document.vis.submit(\" & intNum & \"));\"\">\" & intNum & \"</a>&nbsp;\"
    End If
Next








Response.Write \"<p>\"
If Clng(intPage) > 1 Then
%>
      </font> </td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\" height=\"1\"></td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\"> <font face=\"Arial, Helvetica, sans-serif\" size=\"2\">
   
   
   
    <!--Her skrives tilbage linket, hvis vi ikke befinder os på første side-->
    <a href=\"java script:void(document.vis.submit(<%=intPage - 1%>));\"><img src=\"previous.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"Tilbage\"></a>
   
   
   
   
      <%   
   
Else
\'der er ingen sider tilbage så skriv ingenting
    Response.Write \"&nbsp;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
%>



    <!--Her skrives frem linket, hvis vi ikke befinder os på sidste side-->
    <a href=\"java script:void(document.vis.submit(<%=intPage + 1%>));\"><img src=\"next.gif\" width=\"30\" height=\"20\" border=\"0\" alt=\"N&aelig;ste\"></a></font>
     
     
     
     
      <%
Else
\'der er ingen sider frem så skriv ingenting
    Response.Write \"&nbsp;\"
End If
%>
    </td>
  </tr>
  <tr>
    <td align=\"center\" valign=\"middle\">&nbsp;</td>
  </tr>
</table>
<table width=\"500\" border=\"0\" align=\"center\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td>
     
     
      <!-- Der er lavet lidt om i action feltet. Page er ikke længere med her-->
      <form name=\"vis\" method=\"post\" action=\"se-kat.asp?linkid=<%=rs2(\"id\")%>\" class=\"sortalmfont\">
      <INPUT TYPE=\"hidden\" NAME=\"Page\" VALUE=\"<%=intPage%>\">
     
     
     
     
        Vis
  <select name=\"valger\">
   
   
   
    <%
    For i = 1 to 6
        Response.Write \"<OPTION VALUE=\"\"\" & i & \"\"\"\"
            If i = session(\"vis\") Then
                Response.Write \" SELECTED\"
            End If
        Response.Write \">\" & i & \"</OPTION>\" & vbCrLf
    Next
    %>





  </select>
        billeder
<input type=\"submit\" name=\"Submit\" value=\"Go\">
      </form>
    </td>
  </tr>
  <tr>
    <td bgcolor=\"#00CC00\">&nbsp;<span class=\"sortbold\">Du er i kategorien</span>
      <span class=\"rodbold\"><%=rs2(\"kategori\")%></span></td>
  </tr>
</table>

<p>
  <% 
if Cint(Request.QueryString(\"linkid\")) = rs2(\"id\") then 
Do While Not rs.EOF And intRecCount > 0
%>

<table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td width=\"200\" align=\"center\" valign=\"middle\"><a href=\"java script:PopUp(\'big.asp?linkid=<%=rs(\"id\")%>\')\"><img src=\"images/thumb/TN_<%=rs(\"thumb\")%>\" border=\"0\" alt=\"Tryk for at se det store billede\"></a></td>
    <td>
      <table width=\"300\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
        <tr>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\">Billednavn:</font></td>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"rodbold\"><%=rs(\"thumb\")%></font></td>
        </tr>
        <tr bgcolor=\"#00CC00\">
          <td colspan=\"2\" height=\"1\"></td>
        </tr>
        <tr>
          <td height=\"5\"></td>
          <td></td>
        </tr>
        <tr>
          <td><a href=\"java script:PopUp(\'note.asp?linkid=<%=rs(\"id\")%>\')\">
            <img src=\"icon_edit_topic.gif\" width=\"15\" height=\"15\" border=\"0\" alt=\"Ret info for billed <%=rs(\"thumb\")%>\"></a></td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"sortalmfont\">Gemmes
            ?:</font></td>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"rodbold\"><%=rs(\"gemmes\")%></font></td>
        </tr>
        <tr bgcolor=\"#00CC00\">
          <td colspan=\"2\" height=\"1\"></td>
        </tr>
        <tr>
          <td><font face=\"Arial, Helvetica, sans-serif\" size=\"2\" class=\"sortalmfont\">Kommentar:</font></td>
          <td></td>
        </tr>
        <tr>
          <td colspan=\"2\" class=\"rodbold\"><%=rs(\"notat\")%></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td colspan=\"2\" align=\"center\" valign=\"middle\" height=\"5\"></td>
  </tr>
  <tr bgcolor=\"#00CC00\">
    <td colspan=\"2\" height=\"1\"></td>
  </tr>
  <tr>
    <td colspan=\"2\" height=\"5\"></td>
  </tr>
</table>
<p>
  <%
       
       
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
end if
rs.Close
Set rs = Nothing
%>
</p>


</body>
</html>
Avatar billede bobbedude Nybegynder
02. december 2001 - 09:34 #35
Ahm ville det ikke løse problemet hvis jeg brugte en cookie istedet for session ?
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
30 min siden søger pris på en bærbar Af dcedata1977 i PC
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
05/1111:47 Printernavn i Enhedshåndtering er et andet end i Printere og Scannere Af Uvanga i Printere
04/1115:18 Hvordan er det - At man sætter et billed af en ting her på ? Af Ikke-ekspert i Diverse
White papers
Flere white papers »