%@ Page Language="vb" %> <%@ import namespace="system.data" %> <%@ import namespace="system.data.sqlclient" %> <% session("Home")="PRG" Dim DDsplit = New Char() Dim i As Integer Dim StartingDate As Integer Dim StartingMon As Integer Dim StartingYr As Integer Dim cmd As SqlCommand Dim consql As SqlConnection Dim ref Dim tdate, time1 As String Dim IPAddress = Request.ServerVariables("REMOTE_ADDR") Dim str As String = Request.ServerVariables("URL") Dim hstname = Request.ServerVariables("HTTP_HOST") Dim urln = Request.ServerVariables("URL") Session("Referansce") = Request.ServerVariables("HTTP_REFERER") ref = Session("Referansce") 'getip.GetIPAddress(IPAddress, hstname, urln) DDsplit = Split(DateString, "-", -1) StartingDate = DDsplit(1) StartingMon = DDsplit(0) StartingYr = DDsplit(2) %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||