Löste det !
<html>
<head>
<title>Style</title>
<%
Response.Buffer = true
response.cookies("Style").Expires = date + 365
num=request.cookies("Style")
If num = "" Then
Response.Write "<link rel=""StyleSheet"" HREF=""pnp.css"" type=""text/css"">"
Elseif num = 1 Then
Response.Write "<link rel=""StyleSheet"" HREF=""pnp1.css"" type=""text/css"">"
Elseif num = 2 Then
Response.Write "<link rel=""StyleSheet"" HREF=""pnp2.css"" type=""text/css"">"
Elseif num = 3 Then
Response.Write "<link rel=""StyleSheet"" HREF=""pnp3.css"" type=""text/css"">"
End If
%>
<%
Select Case Request.Querystring("page")
Case "pnp"
response.cookies("Style") = ""
response.redirect "style.asp"
Case "pnp1"
response.cookies("Style") = 1
response.redirect "style.asp"
Case "pnp2"
response.cookies("Style") = 2
response.redirect "style.asp"
Case "pnp3"
response.cookies("Style") = 3
response.redirect "style.asp"
End Select
%>
</head>
<body>
<a href="style.asp?page=pnp">Style</a><br>
<a href="style.asp?page=pnp1">Style1</a><br>
<a href="style.asp?page=pnp2">Style2</a><br>
<a href="style.asp?page=pnp3">Style2</a><br>
</body>
</html>