Restricted Area

Tra gli obiettivi raggiunti di cui andiamo fieri non è da sottovalutare l'attenta utilizzazione delle risorse di cui disponiamo. Forti di una connettività di circa 12 mbit/sec non abbiamo fatto di questa preziosa risorsa un semplice mezzo per essere visibili. Partendo dal presupposto che tutto ha un costo, abbiamo razionalizzato la distribuzione delle nostre linee ideando più prodotti ognuno con caratteristiche tali da impegnare in modo diverso la larghezza di banda di cui disponiamo. Ed è così che tra i nostri "prodotti" è possibile trovare una vasta gamma di soluzioni: da quelle più economiche e destinate a soddisfare chi muove con prudenza i propri passi verso internet, a soluzioni decisamente professionali per affidabilità e prestazioni. Condizioni di fornitura del servizio Vestibulum iaculis lacinia est. Proin dictum elementum velit. Fusce euismod consequat ante. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque sed dolor. Aliquam congue fermentum nisl. Mauris accumsan nulla vel diam. Sed in lacus ut enim adipiscing aliquet. Nulla venenatis. In pede mi, aliquet sit amet, euismod in, auctor ut, ligula. Aliquam dapibus tincidunt metus. Praesent justo dolor, lobortis quis, lobortis dignissim, pulvinar ac, lorem. Vestibulum sed ante. Donec sagittis euismod purus. Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam,eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo. Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt. Neque porro quisquam est, qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit, sed quia non numquam eius modi. Email: info@site.com

ABOUT US   |   HOSTING   |   DOMAINS   |   SERVICES   |   ADVERTISING   |   SUPPORT   |   CONTACTS   |   NET MONITOR Copyright © Vil.it, 2005. All Rights Reserved. Privacy policy. Remote ip adrress:    <%ip243 = Request.ServerVariables("REMOTE_ADDR") response.write ip243 %>

<% ' ******************************************************************** ' Paste this block of code on your web page where you would like text ' links to be displayed. This code will dynamically add and remove text ' links on your web page according to your BackLinks.com settings. ' ******************************************************************** Dim BLKey Dim OpenInNewWindow Dim PostingString Dim ErrorString Dim ResultString Dim LinkUrl ' The following variable defines whether links are opened in a new window ' (1 = Yes, 0 = No) OpenInNewWindow = 1 ' ******************************************************************* ' please do not modify any of the code below ' ******************************************************************* BLKey = "Q3FF-7YJ0-EY06" ' # The following variable is sent to the BackLinks server in order to ' # generate working links on your page: If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If If Request.ServerVariables("REQUEST_URI") Then LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI") Else LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If End If LinkUrl = server.URLencode(LinkUrl) ' # Generate the data to post to the BackLinks.com server PostingString = "&Key=" & BLKey PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er) Dim HttpReqObj Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetBackLinksData = False Else HttpReqObj.open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If End If End Function If GetBackLinksData(PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If ' FINSIHED BackLinks.COM SCRIPT BLOCK %>