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>