Nieuw lid |
|
Ik heb toch maar voor 2 thema's geopteerd dan
Ik gebruik nu volgende code, maar ik krijg nog fouten op 'date' en de laatste 'Response'.
<%
'Bereken expire datum
Dim cookie
response.cookies("cookie").Expires = date+365
cookie = Request.Cookies("cookie")
'------------------------------------
'Kijken of cookie bestaat/ingevuld is
'------------------------------------
'cookie bestaat niet
If cookie = "" Then
Response.Cookies("cookie") = "serious"
Else
Page.Theme() = "Jolly"
End If
%>
<% 'Bereken expire datum Dim cookie response.cookies("cookie").Expires = date+365 cookie = Request.Cookies("cookie") '------------------------------------ 'Kijken of cookie bestaat/ingevuld is '------------------------------------ 'cookie bestaat niet If cookie = "" Then Response.Cookies("cookie") = "serious" Else Page.Theme() = "Jolly" End If %>
EDIT
=============
Ik heb het aangepast naar dit:
Plaatscode: 136478
Nu krijg ik een PRE_INIT fout, iemand raad?
EDIT 2
=============
Het werkt ;) |