---
title: "Byte av stilmall"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46303-byte-av-stilmall"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Nicklas"
published: "2002-06-20T10:29:54.000Z"
updated: "2002-06-20T12:32:55.000Z"
replies: 1
views: 242
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46303-byte-av-stilmall"
---

# Byte av stilmall

## #1 — Nicklas, 2002-06-20T10:29Z

Jag försöker att göra ett script som byter stilmall efter personligt val och med hjälp av cookies.  Jag tror jag har fått det att fungera någorlunda men jag måste trycka på Refresh varje gång, jag vet inte hur jag ska få till så att valet uppdateras automatiskt (Refresh)

Någon som vet eller finns det bättre sätt att göra detta på ?

Här kommer koden.

```
<html>
<head>
<title>Style</title>
<%
response.cookies("Style").Expires = date + 365 
num=request.cookies("Style")

If num = "" Then
      Response.Write "<link rel=""StyleSheet"" HREF=""pnp.css"" type=""text/css"">"
Else
      Response.Write "<link rel=""StyleSheet"" HREF=""pnp1.css"" type=""text/css"">"
End If
%>

<% 
 Select Case Request.Querystring("page")
   Case "", "pnp"
	 response.cookies("Style") = ""
   Case "pnp1"
	 response.cookies("Style") = 1
 End Select
%>
</head>

<body>
<a href="style.asp?page=pnp">Style</a>
<a href="style.asp?page=pnp1">Style1</a>
</body>
</html>
```

/Nicklas

Permalänk: https://www.webforum.nu/p/46303

## #2 — Nicklas, 2002-06-20T12:32Z

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>
```

Permalänk: https://www.webforum.nu/p/703453

---

Tråden på webben: https://www.webforum.nu/amne/asp/46303-byte-av-stilmall
