impaginazione

**pagineasp2** · 05-05-2006, 16:44

salve ho un grosso problema devo far diventare 5 pagine asp, una pagina sola, cioe in queste sei pagine sono state uasate per fare delel ricerche separate, adesso dorei mettere i campi di queste 5 pagine in una sola pagina, ci ho provato ma mi da un sacco di errori..VI PREGO AIUTATEMI....

1) pagina
<html>
<head>
<title>Mostra Dati Presenti</title>
<title></title>
<body topmargin="0" bgcolor="#0000ff" background="lgrey069.jpg">

<table width="30%" border="0" align="right">
<tr
<td>[b]<%Response.write("<p align='center'>L'Utente collegato è:" & Session("User") & "</p>")%>
</tr>
</table>
<table width="100%" border="0">
<tr align="left">
<td>[img]clip_image002.gif[/img]</td>
</tr>
</table>
<table width="12%" border="0">
<tr align="left">
<th>MD/BS-AO</th>
</tr>
</table>
<table width="100%" border="0" bgcolor="red">
<tr align="center">
<th>RICERCA PER CODICE AGESP</th>

</tr>
</table>
</table>

<table width="22%" border="0" align="center">
<td
<th><td style="font-weight:bold">Inserire Codice Agesp</th>
<form name="filtraDati" action="ricerca2_agesp.asp" method="POST">
<input type="text" name="codice_agesp" size="20">
<input type="submit" value="cerca" size="20">
</table>
</form>

</table>

<p align="center"><input type="button" value="Torna Indietro" onclick="history.back()"></p>
</TR>
</body>
</html>

2) pagina
<html>
<head>
<title>Mostra Dati Presenti</title>
<title></title>
<body topmargin="0" bgcolor="#0000ff" background="lgrey069.jpg">

<table width="30%" border="0" align="right">
<tr
<td>[b]<%Response.write("<p align='center'>L'Utente collegato è:" & Session("User") & "</p>")%>
</tr>
</table>
<table width="100%" border="0">
<tr align="left">
<td>[img]clip_image002.gif[/img]</td>
</tr>
</table>
<table width="12%" border="0">
<tr align="left">
<th>MD/BS-AO</th>
</tr>
</table>
<table width="100%" border="0" bgcolor="red">
<tr align="center">
<th>RICERCA PER CODICE AGESP</th>

</tr>
</table>

<table width="40%" border="1" heigt="300" align="center">
<tr>
<td align=center>
<th>Risultato di ricerca per Codice Agesp</th>
</table>

<table border="1" bgcolor="white" cellspacing="1" cellpadding="1" align="center" bordercolor="blue">

<tr>
<th>Ord.</th>
<th>Cod.Agesp</th>
<th>Titolo PI</th>
<th>Data PI</th>
</tr>

<%
' Apertura del Database e creazione recordSet
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/mdb/Gestione_PI_Tickets.mdb")

set rs = server.createobject("ADODB.recordset")
' Devi inserire qui il filtro
sql = "SELECT * FROM CdT WHERE cod_agesp= '"& Request.Form("codice_agesp")&" ' "
'response.write(sql)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, objconn
if not rs.eof then
do while not(rs.eof)
dim variabil2
variabile2 = rs("id")
Dim variabile1
variabile1 = rs("Titolo_PI")
%>
<tr>
<td align="center"><font size="2" font face="arial"><%response.write(rs("id"))%></font></td>
<td><font size="2" face="verdana"><%response.write("" & rs("cod_agesp") & "")%></font></td>
<td align="center" ><font size="2" font face="arial"><%response.write("" & rs("Titolo_PI") & "")%></font></td>
<td align="center" ><font size="2" font face="arial"><%response.write(rs("Data_PI"))%></font></td>

<tr>

<%
rs.movenext

Loop
rs.Close
set rs = Nothing
objConn.close
%>

<%

else
%>
<table width="40%" border="4" heigt="300" align="center">
<tr>
<td align=center>
<%

Response.Redirect "pag_messagio.asp"
%>
</td>
</tr>
</table>
<%
end if
%>
</table>

<p align="center"><input type="button" value="Torna Indietro" onclick="history.back()"></p>
</TR>
</body>
</html>

pagina 3)
<html>
<head>
<% Response.Buffer = True %>

<title>Mostra Dati Presenti</title>

<body topmargin="0" bgcolor="#0000ff" background="lgrey069.jpg">

<table width="30%" border="0" align="right">
<tr
<td>[b]<%Response.write("<p align='center'>L'Utente collegato è:" & Session("User") & "</p>")%>
</tr>
</table>
<table width="100%" border="0">
<tr align="left">
<td>[img]clip_image002.gif[/img]</td>
</tr>
</table>
<table width="12%" border="0">
<tr align="left">
<th>MD/BS-AO</th>
</tr>
</table>
<table width="100%" border="0" bgcolor="red">
<tr align="center">
<th>RICERCA PROPOSTE INVESTIMENTO PER DATA</th>

