Ripropongo il problema di ieri..

**_Micio_** · 12-05-2004, 11:43

non riesco

vabbè posto la pagina, sperando in un intervento divino

codice:

<%@ Language=VBScript %>
<% Response.Expires=0 %>
<html>
<head>
<meta NAME="GENERATOR" Content="Tele Assistenza">
<link rel="stylesheet" type="text/css" href="stile.css">
<script LANGUAGE="javascript">
<!--//
function dataValida(txt){
	var re = /^\d{1,2}\/\d{1,2}\/\d{4}$/
	if(re.test(txt)){
		var adata = txt.split('/');
		var gg = parseInt(adata[0],10);
		var mm = parseInt(adata[1],10);
		var aaaa = parseInt(adata[2],10);
		var xdata = new Date(aaaa,mm-1,gg)
		if((xdata.getFullYear()==aaaa) && (xdata.getMonth()==mm-1) && (xdata.getDate()==gg))
			return xdata
		else return false
	}else return false
}
function controllo() {
	if(document.thisForm.datada.value!='')
		if (!dataValida(document.thisForm.datada.value)){
			alert("Inserire una data valida!")
			document.thisForm.datada.focus();
			return;	 
		}
	if(document.thisForm.dataa.value!='')
		if (!dataValida(document.thisForm.dataa.value)){
			alert("Inserire una data valida!")
			document.thisForm.dataa.focus();
			return;	 
		}
			document.thisForm.action="teleass_filtro.asp";
			document.thisForm.submit();
}
//-->
</script>
	<title></title>	
</head>
<body leftmargin="0" topmargin="10" marginwidth="0" marginheight="0">	

<%
If Request.Form("cerca") <> "" then
	Session("distretto")=Request.Form("distretto")
	Session("datada")=Request.Form("datada")
	Session("dataa")=Request.Form("dataa")
End If	
Data = Now()
Inizio_Mese = DateSerial(Year(Data),Month(Data),1)
Fine_Mese = DateAdd("m",1,Inizio_Mese)
Fine_Mese = DateAdd("d",-1,Fine_Mese)
Set ors = Server.CreateObject("ADODB.recordset")
str="SELECT * FROM DISTRETTO"
ors.Open str, conn
%>
<table width="100%" cellspacing="1" cellpadding="1" border="0">
	<tr>
		<td width="20%" align="left">[img]images/logo.jpg[/img]</td>
		<td width="40%" align="center">DETTAGLIO ASSISTENZA TECNICA REMOTA CHIAMATE/TEMPO</td>
		<td width="20%" class="data" align="right"><%="Data: " & Date()%></td>
	</tr>
</table>


	
<form name="thisForm" method="post">
<input type="hidden" value="cerca" name="cerca">
<table class="lista" border="0" cellspacing="1" cellpadding="1" align="center">
	<tr>
		<td>Distretto</td>
		<td>
		<select name="distretto">
			<option value=""></option>
	<%
	Do While Not ors.EOF
	%>
			<option><%=ors.Fields("distretto")%></option>
	<%
		ors.MoveNext
	Loop
	ors.Close
	Set ors = nothing	
	%>
		</select>
	</td>
	</tr>
	<tr>	
		<td>Data da</td>
		<td><input type="text" id="datada" name="datada" value="<%
		If Request.Form("datada") <> "" then 
			Response.Write Request.Form("datada") 
		else 
			Response.Write Inizio_Mese 
		End If
		%>">
		</td>
		<td>A</td>
		<td><input type="text" id="dataa" name="dataa" value="<%
		If Request.Form("dataa") <> "" then 
			Response.Write Request.Form("dataa") 
		else 
			Response.Write Fine_Mese 
		End If
		%>">
		</td>
		<td align="center"><input type="button" id="button2" name="button2" value="Trova" onclick="controllo()"></td>
	</tr>		
</table>
</form>
<% 
If Request.Form("cerca") <> "" then 
	Set rs = Server.CreateObject("ADODB.recordset")
	distretto = Session("distretto")
	datada = Session("datada")
	dataa = Session("dataa")
	str="SELECT * FROM tele_ass,distretto WHERE tele_ass.iddistretto=distretto.iddistretto"
	If datada <> "" then
		temp1 = split(Request.Form("datada"),"/")
		datada = temp1(2) & "/" & temp1(1) & "/" & temp1(0)
		str = str & " AND tele_ass.datains >=#" & datada & "#" 
	End If		
	If dataa <> "" then
		temp2 = split(Request.Form("dataa"),"/")
		dataa =  temp2(2) & "/" & temp2(1) & "/" & temp2(0)
		str = str & " AND tele_ass.datains <=#" & dataa & "#" 
	End If	
	If distretto <> "" then
		str = str & " AND distretto.distretto='" & distretto & "'"  
	End If			
	str = str & " ORDER BY tele_ass.datains DESC"		
		'Response.write(str)
		'Response.End
	rs.Open str, conn,1,3


