CIAO RAGA!
SCUSA HO STO CODICE DI UNA PAGINA ASP DA VISUALISARE,PERO NON RIESCO A IMPOSTARLA,PERCHE VOGLIO CHE LA PAGINA MI FA VEDE IN DUE COLONNE MA NO COME HO FATTO IN UNA COLONNA!COME SI FA !??!?!
<script>
function visimg(iden) {
theURL='/listino/vis_foto.asp?foto=' + iden
finestra1=window.open(theURL,'new_page','width=600,height=450');
}
function visscheda(iden) {
theURL='/listino/vis_scheda.asp?articolo=' + iden
finestra1=window.open(theURL,'new_page','width=600,height=450,scrollbars=1');
}
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
.Stile1 {color: #FFFFFF}
-->
</style>
<table width="763">
<!--DWLayoutTable-->
<tr>
<td width="371" height="213" valign="top"><h1> OUR BRAND </h1> <br> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="" width="105" height="55">
<param name="movie" value="hamlet.swf">
<param name="quality" value="high">
<embed src="hamlet.swf" quality="high" pluginspage="
http://www.macromedia.com/go/getflashplaye" type="application/x-shockwave-flash" width="105" height="55"></embed>
</object> <a href="CATALOGO_2004_IT_V8.pdf" target="_blank"><strong>Hamlet</strong></a>
<applet code="tinyImageCycle.class" height="133" width="133">
<param name="IMAGE1" value="mp3.jpg">
<param name="LINK1" value="
http://www.hamletcom.co">
<param name="IMAGE2" value="mp3a.jpg">
<param name="IMAGE3" value="ACC8081.jpg">
<param name="LINK3" value="
http://www.hamletcom.co">
<param name="IMAGE4" value="MEM9041.jpg">
<param name="IMAGE5" value="MEM9040.jpg">
<param name="IMAGE6" value="xdrive.jpg">
<param name="IMAGE7" value="usb.jpg">
<param name="IMAGE8" value="mp3b.jpg">
<param name="DELAY" value="2000">
<param name="PRELOAD" value="1">
</applet> </td>
<td width="376"> </td>
</tr>
</table>
<% '**************Procedura per la visualizzazione dell'albero delle categorie***************
Sub VisCat(livello, ID_cat)
SQL = "SELECT * FROM categorie WHERE ID_padre = " & ID_cat & " ORDER BY priorita,nomecategoria"
Set cat = Server.CreateObject("ADODB.RecordSet")
cat.Open SQL, conn, 1
If cat.RecordCount > 0 Then
cat.MoveFirst
Do While NOT cat.EOF
'mostro la categoria
%>
<table width="100%">
<!--DWLayoutTable-->
<tr>
<td height="20" colspan="2">
<h1><%=cat.Fields("nomecategoria")%></h1>
</td>
</tr>
<% 'mostro gli articoli
SQL2 = "SELECT * FROM articoli WHERE ID_categoria = " & cat.Fields("ID") & " ORDER BY codarticolo"
Set art = Server.CreateObject("ADODB.RecordSet")
art.Open SQL2, conn, 1
If art.RecordCount > 0 Then
art.MoveFirst
colore=1
Do While Not art.EOF
%>
<tr>
<td width="20%" height="103" align="center" valign="center">
<%'Controllo immagine
Set fso = CreateObject("Scripting.FileSystemObject")
immagine = ""
If fso.FileExists(percorso & "/public/bigart_" & art.Fields("ID") & ".JPG") Then
immagine="JPG"
Else
If fso.FileExists(percorso & "/public/bigart_" & art.Fields("ID") & ".GIF") Then
immagine="GIF"
End If
End If
Set fso=Nothing
if Not(immagine="") Then%>
<a href="javascript:visimg('<%=art.Fields("ID")%>');">
<img src="/listino/img_output.aspx?src=/public/bigart_<%=art.Fields("ID")%>.<%=immagine%>&dim_base=120">
</a>
<%else%>
<img src="immagini/nofoto.gif">
<%end if%>
</td>
<td width="616" valign="top">
<h3><%=art.Fields("codarticolo")%> </h3> <%if not(art.Fields("link")="") then%>
<a href="<%=art.Fields("link")%>">
<%end if%>
<%=art.Fields("descrizione")%><br>
<%if not(art.Fields("link")="") then%>
</a>
<%end if%>
<%if not(art.Fields("scheda_tecnica")="") then%>
<br> <a href="javascript:visscheda('<%=art.Fields("ID")%>');"><img name="scheda_tecnica" src="/immagini/scheda_tecnica.gif" border="0" title="Visualizza la scheda tecnica dell'articolo" /></a>
<%end if%>
</td>
</tr>
<% art.MoveNext
Loop
End If
art.Close
Set art = Nothing
%>
</table>
<br>
<%
VisCat livello+1, cat.Fields("ID")
cat.MoveNext
Loop
End If
cat.Close
Set cat= Nothing
End Sub
%>
<table width="100%">
<tr>
<td>
<% '********************* Visualizzazione albero categorie ****************************
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open stringaconnessione
cc = 63
VisCat cc,cc
conn.close
set conn=nothing
%>
</td>
</tr>
<tr>
<td>
<% '********************* Visualizzazione albero categorie ****************************
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open stringaconnessione
cc = 71
VisCat cc,cc
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
DIAUS