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° visite:"& Rs("visite") &"</p>") else Response.Write (" " & Rs("Titolo") & " - Autore: "& Rs("Nome") & " " & Rs("Cognome") &" - N° 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>

Rispondi quotando