If rs.BOF AND rs.EOF then  ' il recordset è vuoto 
%>
<table align="center">
	<tr class="form">
		<td align="center">Nessun Record Trovato.</td>
	</tr>
</table>
<%
else	
	Do While Not rs.EOF 	
		TotaleRecord = TotaleRecord + 1 
		TotaleInterventi = TotaleInterventi + rs("durata") 
		rs.MoveNext 
	Loop 
	rs.MoveFirst
	TotaleInterventi = 0
	Do While Not rs.EOF
		TotaleInterventi = TotaleInterventi + rs("durata")
		rs.MoveNext
	Loop
	rs.MoveFirst
%>
<table align="center" BORDER="0" CELLSPACING="1" CELLPADDING="1">
	<tr class="header">
		<td>Totale Interventi</td>
		<td>Durata Totale (m)</td>
	</tr>
	<tr class="lista">
		<td align="center"><%=TotaleRecord%></td>
		<td align="center"><%=TotaleInterventi%></td>
	</tr>	
</table>


<table WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">				
	<tr class="form">
		<td colspan="12">
			<% 
			If Request.Form("distretto") = "" AND Request.Form("datada") = "" AND Request.Form("dataa")  = "" then  
			%>
				Risultati della ricerca
			<%	
			else
			%>	
			<%
				If Request.Form("datada") = "" AND Request.Form("dataa") = "" then
			%>
					Risultati della ricerca del distretto di <%=Request.Form("distretto")%>
			<%
				else
					if Request.Form("distretto") = "" then
			%>			
						Risultati della ricerca dal <%=Request.Form("datada")%> al <%=Request.Form("dataa")%>
			<%
					else
			%>	 	
				Risultati della ricerca dal <%=Request.Form("datada")%> al <%=Request.Form("dataa")%>  distretto di <%=Request.Form("distretto")%></td>
			<% 
					End If
				End If	
			End If
			%> 
			
			
	</tr>
	<tr>	
		<td></td>
	</tr>
	<tr class="header" align=center> 
		<td>N°</td>
		<td>Data Inserimento</td>
		<td>Ora</td>
		<td>Distretto</a></td>
		<td>Riferimento</td>
		<td>Causale</td>
		<td>Esito</td>
		<td>Durata Intervento</td>
		<td>Data Intervento</td>
		<td>Contatto</td>
		<td>Conferma</td>
		<td>Modifica/Elimina</td>
	</tr>
<%
contatore = 0
Do While Not rs.EOF
	If len(rs("datainterv")) = 0 AND contatore mod 2 = 0 then
		classe = "listarossa"
	elseif len(rs("datainterv")) > 0 AND contatore mod 2 = 0  then
		classe = "lista"
	elseif len(rs("datainterv")) = 0 AND contatore mod 2 = 1 then
		classe = "listarossa2"
	elseif len(rs("datainterv")) > 0 AND contatore mod 2 = 1 then
		classe = "lista2"		
	End If
	contatore = contatore +1
	conferma = rs.Fields("conferma")
%>		

	<tr class=<%=classe%> align="center">
		<td><%=contatore%></td>
		<td><%=rs.Fields("datains")%></td>	
		<td><%=formatDateTIME( rs.Fields("ora"), vbShortTime )%></td>
		<td><%=rs.Fields("distretto")%></td>
		<td><%=rs.Fields("riferimento")%></td>
		<td><%=rs.Fields("causale")%></td>
		<td><%=rs.Fields("esito")%></td>
		<td><%=rs.Fields("durata")%></td>
		<td><%=rs.Fields("datainterv")%></td>
		<td><%=rs.Fields("contatto")%></td>		
		<td><%
			If conferma = true then
				Response.Write("si")
				else
				Response.Write("no")				
			End If	 
			%></td>
		<td align="center">" target="centro">[img]images/mod.ico[/img]" target="centro" onClick="return confirm('Eliminare il record?')">[img]images/canc.ico[/img]</td>
	</tr>
<%	
	rs.MoveNext
Loop	
rs.Close
End If
Set rs = nothing						
else 
	temp1 = split(Inizio_Mese,"/")
	Inizio_Mese = temp1(2) & "/" & temp1(1) & "/" & temp1(0)
	temp2 = split(Fine_Mese,"/")
	Fine_Mese =  temp2(2) & "/" & temp2(1) & "/" & temp2(0)
	Set rs = Server.CreateObject("ADODB.recordset")
	strSQL = "SELECT TELE_ASS.*, DISTRETTO.* FROM TELE_ASS, DISTRETTO WHERE TELE_ASS.iddistretto=DISTRETTO.iddistretto AND TELE_ASS.datains >=#" & Inizio_Mese &"# AND TELE_ASS.datains <=#" & Fine_Mese &"#"  
	order=Request.QueryString("order")  'ordinamento asc o desc
		If order=Session("order") then
			If Session("verso")="ASC" Then
				verso="DESC"
			else
				verso="ASC"
			End If
		else
			verso = "ASC"
		End if
	Session("order")=order
	Session("verso")=verso
	If order <> "" then 
		strSQL = strSQL & " ORDER BY " & order & " " & verso
	End If 	
		'Response.write(strSQL)
		'Response.End	
	rs.Open strSQL, conn,1,3
