
<%@ Language=VBScript %>
<% Response.Buffer=TRUE %>

   <!--#include file="adovbs.inc"-->
   <!--#include file="connect.asp"-->




<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM statistik"
rs.Open sql, Connect, 3, 3

visits = rs("totalt")


if rs("datum") = date Then

idag = rs("idag")
rs("idag") = idag + 1

Else

rs("datum") = date
rs("idag") = 1

End if


rs("totalt") = visits + 1

rs.Update


rs.Close

sql = ""

if Request.Cookies("prylsajten")> "" Then

Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM medlemmar"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic

x=false

Do until x=true or RecSet.EOF

if RecSet("pass") = Request.Cookies("prylsajten") Then
x=true

End if

RecSet.MoveNext
Loop

if x=false Then
Response.redirect "registrera.asp"

Elseif x=true Then

	Session("ok") = "true"
	Session("pass") = Request.Cookies("login")


Response.Redirect "log.asp"



End if

End if







Response.Redirect "default1.asp"
%>