KGRKJGETMRETU895U-589TY5MIGM5JGB5SDFESFREWTGR54TY
Server : Apache/2.4.62
System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64
User : www ( 80)
PHP Version : 8.3.8
Disable Function : NONE
Directory :  /domains/hofficer1/_vti_pvt/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : /domains/hofficer1/_vti_pvt/doctodep.btr
�5,H����

����vt���������������������������������������������������������������������������������������������������������nt7RE
Server�uZ ADODB.Conn_vti_pvt/_x_pagehits.xmlasp-test.aspperl-test.plrcn-formmail.plrcn.htm�VBScript - script blockResponse.WriteBlock(0)

Response.WriteBlock(1)

Response.WriteBlock(2)

Response.WriteBlock(3)

Dim rsCount, db, numCount

set conCount= Server.CreateObject("ADODB.Connection")

Set rsCount = Server.CreateObject("ADODB.Recordset")

strConnect = "Driver={microsoft Access Driver (*.mdb)}; DBQ=D:\Inetpub\WWWRoot\kodimoh.org\database\kodimoh.mdb"

'strConnect = "Driver={microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\kadimah\database\kodimoh.mdb"

conCount.ConnectionString = strConnect

StrSql= "Select * from counter"

rsCount.Open StrSql, strConnect

rsCount.MoveFirst

If Isempty(Session("numCount")) Then

'Increment counter

Set rsUpdate = Server.CreateObject("ADODB.Recordset")

numCount = CStr( rsCount("counter") + 1)

StrSql= "UPDATE counter SET [counter] = " &  numCount & " WHERE [id] = 1;"

rsUpdate.Open StrSql, strConnect

Else

numCount = CStr( rsCount("counter"))

End If

Session("numCount") = CStr(numCount)

rsCount.Close

Response.WriteBlock(4)

Response.Write(Session("numCount"))

Response.WriteBlock(5)

Response.WriteBlock(6)

Response.WriteBlock(7)

Response.Write(monthname(month(Date())))

Response.WriteBlock(8)

Response.Write(day(Date()))

Response.WriteBlock(9)

Response.Write(Year(Date()))

Response.WriteBlock(10)

Response.WriteBlock(11)

Response.WriteBlock(12)

Response.WriteBlock(13)

Response.WriteBlock(14)

Response.WriteBlock(15)

Response.Write(CStr(Date() - 10))

Response.WriteBlock(16)

Response.WriteBlock(17)

�&���V8VPV`oooo|�0��|0�(���$@t	t�1�
1��(�(�<$|0�
$-H(<PR�Rtt�1�::$-(<(<�)�1�o�&�nooo(�(�&no(�&n	o(�&,n
ooo 
o!o"o#(�
I&<n$o%o�#��u��
�Z��R .htrer='_vti_s-dir-nane�j�":\WINNT\System32\msw3prt.dllsg-fo!0�b��o��s��s��r
���					i8h@�K�KP�@���;�B���;�����g�g�sh

Anon7 - 2021