Visar båda...

Hej! Nu e vi tillbaka till denna kod igen:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("****.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3 
If Rs("status") =< 2000 Then 
session("interad")="Du har inte råd med den varan"
response.redirect "data.asp"
else

rs("sida") = True
rs("status") = rs("status") - 2000
rs.update

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM sida"
rs1.Open Addera, Connect, 3, 3
rs1.AddNew
rs1("text") = "Har inte skrivit något"
rs1("vemsid") = session("id")

rs1.update

session("sida")="Du har köpt 'Egen sida'! På inställningar skriver du in det du vill ha på den!."
response.redirect "data.asp"
end if
%>

Den fungerar bra förutom att den skriver ut båda Session:na...
Ska man inte använda session i en if sats eller?