<% if not (isempty(request.form("scelta"))) then s=ucase(request.form("scelta")) n=ucase(request.form("nominativo")) sn=server.mappath("log\" & s &".MDB") q="select * from log where nominativo like'" & n &"'" SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION") SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET") conn.open "DRIVER={Microsoft Access Driver (*.MDB)};" & _ "DBQ=" & sn set rs=conn.execute (q) %>

<% if rs.eof then%> <% else %> <% do until rs.eof %> <% rs.movenext loop end if %>

<%= "non a log / not in log "%>	Date	Call	Band	Mode
<%= rs("DATA") %>	<%= rs("NOMINATIVO") %>	<%= rs("BANDA") %>	<%= rs("MODO") %>

<% set file = fso.getfile(sn) response.write "Log aggiornato il / Log last updated" & _ "
" & file.datelastmodified %>

<% rs.close conn.close set rs= nothing set conn= nothing set dir = nothing set file= nothing set fso = nothing else response.write "

scegli un Log ed inserisci un Call

" end if %>