Hypermedia Produzioni Multimediali srl

<%dim myfile myFile=Server.MapPath("data/cont.txt") Set FileObject=CreateObject ("Scripting.FileSystemObject") Set InStream=FileObject.OpenTextFile(myFile,1,true) dim cont cont=InStream.ReadLine()+1 INStream.close Set FileObject=CreateObject ("Scripting.FileSystemObject") Set OutStream=FileObject.CreateTextFile(myFile,true) OutStream.WriteLine(cont)%> <%myFile=Server.MapPath("data/cont_session.txt") Set FileObject=CreateObject ("Scripting.FileSystemObject") Set InStream=FileObject.OpenTextFile(myFile,1,true) if session("lingua")="" then %> <% cont=InStream.ReadLine()+1 %> <% set rs_up = Server.CreateObject( "ADODB.Recordset") %> <% sql23="insert into log (ip,data) values('"&request.servervariables("remote_host")&"','"&now()&"')" %> <% rs_up.Open sql23, ConnSQL %> <% Else %> <% cont=InStream.ReadLine()%> <% End If INStream.close Set FileObject=CreateObject ("Scripting.FileSystemObject") Set OutStream=FileObject.CreateTextFile(myFile,true) OutStream.WriteLine(cont)%> <% session("lingua")=request.querystring("l") %> Hypermedia Produzioni Multimediali srl

[Profilo aziendale . Missione . Aree di affari . Alcuni clienti] [Video . Internet&Multimedia . Audio]
[Contatti . Dove siamo]

2001 - Hypermedia Produzioni Multimediali srl - Firenze