Avatar billede bobbedude Nybegynder
26. november 2001 - 15:16 Der er 11 kommentarer og
1 løsning

Session

Ok jeg er ret ny med session men jeg har altså fået lavet dette:

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

end if
%>

men den glemmer denne session når jeg klikker videre til næste side hvorfor ??
Avatar billede darkhero Nybegynder
26. november 2001 - 15:28 #1
Prøv dette!
<%
if Request.Form(\"select\") = \"\" then
    session(\"vis\") = 3
Else
    sessiom(\"vis\") = Request.Form(\"select\")
end if
%>
Avatar billede darkhero Nybegynder
26. november 2001 - 15:31 #2
lol, der var en skrivefejl

<%
if Request.Form(\"select\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"select\")
end if
%>
SÅDAN! :o)
Avatar billede bobbedude Nybegynder
26. november 2001 - 15:34 #3
den gør det samme når jeg klikker videre til næste side sættes session(\"vis\") til 3 den husker ikke hvad jeg har valgt
Avatar billede bobbedude Nybegynder
26. november 2001 - 15:35 #4
her er min form

<form name=\"vis\" method=\"post\" action=\"se-kat.asp?linkid=<%=rs2(\"id\")%>&page=<%=intPage%>\">
  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 pr side
  <input type=\"submit\" name=\"Submit\" value=\"Go\">
</form>
Avatar billede darkhero Nybegynder
26. november 2001 - 15:37 #5
og du har ikke en Session.Abandon et sted i din kode vel?
Avatar billede bobbedude Nybegynder
26. november 2001 - 15:40 #6
nop men her er koden til hele siden hvis det hjælper:

<!--#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(\"select\") = \"\" then
    session(\"vis\") = 3
Else
    session(\"vis\") = Request.Form(\"select\")
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=\"select\">
    <option selected><%=session(\"vis\")%></option>
    <option>2</option>
    <option>3</option>
    <option>4</option>
    <option>5</option>
    <option>6</option>
  </select>
  billeder pr side
  <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 darkhero Nybegynder
26. november 2001 - 15:43 #7
prøv at fjerne: response.buffer = true i toppen!
Avatar billede bobbedude Nybegynder
26. november 2001 - 15:46 #8
nop hjalp ikke
Avatar billede darkhero Nybegynder
26. november 2001 - 15:56 #9
  <select name=\"select\" value=\"<%=session(\"vis\")%></\">
    <option>2</option>
    <option>3</option>
    <option>4</option>
    <option>5</option>
    <option>6</option>
  </select>
Avatar billede darkhero Nybegynder
26. november 2001 - 15:57 #10
    <select name=\"select\" value=\"<%=session(\"vis\")%>\">
    <option>2</option>
    <option>3</option>
    <option>4</option>
    <option>5</option>
    <option>6</option>
  </select>
Avatar billede bobbedude Nybegynder
26. november 2001 - 16:01 #11
hmm det er det samme ??
Avatar billede bobbedude Nybegynder
28. november 2001 - 09:41 #12
luk
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