Criar TXT

[adtv 0]

Estou tentando criar um txt porem estou com um problema eu queria q ele fosse gerado com a data do dia de geracao do arquivo estou enviando o codigo para vcs darem uma olhada.<% @ Language=VBScript %><% option explicit dim logarq , arq, C_arqdim conn, rs, dbfile, sqldbfile = server.MapPath("atende.mdb") set conn = Server.CreateObject("ADODB.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile set rs = Server.CreateObject("ADODB.recordset") set rs.activeconnection = conn rs.cursortype = 3 sql = "SELECT * FROM TBhistorico" rs.open sql, connset arq = CreateObject("Scripting.FileSystemObject")set logarq = arq.CreateTextFile(Server.MapPath("lista.txt"),true)logarq.write("Inicio da Lista")logarq.writeblanklines(2)while not rs.eof logarq.write "Login:" & (rs("login"))logarq.writeblanklines(1)rs.movenextwendlogarq.write("Fim da Lista")logarq.close%>

[adtv 0]

ai galera eu mesmo resolvi fiz uma funcao ne function InputData(date)InputData = right("0" & day(date),2) & right("0" & month(date),2) & right("0" & year(date),2)end functionInputData(date())essa funcao vai retornar a data assim: ddmmaaFalow galera obrigado.