errore visualizzazione

**piccolobill** · 31-12-2004, 15:21

andate su http://www.aurigaonline.it/sito2/forum.asp

vedete è spostato troppo verso il basso...ma su dw vedo bene...ecco il codice:

codice:

<HTML>
<HEAD>
<TITLE>Auriga - Iscriviti on line</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
img {
	border: none;
}
.tah10 {
	font-family: Tahoma;
	font-size: 10px;
	text-decoration: none;
	color: #000000;
}
.tah11 {
	font-family: Tahoma;
	font-size: 11px;
	text-decoration: none;
	color: #000000;
}
.ver10 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
	text-decoration: none;
	color: #000000;
}
.ver11n {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	text-decoration: none;
	color: #000000;
}
.ver11 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	color: #000000;
}
.tah9 {
	font-family: Tahoma;
	font-size: 9px;
	text-decoration: none;
	color: #000000;
}
.ver9 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 9px;
	text-decoration: none;
	color: #000000;
}
-->
</style>
<style type="text/css">
<!--
.tah12 {
	font-family: Tahoma;
	font-size: 12px;
	text-decoration: none;
	color: #000000;
}
.bgtop {	background-repeat: no-repeat;
	background-position: bottom;
}
.Stile3 {color: #FF0000}
-->
</style>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>

<TABLE WIDTH=100% height="100%" BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor="#FFFFFF">
	<TR>
		<TD width="50%" rowspan="3" background="images/bg.gif" bgcolor="#000000"></TD>
		<td width="1" bgcolor="#000000" rowspan="3">[img]images/spacer.gif[/img]</td>
    <TD> 
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0>
	<TR>
		<TD ROWSPAN=5>
			[img]images/companyname.gif[/img]</TD>
		<TD ROWSPAN=5>
			[img]images/bigimg.jpg[/img]</TD>
		<TD>
			[img]images/t1.gif[/img]</TD>
		<TD ROWSPAN=5>
			[img]images/t3.gif[/img]</TD>
	</TR>
	<TR>
		<TD>
			[img]images/r1.gif[/img]</TD>
	</TR>
	<TR>
		<TD>
			[img]images/r2.gif[/img]</TD>
	</TR>
	<TR>
		<TD>
			[img]images/r3.gif[/img]</TD>
	</TR>
	<TR>
		<TD>
			[img]images/t2.gif[/img]</TD>
	</TR>
</TABLE>	
	 </TD>
		<td width="1" bgcolor="#000000" rowspan="3">[img]images/spacer.gif[/img]</td>
		<TD width="50%" rowspan="3" background="images/bg.gif" bgcolor="#000000"></TD>
	</TR>
	<TR>
		<TD height="100%">
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0 height="100%">
	<TR>
		<TD WIDTH=541 rowspan="2">
          <TABLE WIDTH=541 BORDER=0 CELLPADDING=0 CELLSPACING=0 height="100%" background="images/bg2.gif">
            <TR valign="bottom">
              <TD> [img]images/m00.gif[/img]</TD>
              <TD> [img]images/m1.gif[/img]</TD>
              <TD> [img]images/m2.gif[/img]</TD>
              <TD COLSPAN=2> [img]images/m3.gif[/img]</TD>
              <TD> [img]images/m4.gif[/img]</TD>
              <TD> [img]images/m5.gif[/img]</TD>
              <TD> [img]images/m6.gif[/img]</TD>
              <TD> [img]images/m01.gif[/img]</TD>
            </TR>
            <TR>
              <TD WIDTH=541 COLSPAN=9 height="100%" background="images/bgsp2.gif" >
                <TABLE WIDTH=541 BORDER=0 CELLPADDING=0 CELLSPACING=0 height="100%" background="images/bgsp1.gif"  class="bgtop">
                  <TR valign="top">
                    <TD COLSPAN=2> [img]images/hsp_4.gif[/img]</TD>
                  </TR>
                  <TR valign="top">
                    <TD WIDTH=541  COLSPAN=2>
                      <div style="padding:15;padding-left:20;padding-right:35" class="ver11">
                        <p align="left">Elenco Topic </p>
                        


                          <%
'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10

'connessione al db
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 
"DBQ="& Server.MapPath("/mdb-database/auriga.mdb") 

Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT forum.*, iscritti.* FROM iscritti INNER JOIN forum ON iscritti.[email]=forum.[email] WHERE forum.[id madre]='No' ORDER BY id"
Rs.Open sql, Conn, 1, 3

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page 

'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then 
if Rs("id") < 10 then
Response.Write ("

" & Rs("Titolo") & " - Autore: "& Rs("Nome") & " " & Rs("Cognome") &" - N&deg; visite:"& Rs("visite") &"</p>")
else
Response.Write ("

" & Rs("Titolo") & " - Autore: "& Rs("Nome") & " " & Rs("Cognome") &" - N&deg; visite:"& Rs("visite") &"</p>")
end if
Rs.MoveNext 
end if 
next

'scrivo i numeri delle pagine
Response.Write "

Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='forum.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='forum.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if
Next 

Response.Write "</P>" 

'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</p>
                      </div></TD>
                  </TR>
                  <TR>
                    <TD WIDTH=261 HEIGHT=118 valign="top"><p class="ver11"></p>
                      </TD>
                    <TD WIDTH=280 HEIGHT=118 valign="top" class="ver11"></TD>
                  </TR>
                  <TR>
                    <TD> [img]images/spacer.gif[/img]</TD>
                    <TD> [img]images/spacer.gif[/img]</TD>
                  </TR>
              </TABLE></TD>
            </TR>
            <TR>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
              <TD> [img]images/spacer.gif[/img]</TD>
            </TR>
          </TABLE></TD>
		<TD WIDTH=239 HEIGHT=561 valign="top" bgcolor="#E7E7E7">
          <TABLE WIDTH=239 height="100%" BORDER=0 CELLPADDING=0 CELLSPACING=0 bgcolor="#E7E7E7">
      <TR>
		  <TD height="9" COLSPAN=3>
			  [img]images/s1.gif[/img]</TD>
	  </TR>
	  <TR>
		  <TD width="70">
			  [img]images/search.gif[/img]</TD>
		  <form name="form2" method="post" action="cerca.asp">
		<TD background="images/input.gif" WIDTH=111 HEIGHT=25 align="center">

<input name="cerca" type="text" id="cerca" size="14">
		</TD>
		<TD>
			[img]images/go.gif[/img]</TD>
	</form>
	</TR>
	<TR>
		<TD COLSPAN=3 background="images/adv.gif" WIDTH=239 HEIGHT=12 align="center">
<div style="padding-left:40">advanced search</div>
		</TD>
	</TR>
	  <TR>
		  <TD height="31" COLSPAN=3>
			  [img]images/h2.gif[/img]</TD>
	  </TR>
	  <TR>
		  <TD COLSPAN=3 background="images/bg3.gif">  <div style="padding:15" class="ver11">
            


                <%
Response.Expires = 0

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("/mdb-database/auriga.mdb")
sql = "SELECT * FROM news ORDER BY id DESC"
Set Rs = Conn.Execute(sql)

x = 0

Do until(x=2)
 x = x + 1
%>
    <%=rs("Data")%> ::: <%=rs("Titolo")%> </p>
  

<a href="news_sp.asp?id=<%=rs("id")%>">
        <span class="ver11n">
        <%testo=left(rs("testo"), 40)
response.write testo & "..."%>
        </span>

    </a>        

        <%
rs.MoveNext
Loop

Rs.Close 
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

%>
    
                    </p>
		  </div>		
		  </TD>
	  </TR>
	  <TR>
		  <TD height="35" COLSPAN=3>
			  [img]images/h3.gif[/img]</TD>
	  </TR>
	  <TR background="images/bg4.gif">
		  <TD HEIGHT=199 COLSPAN=3 valign="top" background="images/bg4.gif" bgcolor="#E7E7E7">            <div style="padding:15" class="ver11">
    [img]images/img3.jpg[/img]
    <% 
	login=request.Cookies("auriga")
	if login="" then
	%>
	Inserici i dati scelti al momento dell'iscrizione per entrare nell'area riservata: 

    <form name="form1" method="post" action="asp/login.asp">
      <p align="left">
        Email:
          <input name="email" type="text" class="ver9" id="email">
          

          Password:
          <input name="email2" type="text" class="ver9" id="email2">
          
          
          <input type="submit" name="Submit" value="Login">
          <input type="reset" name="Submit2" value="Cancella Dati">
</p>
      <blockquote>
        <p class="ver9">Hai dimenticato i dati? </p>
      </blockquote>
    </form>
	


	    <%
	else
	%>
	  
	Login Effettuato.</p>
	

[img]images/arrow.gif[/img]Modifica Dati

	  <a href="asp/logout.asp" style="color:0106B4" class="ver11">[img]images/arrow.gif[/img]Download

	  [img]images/arrow.gif[/img]Link

	  [img]images/arrow.gif[/img]Cerca socio Auriga 

	  [img]images/arrow.gif[/img]Logout	  </a></p>
	

	    <%
	end if
	%>
      </p>
      </form>
		  </div></TD>
	  </TR>
          </TABLE></TD>
	</TR>
	<TR>
	  <TD HEIGHT=25 bgcolor="#E7E7E7"></TD>
	  </TR>
</TABLE>		
		</TD>
	</TR>
	<TR>
		<TD>
<TABLE WIDTH=780 BORDER=0 CELLPADDING=0 CELLSPACING=0 background="images/bgdown.gif">
	<TR>
		<TD WIDTH=780 HEIGHT=26 align="center">
Home
Chi Siamo
Agenda
Iscriviti
Forum
Contatti</TD>
	</TR>
	<TR>
		<TD WIDTH=780 HEIGHT=26 align="center" class="ver9">
Copyright © 2004 Piccolobill.com. Tutti i diritti riservati </TD>
	</TR>
</TABLE>		
		</TD>
	</TR>
</TABLE>

</BODY>
</HTML>

Discussione: errore visualizzazione

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

errore visualizzazione

Permessi di invio