Problem med min if sats...

Testa detta :
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Connect.execute("SELECT * FROM anv where anv = '"& session("id") &"';")

IF cStr(Trim(session("id"))) = cStr(Trim(rs("anv"))) Then
%>
<frameset rows="139,*" frameborder="No" border="0" framespacing="0">
<frame src="top.asp" name="top" noresize scrolling="no">
<frameset cols="140,660,*">
<frame src="meny.asp" name="meny" noresize>
<frame src="main.asp" name="main" scrolling="yes" noresize>
<frame src="right.asp" name="right" noresize>
</frameset>
</frameset>

<% else %>

Du måste logga in
<% end if %>

Damn, kan inte gora kod-tagar pa detta tangentbord

Den klagar på detta:

IF cStr(Trim(session("id"))) = cStr(Trim(rs("anv"))) Then

Thompa__85 skrev:

Den klagar på detta:

IF cStr(Trim(session("id"))) = cStr(Trim(rs("anv"))) Then

Nåt med cstr() skulle jag tro...
Felmess?

samma som tidigare...

Kanske såhär (om tabellen anv är ett nummer och sessionen också är ett nummer)?

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where anv = '"&session("id")&"'"
rs.Open Addera, Connect, 3, 3 

If IsNumeric(rs("anv")) Then
  IF CInt(session("id")) = CInt(rs("anv")) Then
%>
<frameset rows="139,*" frameborder="No" border="0" framespacing="0"> 
<frame src="top.asp" name="top" noresize scrolling="no">
<frameset cols="140,660,*"> 
<frame src="meny.asp" name="meny" noresize>
<frame src="main.asp" name="main" scrolling="yes" noresize>
<frame src="right.asp" name="right" noresize>
</frameset>
</frameset>
<%
  else
    Response.Write("Du måste logga in")
  end if
Else
  Response.Write("Du måste logga in")
End If
%>

Man skall ALLTID kontrollera att inte recordsetet är tomt innan man försöker göra saker med det.

Har verkligen Session("id") ett värde?

Om den inte hade det skulle det väl bli ett fel i frågan?

<%
If Not Session("id") = "" Then
  Set Connect = Server.CreateObject("ADODB.Connection")
  Connect.Provider = "Microsoft.Jet.OleDb.4.0"
  Connect.Open "Data Source=" & Server.MapPath("databas/databas.mdb")

  Set rs = Server.CreateObject("ADODB.Recordset")

  Addera = "SELECT * FROM anv where anv = '"&session("id")&"'"
  rs.Open Addera, Connect, 3, 3 

  If Not rs.EOF Then
    If IsNumeric(rs("anv")) Then
      If CInt(session("id")) = CInt(rs("anv")) Then
%>
<frameset rows="139,*" frameborder="No" border="0" framespacing="0"> 
  <frame src="top.asp" name="top" noresize scrolling="no">
  <frameset cols="140,660,*"> 
    <frame src="meny.asp" name="meny" noresize>
    <frame src="main.asp" name="main" scrolling="yes" noresize>
    <frame src="right.asp" name="right" noresize>
  </frameset>
</frameset>
<%
      else
        Response.Write("Du måste logga in")
      end if
    Else
      Response.Write("Du måste logga in")
    End If
  Else
    Response.Write ("Du måste logga in")
  End If

  rs.Close
  Set rs = Nothing

  Connect.Close
  Set Connect = Nothing
Else
  Response.Write ("Du måste logga in")
End If
%>

Engine^ skrev:

Om den inte hade det skulle det väl bli ett fel i frågan?

Nej, eftersom anv är ett textfält i tabellen, så är det ju helt okej att jämföra med en tom sträng i WHERE-satsen. Är då sessionen tom, så får du ju bara ingen träff med SQL-frågan.

mvh

ah... jag tänkte inte på att det var en sträng, eftersom variablen var döpt till id.