If rs.BOF AND rs.EOF then  ' il recordset è vuoto 
%>
<table align="center">
	<tr class="form">
		<td align="center">Nessun Record Trovato.</td>
	</tr>
</table>	
<%	
else	
	Do While Not rs.EOF 	    'contatori 
		TotaleRecord = TotaleRecord + 1 
		TotaleInterventi = TotaleInterventi + rs("durata") 
		rs.MoveNext 
	Loop 
	rs.MoveFirst
	TotaleInterventi = 0
	Do While Not rs.EOF
		TotaleInterventi = TotaleInterventi + rs("durata")
		rs.MoveNext
	Loop
	rs.MoveFirst
		
	Set irs = Server.CreateObject("ADODB.recordset")   'count dei record di datainterv, solo di valore minore di 1
	sql ="SELECT COUNT(*) AS tot FROM TELE_ASS WHERE len(TELE_ASS.datainterv)<1 AND TELE_ASS.datains >=#" & Inizio_Mese &"# AND TELE_ASS.datains <=#" & Fine_Mese &"#"
	Set irs = conn.Execute(sql)
%>
<table align="center" BORDER="0" CELLSPACING="1" CELLPADDING="1">
	<tr class="header">
		<td>Tot Interventi</td>
		<td>Tot Interventi insoluti</td>
		<td>Durata Totale (m)</td>
	</tr>
	<tr class="lista">
		<td align="center"><%=TotaleRecord%></td>
		<td align="center"><%=irs("tot")%></td>
		<td align="center"><%=TotaleInterventi%></td>
	</tr>	
</table>
<%
	irs.close
	Set irs = nothing
%>


<table WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">	
	<tr align="center" class="header">
		<td>N°</td>
		<td>Data Inserimento</td>
		<td><a href="teleass_filtro.asp?order=ora" target="centro">Ora</td>
		<td>Distretto</td>
		<td><a href="teleass_filtro.asp?order=riferimento" target="centro">Riferimento</td>
		<td><a href="teleass_filtro.asp?order=causale" target="centro">Causale</td>
		<td><a href="teleass_filtro.asp?order=esito" target="centro">Esito</td>
		<td><a href="teleass_filtro.asp?order=durata" target="centro">Durata Intervento</td>
		<td><a href="teleass_filtro.asp?order=datainterv" target="centro">Data Intervento</td>
		<td><a href="teleass_filtro.asp?order=contatto" target="centro">Contatto</td>
		<td><a href="teleass_filtro.asp?order=conferma" target="centro">Conferma</td>
		<td>Modifica/Elimina</td>
	</tr>	
<%
	contatore = 0
	Do While Not rs.EOF
		If len(rs("datainterv")) = 0 AND contatore mod 2 = 0 then
			classe = "listarossa"
		elseif len(rs("datainterv")) > 0 AND contatore mod 2 = 0  then
			classe = "lista"
		elseif len(rs("datainterv")) = 0 AND contatore mod 2 = 1 then
			classe = "listarossa2"
		elseif len(rs("datainterv")) > 0 AND contatore mod 2 = 1 then
			classe = "lista2"		
		End If
	contatore = contatore +1
	conferma = rs.Fields("conferma")
	
%>		
	<tr class=<%=classe%> align="center">
		<td><%=contatore%></td>
		<td><%=rs.Fields("datains")%></td>	
		<td><%=formatDateTIME( rs.Fields("ora"), vbShortTime )%></td>
		<td><%=rs.Fields("distretto")%></td>
		<td><%=rs.Fields("riferimento")%></td>
		<td><%=left(rs.Fields("causale"), 25)%></td>
		<td><%=left(rs.Fields("esito"), 25)%></td>
		<td><%=rs.Fields("durata")%></td>
		<td><%=rs.Fields("datainterv")%></td>
		<td><%=rs.Fields("contatto")%></td>		
		<td><%
			If conferma = true then
				Response.Write("si")
			else
				Response.Write("no")				
			End If	 
			%></td>
		<td align="center">" target="centro">[img]images/mod.ico[/img]" target="centro" onClick="return confirm('Eliminare il record?')">[img]images/canc.ico[/img]</td>
	</tr>

<%
		rs.MoveNext
	Loop
	rs.Close
	Set rs = nothing
	End If
End if
%>
</table>

</body>
</html>

Discussione: Ripropongo il problema di ieri..

Strumenti discussione

Ricerca discussione

Visualizza

Visualizzazione discussione

Permessi di invio