http://www.crazycasemod.se/webshop/Webs ... efault.asp
Antagligen så ska night_smoke hjälpa till och ändra så att det blå försvinner och webshopen täcker hela skärmen.
pern: Tack! Ska säga till om jag får några problem igen

Kod: Markera allt
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<html>
<body>
<%
Response.Redirect "http://www.CrazyCaseMod.se/webshop/webshop-asp/default.asp"
%>
</body>
</html>
Kod: Markera allt
<%@ Language=VBScript %>
<%
Response.Buffer = True
' --- Globala variabler --------------------------
dim RattLosen, Losen
' --- Subrutiner ---------------------------------
' --- Funktioner ---------------------------------
' --- Main kod -----------------------------------
RattLosen = "...."
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META HTTP-EQUIV=PRAGMA CONTENT="NO-CACHE">
<title></title>
</head>
<body >
<%
response.write("<p>This site is protected</p>")
%>
<form action="private.asp" method="post">
Pass: <input type="text" name="Losen" size="20" />
<input type="submit" value="Login" />
</form>
<%
Losen=Request.Form("Losen")
If Losen = RattLosen Then
Response.Write("<p>Pass: " & Losen & "</p>")
Response.Write("<p>Du har nu tillgång till de hemliga siderna!</p>")
End If
%>
</body>
</html>
Kod: Markera allt
<%@ Language=VBScript %>
<%
Response.Buffer = True
' --- Global variables ----------------------------
Dim sAdminPassword ' // String Variables
Dim sUserPassword
Dim sAction
Dim bUserIsValidAdmin ' // Boolean Variables
' --- Subroutines ---------------------------------
Sub CheckUserPassword()
If (sAdminPassword = sUserPassword) Then
bUserIsValidAdmin = TRUE
Session("IsValidAdmin") = TRUE
Else
bUserIsValidAdmin = FALSE
Session("IsValidAdmin") = FALSE
End IF
End Sub
' --- Functions ----------------------------------
Function isAction(Action2Test)
IF (Action2Test = sAction) Then
isAction = TRUE
Else
isAction = FALSE
End IF
End Function
' --- Main Code -----------------------------------
bUserIsValidAdmin = FALSE
sAdminPassword = "42"
sUserPassword = Request.Form("Losen")
sAction = Request.QueryString("Action").Item
IF (sAction = "Login") Then
CheckUserPassword
End IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<META HTTP-EQUIV=PRAGMA CONTENT="NO-CACHE">
<title></title>
</head>
<body >
<p>This site is protected</p>
<form action="private.asp?Action=Login" method="post">
Pass: <input type="text" name="Losen" size="20" />
<input type="submit" value="Login" />
</form>
<% IF (isAction("Login") AND bUserIsValidAdmin) Then %>
<p>Pass: <%= sUserPassword %> </p>
<p>Du har nu tillgång till de hemliga siderna!</p>
<%
End IF
IF (isAction("Login") AND NOT bUserIsValidAdmin) Then
%>
Sorry, Fel lösenord.
<% End IF %>
</body>
</html>
Kod: Markera allt
IF (sAction = "Login") Then
CheckUserPassword
End IF