</tr>
</table>

<form name="filtraDati" action="r_data_pi.asp" method="POST">
<table width="25%" border="0" align="center">
<tr>
<th colspan="2">Inserire una data PI</th>
</tr>
<tr>
<td>Dal</td>
<td><input name="data" size="10" onclick="if(self.gfPop)gfPop.fPopCalendar(this);re turn false;" style="font-size : smaller;" readonly></td>
</tr>
<tr>
<td>Al</td>
<td><input name="data1" size="10" onclick="if(self.gfPop)gfPop.fPopCalendar(this);re turn false;" style="font-size : smaller;" readonly></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="button" value="cerca" onclick="if(document.all.data.value!='' && document.all.data1.value!=''){document.all.filtraD ati.submit();}else{alert('Attenzione! Valorizza i campi data');}" size="10"></td>
</tr>
</table>
</form>

<p align="center"><input type="button" value="Torna Indietro" onclick="history.back()"></p>

<iframe width=174 height=189 name="gToday:normal:agenda.js" id="gToday:normal:agenda.js" src="js_calendar/cal.htm" scrolling="no" frameborder="0" style="visibility:visible; z-index:999; position:absolute; top:-500px; left:-500px;"></iframe>

</body>
</html>
pagina 4)
<html>
<head>
<title>Mostra Dati Presenti</title>

<body topmargin="0" bgcolor="#0000ff" background="lgrey069.jpg">

<table width="30%" border="0" align="right">
<tr
<td>[b]<%Response.write("<p align='center'>L'Utente collegato è:" & Session("User") & "</p>")%>
</tr>
</table>
<table width="100%" border="0">
<tr align="left">
<td>[img]clip_image002.gif[/img]</td>
</tr>
</table>
<table width="12%" border="0">
<tr align="left">
<th>MD/BS-AO</th>
</tr>
</table>
<table width="99%" border="0" bgcolor="red">
<tr align="center">
<th></th>

</tr>
</table>

<table width="40%" border="1" heigt="300" align="center">
<tr>
<td align=center>
<th>Risultato di ricerca delle PI per data </th>
</table>

<table border="1" bgcolor="white" cellspacing="1" cellpadding="1" align="center" bordercolor="blue">
<tr>
<th>Ord.</th>
<th>Cod.Agesp</th>
<th>Titolo PI</th>
<th>Data PI</th>

</tr>
<form>

<%
Dim variabile1
' Apertura del Database e creazione recordSet
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/mdb/Gestione_PI_Tickets.mdb")
set rs = server.createobject("ADODB.recordset")
sql = "SELECT * FROM CdT WHERE data_PI between format('" & Request.Form("data") & "','dd/mm/yyyy') and format('" & Request.Form("data1") & "','dd/mm/yyyy')"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, objconn
if not rs.eof then
do while not(rs.eof)

variabile1 = rs("Titolo_PI")

%>
<tr>

<td align="center"><font size="2" font face="arial"><%response.write(rs("id"))%></font></td>
<td><font align="center"><font size="2" font face="arial"><%response.write( Request.Form("sistema"))%></font></td>
<td><font size="2" face="verdana"><%response.write("" & rs("cod_agesp") & "")%></font></td>
<td align="center" ><font size="2" font face="arial"><%response.write("" & rs("Titolo_PI") & "")%></font></td>
<td align="center" ><font size="2" font face="arial"><%response.write(rs("data_PI"))%></font></td>
<tr>

<%
rs.movenext
Loop

rs.Close
set rs = Nothing
objConn.close

else
%>
<table width="40%" border="4" heigt="300" align="center">
<tr>
<td align=center>
<%
Response.Redirect "pag_messagio.asp"
%>
</td>
</tr>
</table>
<%
end if
%>
</form>
</table>
<p align="center"><input type="button" value="Torna Indietro" onclick="history.back()"></p>

</body>
</html>
PAGINA 5)
<html>
<head>
<html> <head>
<title></title>
<body bgcolor="#0000ff" background="lgrey069.jpg">

</table>
<table width="30%" border="0" align="right">
<tr
<td>[b]<%Response.write("<p align='center'>L'Utente collegato è:" & Session("User") & "</p>")%>
</tr>
</table>
<table width="100%" border="0">
<tr align="left">
<td>[img]clip_image002.gif[/img]</td>
</tr>
</table>
<table border="0" align="right">
<td align="center"><font size="2" font face="verdana"><%Response.Write("Oggi è il: " &Date())%></font></td>

<td align="center"><font size="2" font face="verdana"><%Response.Write ("Ore: " &Time())%></font></td>
</table>

<table width="12%" border="0">
<tr align="left">
<th>MD/BS-AO</th>
</tr>
</table>

