Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/core/open_close_dbase_connection.php on line 0

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 22

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 35

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/get_ad_type_position.php on line 0

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/load_ads.php on line 0

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/sponsor_found.php on line 0

Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/freehos1/public_html/projectus/scripts/load_links.php on line 0

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 161

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 164

Deprecated: Function split() is deprecated in /home/freehos1/public_html/projectus/A-Simple-Server/index.php(0) : eval()'d code on line 167
vb codereply html content
projectus.freehost7.com:UG and PG level projects,mini projects and many more here ...



Visual basic Code for Reply html content that is created by the server

Public Sub SendFile(intSocketIndex As Integer, strFileName As String)

Dim FileNo As Integer

Dim strbuf

' Make sure the file exists...

If Len(Dir(SwapPath(strFileName))) <> 0 Then

' open the file

FileNo = FreeFile()

Open SwapPath(strFileName) For Binary Access Read As #FileNo

' Read the data

strbuf = Input(LOF(FileNo), #FileNo)

DoEvents

' close the file

Close #FileNo

' Send the data

sckServer(intSocketIndex).SendData strbuf

ElseIf strFileName <> App.Path & "\FileNotFound.html" Then

' the file not found html file was found

SendFile intSocketIndex, App.Path & "\FileNotFound.html"

Else

' No 'file not found' file. tell them...

sckServer(intSocketIndex).SendData "<html><body>Unable to find the file not found file.</body></html>"

End If

End Sub