Naturalmente da adattare alle tue esigenze:
codice:
<html>
<head><title>Filtro per Cabina Primaria</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options.value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body>
<form name="selezione" method="post" action="">
<p style="margin-top: 0; margin-bottom: 0"></p>
<div align="left">
<%
pagina = request.servervariables("path_info")
ID_CAT = request.querystring("ID_CAT")
if len(ID_CAT) > 0 and isnumeric(ID_CAT) then
id = clng(ID_CAT)
else
id = 0
end if
set conn = server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("upload.mdb")
sql = "select * from CAT order by CAT"
set rs = conn.execute(sql)
Function ConvertiData(data)
giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
mese = Left(data, InStr(1, data, "/") - 1)
anno = Right(data, Len(data) - InStrRev(data, "/"))
ConvertiData = giorno & "/" & mese & "/" & anno
End Function
if not rs.eof then
%>
</div>
<p style="margin-top: 0; margin-bottom: 0" align="center"></p>
<p style="margin-top: 0; margin-bottom: 0" align="left">
<select name="tabella1" onChange="jumpMenu('parent',this,0)">
<option value="<%=pagina%>?id_cat=0">Seleziona la Cabina...</option>
<% do until rs.eof %>
<option value="<%=pagina%>?id_cat=<%=rs("ID_CAT")%>"<% if rs("ID_CAT") = id_cat then %> selected<% end if %>><%=rs("CAT")%></option>
<%
rs.movenext
loop
end if
%>
</select>
<%
rs.close
set rs = nothing
if ID_CAT > 0 then
sql = "select * from ListFiles where ID_CAT = " & ID_CAT
set rs = conn.execute(sql)
do while not rs.eof
DATA_PRELIEVO = ConvertiData(CStr(RS("DATA_PRELIEVO")))
%>
<h1 align="left"><%=rs("CABINA")%></h1>
<p align="left">ID: <%=rs("UploadID")%>
Data: <%=DATA_PRELIEVO%>
<%
rs.movenext
loop
'end if
rs.close
set rs = nothing
end if 'fine if id_CAT > 0 then
conn.close
set conn = nothing
%> </p>
</p>
</form>
</body>
</html>
Permessi di invio
Rispondi quotando