<table width="100%" border="0" bgcolor="red">
<tr align="center">
<th>ELENCO PI AREA "DWH"</th>
</tr>
</table>

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/mdb/Gestione_PI_Tickets.mdb")

set rs = server.createobject("ADODB.recordset")
'sql = "select distinct id_sistema, sistema from CdT"

'rs.open sql, objconn

%>

<form name="filtro" action="Elenco_Sistemi_Dwh.asp" method="post">
<table align="center">
<tr>
<td>
<select name="sistema">
<option value="">(Seleziona il sistema)</option>
<option value="GAC">GAC</option>
<option value="DWHO">DWHO</option>
<option value="CP’s">CP’s</option>
<option value="KPI">KPI</option>
<option value="CIA">CIA</option>
<option value="DWVendite">DWVendite</option>
<option value="Compensi">Compensi</option>
<option value="BIT">BIT</option>
<option value="DWHT">DWHT</option>
<option value="DBCliente">DBCliente</option>
<option value="EIRDBCache">EIRDBCache</option>
<option value="DWHCRM">DWHCRM</option>
<option value="ICARO">ICARO</option>

</select>
</td>
<td><input type="button" value="Filtra" onclick="document.all.filtro.submit()"></td>

</tr>
</table>

<table border="1" cellspacing="1" bgcolor="white" cellpadding="1" align="center" bordercolor="blue">

<tr>
<th bgcolor="#DCDCDC">Ord.</th>
<th bgcolor="#DCDCDC">Sistema</th>
<th bgcolor="#DCDCDC">Cod.Agesp</th>
<th bgcolor="#DCDCDC">Titolo PI</th>

</tr>

<%
Dim variabile1
dim variabile2
set rs1 = server.createobject("ADODB.recordset")
sql1 = "select * from CdT"

if Request.Form("sistema") <> "" then
sql1 = sql1 & " where " & Request.Form("sistema") & " ='-1'"
end if
rs1.open sql1, objconn
response.write(sql1 & "
")
response.write( Request.Form("sistema"))
if not rs1.eof then
do while not(rs1.eof)
variabile1 = rs1("Titolo_PI")
variabile2 = rs1("id")
%>

<tr>
<td align="center"><font size="2" font face="arial"><%response.write(rs1("id"))%></font></td>
<td><font align="center"><font size="2" font face="arial"><%response.write( Request.Form("sistema"))%></font></td>
<td><font size="2" face="verdana"><%response.write("" & rs1("cod_agesp") & "")%></font></td>
<td align="center" ><font size="2" font face="arial"><%response.write("" & rs1("Titolo_PI") & "")%></font></td>
<tr>

<%

rs1.movenext
Loop

'chiudo e distruggo la connessione
objConn.close
set objconn=nothing
%>
<%

else
%>
Non sono stati trovati documenti

<%
end if
%>

</table>

<p align="center"><input type="button" value="Torna Indietro" onclick="history.back()"></p>

</body>
</html>

**santino83** · 05-05-2006, 16:52

ma una volta non erano 4 le pagine?

che fanno aumentano nel frattempo?

cmq, usa una variabile, che ne so "sit" (come "situazione"). in querystring ti passi questa variabile ad ogni reload della pagina..a seconda del valore che passi fai stampare solo le parti che ti interessano della pagina:

esempio:

sit=1
'stampo il form di ricerca
sit=2
'stampo i risultati della ricerca
sit=3
'stampo una foto di donna
sit=4
'stampo la foto di optime

etc etc

**pagineasp2** · 05-05-2006, 16:58

Grazie...ma siccome le 5 pagine erano delle pagine ri ricerca facendone diventare una dovrei mettere anche un solo pulsante di ricerca...come devo fare....

**santino83** · 05-05-2006, 17:10

metti tutti i form in un form solo e usi un pulsante solo

**santino83** · 05-05-2006, 17:13

esempio:

codice:

'form a:
<form action="pagina.asp" method="post">
<campo1><campo2><pulsante submit>
</form>

'form b:
<form action"pagina.asp" method="post">
<campo11><campo22><pulsante submit2>
</form>


'form a+b
<form action="pagina.asp" method="post">
<campo1><campo2>
<campo11><campo22>
<submit>
</form>

**pagineasp2** · 06-05-2006, 10:10

cioa e scusami se ti scoccio di nuovo...ho provato con tutti i tui consigli ma il risultato è scarso,,,come forse sono scarso io..essendo alle prime esperienze...potresti molto ma molto gentilemente,darci un occhiata tu e darci una sistemata almeno le prime 4..altrimenti non ne esco fuori..ovviamnete ti ringrazio anticipatamente...forse solo cosi riuscirò a capire bene come fare il tutto......

Discussione: impaginazione

Strumenti discussione

Ricerca discussione

Visualizza

impaginazione

impaginazione

impaginazione

Permessi di invio