Fine then...
<%
Dim SkinNo
Dim SkinChange
SkinNo = Request.Cookies("Skin")
SkinChange = CLng(Request.QueryString("skin"))
If SkinChange <> "" Then
Response.Cookies("Skin") = SkinChange
SkinNo = SkinChange
End If
Select Case SkinNo
Case 1
Response.Cookies("Skin") = 1
Server.Execute("skin/1/header.inc")
Case 2
Response.Cookies("Skin") = 2
Server.Execute("skin/2/header.inc")
Case Else
Response.Write ("No Skin Selected"& SkinNo)
SkinNo = CLng(Request.QueryString("Skin"))
'Response.Cookies("Skin") = SkinNo
End Select
Response.Write (SkinChange &" - SkinChange <br>")
Response.Write (Skin &" - Skin <br>")
%>
...and yeah, I'll prboally just go with CSS skining, I mainly just wanted to see if it could be done. It would appear not.