non riesco a capire dove sbaglio
sto modificando l'home page
ma sbaglio qualco
magari e una belinata ma proprio sto fondendo
non riesco a capire dove sbaglio
sto modificando l'home page
ma sbaglio qualco
magari e una belinata ma proprio sto fondendo
Ciao,
ci dici davvero poche cose per poterti dare una mano..
Simo78
ops
se potete sto proprio .....
scusate sono proprio alla fruttadella serie chiedere ad un dentista di curarti e non aprire la bocca
il cod
<%
Option Explicit
%>
<html>
<head>
<meta content="index,follow" name="robots">
<meta content="<%=Motori_Keywords%>" name="keywords">
<meta content="<%=Motori_Description%>" name="description">
<link rel="stylesheet" href="include/ecommerce.css">
<title><%=NomeSito%></title>
</head>
<body background="interfaccia/indtextb.jpg" bgcolor="<%=Body_Sfondo%>" topmargin="<%=Body_TopMargin%>" leftmargin="<%=Body_LeftMargin%>" marginwidth="<%=Body_MarginWidth%>" marginheight="<%=Body_MarginHeight%>">
<table background="interfaccia/sfondo centro .gif" width="780" cellspacing="0" cellpadding="0" align="center" border="0">
<tr>
<td colspan="5">
</td>
</tr>
<tr bgcolor="<%=Navigazione_Sfondo%>">
<td colspan="5" width="780">
</td>
</tr>
<tr>
<td width="120" height="0" bgcolor="<%=TabellaBig_Colore_SxDx%>" valign="top" align="center">
</td>
<td width="5" bgcolor="<%=TabellaBig_Colore_Cx%>">
</td>
<td width="500" bgcolor="<%=TabellaBig_Colore_Cx%>" valign="top">
</p>
<p align="justify">
<%=Head_Default%>
</p>
</p>
</td>
<td width="5" bgcolor="<%=TabellaBig_Colore_Cx%>">
</td>
<td width="150" height="0" bgcolor="<%=TabellaBig_Colore_SxDx%>" align="center" valign="top">
<p align="center">
</p>
</td>
</tr><p align="center"></p>
</table>
</body>
</html>
<%
Conn.Close
Set Conn = Nothing
%>
__________________________________________________ _______________
...
</td>
</tr><p align="center">
</p>
</table>
</body>
</html>
__________________________________________________ ______________
Non puoi mettere l'elemento
e tutto il suo contenuto tra la chiusura della </tr> e la chiusura della </table>
ma dopo la chiusura della </table>, ovvero così:
</td>
</tr>
</table>
<p align="center">
</p>
</body>
</html>
Simo78
te lo detto che sono alla frutta
non ti stupire sono fuori come un pogiolo
e mi se pure rotto un calorifero ora
grazie mi sa che per oggi smetto
Grazie ancora
prima o poi vi faro un monumento
sono dinuovo nei guai
non è PSSIBILE mi sa che mi tocca rimettermi a studiare
guarda cosa succede
http://www.etraslochi.it/catalogo.asp?scat=6
di seguito ti metto il cod
anche qui non riesco a trovare l'errore
<%
'VERSIONE FILE 1.4.0
Option Explicit
%>
<%
'---Dichiarazione variabili
Dim QSCategoria, QSPg, QSQuery
'---Recupero le informazioni sulla scategoria, categoria e pagina
QSCategoria = Request.QueryString("cat")
QSSCategoria = Request.QueryString("scat")
QSQuery = Request.QueryString("q")
QSPg = Int(Request.QueryString("pg"))
If QSPg <= 0 Then
QSPg = 1
End If
%>
<html>
<head>
<meta content="index,follow" name="robots">
<meta content="<%=Motori_Keywords%>" name="keywords">
<meta content="<%=Motori_Description%>" name="description">
<link rel="stylesheet" href="include/ecommerce.css">
<title><%=NomeSito%></title>
</head>
<body bgcolor="<%=Body_Sfondo%>" topmargin="<%=Body_TopMargin%>" leftmargin="<%=Body_LeftMargin%>" marginwidth="<%=Body_MarginWidth%>" marginheight="<%=Body_MarginHeight%>">
<table width="780" cellspacing="0" cellpadding="0" align="center" border="0">
<tr>
<td colspan="5">
</td>
</tr>
<tr bgcolor="<%=Navigazione_Sfondo%>">
<td colspan="5" width="780">
</td>
</tr>
<tr>
<td width="120" height="0" bgcolor="<%=TabellaBig_Colore_SxDx%>" valign="top" align="center">
</td>
<td width="5" bgcolor="<%=TabellaBig_Colore_Cx%>" >
</td>
<td width="500" bgcolor="<%=TabellaBig_Colore_Cx%>" valign="top" bordercolor="#999999">
</p>
</td>
<td width="5" bgcolor="<%=TabellaBig_Colore_Cx%>">
</td>
<td width="150" height="0" bgcolor="<%=TabellaBig_Colore_SxDx%>" valign="top" align="center">
</td>
</tr>
</table>
</body>
</html>
<%
Conn.Close
Set Conn = Nothing
%>
o meglio so che l'errore coinvolge quest'elemento:
ma non trovo l'errore
ciao,
postaci il codice di inc_catalogo.asp
Simo78
Ciao grazie
so che il cod e sporco
ho tirato giu dalla rete MWOpen e questo e e cio che ho trovato
ho aggiustato di tutto e ti devo confessare che praticamente non ce una sola pagina in qui non sia costretto a mettere le mani
ti ringrazio ancora per la pazienza
ecco il cod:
<%
%>
<%
'---Dichiarazione variabili
Dim SQL, RS, I, Footer, RStip, Index, ArrQuery
If (QSSCategoria <> "") Or (QSQuery <> "") Then
%>
<p align="justify">
<%=Head_Catalogo%>
</p>
<table border="1" width="500" cellspacing="0" cellpadding="3" align="center" bordercolor="#CCCCCC">
<tr>
<td width="60">
</td>
<td width="75" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloProdotto%>
</td>
<td bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloPFoto%>
</td>
<td width="130" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloPDescrizione%>
</td>
<td width="100" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloCPrezzo%>
</td>
<td width="50" bgcolor="<%=Tabella_Colore_Titolo%>">
<%=TitoloPulsante%>
</td>
</tr>
<%
If (QSSCategoria = "") AND (QSCategoria = "") AND (QSQuery = "") Then
Response.Redirect Request.ServerVariables("HTTP_REFERER")
Else
'---Stampo a video i prodotti delle categorie richieste
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.PageSize = MaxProdottiPerPagina
If QSQuery <> "" Then
QSQuery = Replace(QSQuery, "'", "''")
ArrQuery = Split(QSQuery, " ")
SQL = " SELECT * FROM Prodotti WHERE "
For i = 0 to UBound(ArrQuery, 1)
SQL = SQL & "(Prodotto LIKE '%" & ArrQuery(i) & "%' OR PDescrizione LIKE '%" & ArrQuery(i) & "%' OR GDescrizione LIKE '%" & ArrQuery(i) & "%') AND "
Next
SQL = SQL & "Cancellato = False"
RS.Open SQL, Conn, 1
Else
If (QSCategoria = "") Then
SQL = " SELECT * FROM Prodotti WHERE SCategoria = "& [QSSCategoria] &" AND Categoria = 0 AND Cancellato = False "
RS.Open SQL, Conn, 1
End If
If (QSCategoria <> "") Then
SQL = " SELECT * FROM Prodotti WHERE Categoria = "& [QSCategoria] &" AND Cancellato = False"
RS.Open SQL, Conn, 1
End If
End If
If Not RS.EoF Then
RS.MoveFirst
RS.AbsolutePage = QSPg
If QSPg <> 1 Then
Footer = "" & PrimaPagina & " "
Else
Footer = PrimaPagina & " "
End If
For I = 1 To RS.PageCount
If I = QSPg Then
Footer = Footer & I & " "
Else
Footer = Footer & ""& I &" "
End If
Next
If QSPg <> RS.PageCount Then
Footer = Footer & "" & UltimaPagina & ""
Else
Footer = Footer & UltimaPagina
End If
For I = 1 To RS.PageSize
If RS.EOF Then Exit For
%>
<tr bgcolor="<%=Tabella_Colore_Cella%>">
<form method="get" action="prod_aggiungi.asp">
<td bgcolor="<%=Tabella_Colore_Cella%>" width="60" valign="top">
<%
If RS("Offerta") = True Then
%>
[img]<%=Path_Img%>catalogo_ico_offerta.gif[/img]">
<%
End If
If StrToData(RS("Data")) > (Date - GiorniNovita) Then
%>
[img]<%=Path_Img%>catalogo_ico_nuovo.gif[/img]">
<%
End If
%>
">[img]<%=Path_Img%>catalogo_leggi_commenti.gif[/img]">
">[img]<%=Path_Img%>catalogo_scrivi_commenti.gif[/img]">
</td>
<td width="75" valign="top">
"><%=RS("Prodotto")%>
<%
If RS("Tipologia") = True Then
%>
<p align="center">
<%
Set RStip = Server.CreateObject("ADODB.RecordSet")
SQL = " SELECT * FROM Tipologie WHERE IDProdotto = "& RS("ID")
With RStip
.Open SQL, Conn, 1
If Not (.BOF And .EOF) Then
%>
<select name="Tipologia">
<%
Index = 1
Do While Not .EOF
If Index = 1 Then
%>
<option Selected value='<%=.Collect("ID")%>'><%=.Collect("Tipologia ")%>
<%
Else
%>
<option value='<%=.Collect("ID")%>'><%=.Collect("Tipologia ")%>
<%
End If
Index = Index + 1
.MoveNext
Loop
End If
.Close
End With
Set RStip = Nothing
%>
</select>
</p>
<%
End If
%>
</td>
<td align="center">
<img src="
<%
If RS("PFoto") <> "" Then
Response.Write RS("PFoto")
Else
Response.Write Path_IMG & Img_NonDisponibile_P
End If
%>
" width="<%=PFoto_Larghezza%>" height="<%=PFoto_Altezza%>">
</td>
<td width="130" valign="top">
<%=RS("PDescrizione")%>
<%If UtilizzaPrezzo(RS("PuntiSconto")) > 0 Then%>
<%=PuntiUsabili%>: <%=VisualizzaPrezzo(RS("PuntiSconto"))%><%End If%>
<%=Disponibilita%>:
<%
If ImmagineGiacenza Then
Response.Write "[img][/img]"
Else
If RS("GiacenzaInfinita") Then
Response.Write TestoGiacenzaInfinita
Else
Response.Write RS("Giacenza")
End If
End If
%>
</td>
<td width="100" valign="top">
<%=SimboloValuta%> <font color="red"><%=VisualizzaPrezzo(RS("CPrezzo"))%></font>
<%=Replace(IvaNonCompresa, "[iva]", RS("IVA"))%>
<%
If Session("Rivenditore") = True Then
%>
<%=TitoloRPrezzo%>:
<%=SimboloValuta%> <font color="red"><%=VisualizzaPrezzo(RS("RPrezzo"))%></font>
<%=Replace(IvaNonCompresa, "[iva]", RS("IVA"))%>
<%
End If
%>
</td>
<td width="50" align="center">
<input type="text" name="quantita" size="2" maxlength="5" value="1">
<input type="hidden" name="ID" value="<%=RS("ID")%>">
<%
If (RS("Giacenza") > 0) OR RS("GiacenzaInfinita") Then
%>
<input type="image" src="<%=Path_Img%>catalogo_aggiungi.gif" name="Go" value="<%=AltPulsante%>" alt="<%=AltPulsante%>" border="0">
<%
Else
%>
[img]<%=Path_Img%>catalogo_aggiungi.gif[/img]" border="0">
<%
End If
%>
</td>
</form>
</tr>
<%
RS.MoveNext
Next
Else
%>
<tr bgcolor="<%=Tabella_Colore_Cella%>">
<td colspan="6" align="center">
<%=NoRecordTrovati%>
</td>
</tr>
<%
End If
End If
RS.Close
%>
</table>
<%
End If
%>
<div align="center">
<%=Footer%>
</div>
</p>
mi sembra di aver capito che l'errore sta nel footer(inc_footer.asp)
C'è una <td> a cui andrebbe messo colspan="5"
__________________________________________________ _________________
<tr>
<td colspan="5">
<p align="center">[img]interfaccia/linea.gif[/img]</p>
<p align="center">Frutta e Verdura Genova - Copyright © 2005/2006 - Powered by
Francesco Castagnino - </p>
<p align="center">[img]interfaccia/linea.gif[/img]</p>
</td>
</tr>
</table>
</body>
</html>
__________________________________________________ __________________
Ciao
Simo78
Permessi di invio
Rispondi quotando