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?