<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Sitelockv3.asp" -->
<%
Dim RSLoginPage
Dim RSLoginPage_numRows

Set RSLoginPage = Server.CreateObject("ADODB.Recordset")
RSLoginPage.ActiveConnection = MM_Sitelockv3_STRING
RSLoginPage.Source = "SELECT D2PathLoginPage FROM SLVars"
RSLoginPage.CursorType = 0
RSLoginPage.CursorLocation = 2
RSLoginPage.LockType = 1
RSLoginPage.Open()

Dim PathToLoginPage
PathToLoginPage = (RSLoginPage.Fields.Item("D2PathLoginPage").Value)

If Request.Cookies("D2SITELOCK")("SLUserGUID") <> "" Then
Response.Cookies("D2SITELOCK")("SLUserGUID") = ""
Response.Cookies("D2SITELOCK")("SLUserNAME") = ""
End If

Session.Abandon()
RSLoginPage.Close()
Set RSLoginPage = Nothing
Response.Redirect(PathToLoginPage)
%>