SQL ud fra Session

svar FX:
strSQL = "select * form tabel where id = " & session("sessionnavn")

hvis ikke d virker så prøv dette:

strSQL = "select * form tabel where id = '" & session("sessionnavn") & "'

/Omgangsdyret

V ik lige hvorfor jeg skrev svar:>
er lidt træt...:)

mener du noget i denne stil:

select case Session("sessionvariable")
case 1
  strSQL = "SELECT * FROM notes WHERE ID > "& oldID & ";"
case 2
  strSQL = "SELECT * FROM notes WHERE ID > "& oldID & " ORDER BY ID DESC;"
case 3
  strSQL = "SELECT * FROM notes;"
end select

set rs = connection.execute(strSQL)

eagleeye >> Jeg prøvede det du skrev inden jeg postede her, og fik fejlen.
Operation not allowed when the Obejct is closed. Den hendviste til den sidste rs.close i bunden af siden. Hvis jeg fjerner den så kommer der bare en blank side, eller også kan den kører alle poster igennem men ikke starte forfra igen.

Hvad havde du i tankerne omkring de 3 SQL sætninger, hvad skal du vælge??

Jeg gættede bare på 3 SQL sætniger ud fra den du har i forvejsen:

strSQL = "SELECT TOP 1, * FROM notes WHERE ID > "& oldID & ";"
Set rs = Connect.Execute(strSQL)
if rs.EOF then
strSQL = "SELECT TOP 1, * FROM notes;"
Set rs = Connect.Execute(strSQL)
end if

Jeg gik ud fra at det måske var denne: strSQL = "SELECT TOP 1, * FROM notes WHERE ID > "& oldID & ";"
du ville havde del op i 3 forskellige SQL sætninger, er det rigtigt?

så den samlede fil vil se ud som  sådan:


//Dette er i toppen af siden
if (Request.ServerVariables("REQUEST_METHOD") = "POST") then
oldID = Request.Form("thisID")
else
oldID = 0
end if

set connect = server.createobject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("letter.mdb")

select case Session("sessionvariable")
case 1
  strSQL = "SELECT * FROM notes WHERE ID > "& oldID & ";"
case 2
  strSQL = "SELECT * FROM notes WHERE ID < "& oldID & " ORDER BY ID DESC;"
case 3
  strSQL = "SELECT * FROM notes;"
end select

Set rs = Connect.Execute(strSQL)
if rs.EOF then
  strSQL = "SELECT TOP 1, * FROM notes;"
  Set rs = Connect.Execute(strSQL)
end if

if NOT rs.EOF then
oldID = rs("ID")


//Dette er i bunden af siden
end if

rs.close
Connect.Close

eagleeye >>

Jeg skal bruge både

strSQL = "SELECT TOP 1, * FROM notes WHERE ID > "& oldID & ";"

strSQL = "SELECT TOP 1, * FROM notes;"

Nummr 2 SQL er så den kan begynde forfra hvis man har bladret alle records igennem.

så du har 2 værdier for sesion variablen:


//Dette er i toppen af siden
if (Request.ServerVariables("REQUEST_METHOD") = "POST") then
oldID = Request.Form("thisID")
else
oldID = 0
end if

set connect = server.createobject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("letter.mdb")

select case Session("sessionvariable")
case 1
  strSQL = "SELECT TOP 1, * FROM notes WHERE ID > "& oldID & ";"
case 2
  strSQL = "SELECT TOP 1, * FROM notes;"
end select
Set rs = Connect.Execute(strSQL)

if NOT rs.EOF then
oldID = rs("ID")


//Dette er i bunden af siden
end if

rs.close
Connect.Close

Her scriptet som jeg har i toppen af siden:

<%
if request("sex") = "1" then
session("sex") = "M"
end if
if request("sex") = "2" then
session("sex") = "K"
end if
if request("sex") = "0" then
session("sex") = "A"
end if
if request("sex") = "" then
session("sex") = "A"
end if


if (Request.ServerVariables("REQUEST_METHOD") = "POST") then
oldID = Request.Form("thisID")
else
oldID = 0
end if

set connect = server.createobject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")

Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("maps.mdb")


select case Session("sex")
case M
  strSQL = "SELECT TOP 1, * FROM maps WHERE ID > "& oldID & ";"
case K
  strSQL = "SELECT TOP 1, * FROM maps WHERE ID > "& oldID & ";"
case A
  strSQL = "SELECT TOP 1, * FROM maps WHERE ID > "& oldID & ";"
end select

'strSQL = "SELECT TOP 1, * FROM maps WHERE ID > "& oldID & ";"

Set rs = Connect.Execute(strSQL)
if rs.EOF then


select case Session("sex")
case M
  strSQL = "SELECT TOP 1, * FROM maps;"
case K
  strSQL = "SELECT TOP 1, * FROM maps;"
case A
  strSQL = "SELECT TOP 1, * FROM maps;"
end select

  'strSQL = "SELECT TOP 1, * FROM maps;"
  Set rs = Connect.Execute(strSQL)
end if

if NOT rs.EOF then
  oldID = rs("ID")
 
 
 
%>


det giver denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'

Command text was not set for the command object.

/hot-or-not/default.asp, line 39


line 39 = Set rs = Connect.Execute(strSQL)

Lukker lige spørgsmålet da jeg lige skal tænke om jeg vil lave en anden løsning.

Hvis du har bofstaver i din case så skal der også "" omkring dem... "M", "A", osv... så