Kan jag inte göra så här?
<%
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 session("id") = 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 %>
Den säger bara:
error '80020009'
/adde/star/2/dastar.asp, line 8
nån som vet?
mikulMedlem sedan aug. 20013 824 inlägg 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?
SebbeMedlem sedan jan. 20032 285 inlägg 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
%>
@ndersMedlem sedan juni 200032 969 inlägg 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?
Engine^Medlem sedan dec. 20003 887 inlägg 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
%>
@ndersMedlem sedan juni 200032 969 inlägg
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
Engine^Medlem sedan dec. 20003 887 inlägg ah... jag tänkte inte på att det var en sträng, eftersom variablen var döpt till id.