<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer=True%>
<!--#include file="ConnDB2.asp" -->
<%
Dim objFile, InStream, contatto
Set objFile=Server.CreateObject("Scripting.FileSystemObject")
Set InStream=objFile.OpenTextFile(nome_connessione2(),8,True,-2)

contatto=Date&vbTab&Time&vbTab&Request.QueryString("dwld")
InStream.WriteLine(contatto)

InStream.Close
Set InStream = Nothing

Response.redirect(Request.querystring("dwld"))
%>