<%@ LANGUAGE = "VBSCRIPT" %>
<%
Dim CookieText,CookieInfo,GoBackTo,StrR,HttpReferer,UsersHttprefererLogId,Page,objConn,UsersHttprefererLog
Dim UserId,Email,Password,FName,LName
Dim Control,ThisIntValue
Dim UIDGraphics,ThisPath,ThisContents,LoginPage
UsersHttprefererLogId=Now()
Page="default - CRMB"
HttpReferer=Session("HttpReferer")
CookieText=(Request.ServerVariables("HTTP_Cookie"))
CookieInfo=Left(CookieText,30)
' Opens NYMParking database
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.provider = "SQLOLEDB"
objConn.Open "Data Source=CRMC; Initial Catalog=NYMParking; User ID=62BorgWard*; Password=2107Brooklyn*;"
Set UsersHttprefererLog = Server.CreateObject("ADODB.Recordset")
StrR = "Insert into UsersHttprefererLog (OldId,Page,Httpreferer,HttpCookie,RemoteAddr) VALUES ('"&UsersHttprefererLogId&"','"&Page&"','"&HttpReferer&"','"&CookieInfo&"','"&Request.ServerVariables("Remote_Addr")&"')"
UsersHttprefererLog.Open strR, objConn
%>
New York Motorcycle Parking
1
We are pleased to announce the opening of 15 Manhattan locations! All garages accept both daily and monthly parking. Click on locations to see the availability.
