Originariamente inviato da marco.carrieri
Ha ha bella questa....
Credo sia un modo gentile per dirti... che il codice sorgente di una pagina Asp non può essere visto da noi.
Quindi non possiamo aiutarti alla ceca.
Grazie grazie, ma a me non viene da ridere... anzi 
ti inserisco il file default.asp e inc_carrello.asp (se tolgo quest'ultimo, la pagina si apre tranquillamente)
default.asp
codice:
<%
'VERSIONE FILE 1.4.0
Option Explicit
%>
<html>
<head>
<meta content="index,follow" name="robots">
<meta content="<%=Motori_Keywords%>" name="keywords">
<meta content="<%=Motori_Description%>" name="description">
<meta NAME="copyright" CONTENT="sito e-commerce articoli per ufficio, cartucce laser, inkjet e toner e tutto per l'ufficio">
<link rel="stylesheet" href="include/ecommerce.css">
<title><%=NomeSito%></title>
<meta name="Microsoft Theme" content="copia-di-sfumature-7 000">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="top" align="center">
<td colspan="3">
<div align="center">
</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top" rowspan="2" width="225">
</td>
<td align="center" valign="top" background="interfaccia/sfCell.gif" >
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF" valign="top">[img]interfaccia/sfCell1.gif[/img]</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#DDDDDD">
<div align="center"><font color="#FF6600"><font face="Verdana, Arial, Helvetica, sans-serif" size="3">PROMOZIONI</font></font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="bottom">[img]interfaccia/sfCell1.gif[/img]</td>
</tr>
</table>
</td>
<td align="center" valign="top" bgcolor="#FFFFFF" width="166">
<div align="right">
</div>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top" colspan="3">
</td>
</tr>
</table>
</html>
<%
Conn.Close
Set Conn = Nothing
%>
inc_carrello.asp
codice:
<%
If Abilitashop Then
%>
<body topmargin="0" leftmargin="0">
<table width="218" cellspacing="0" cellpadding="0" bordercolordark="#E5E5E5" bordercolorlight="#000000" border="0" style="border-left:1px dotted #C0C0C0; border-right:0px dotted #C0C0C0; border-top:0px dotted #C0C0C0; border-bottom:0px dotted #C0C0C0; " height="58">
<tr>
<td width="165" valign="bottom" bgcolor="" style="border-style:none; border-width:medium; " bordercolor="#DAE7EF" height="58" background="interfaccia/sfcarrello.gif">
<p align="center">
<%
'---Recupero i prodotti inseriti nel carrello per questa sessione
SQLCart = " SELECT * FROM Carrello WHERE IDSessione = '"& SessionID &"' "
Set RSCart = Conn.Execute(SQLCart)
If Not RSCart.EoF Then
TotaleCart = 0
%>
<%
'---Stampo a video i prodotti trovati e i relativi prezzi/quantità
If Not RSCart.EOF Then RSCart.MoveFirst
Do while Not RSCart.EOF
If RSCart("IDTipologia") <> 0 Then
SQLTipologie = " SELECT Tipologia FROM Tipologie WHERE ID = " & RSCart("IDTipologia")
Set RSTipologie = Conn.Execute(SQLTipologie)
CartTipologia = RSTipologie("Tipologia")
Else
CartTipologia = ""
End If
%>
<%
If Session("Rivenditore") Then PrezzoProdotto = RScart("RPrezzo") Else PrezzoProdotto = RScart("CPrezzo")
PrezzoTotaleProdotto = (UtilizzaPrezzo(PrezzoProdotto) * RSCart("Quantita"))
SQLSconti = " SELECT Sconto FROM Sconti WHERE IDProdotto = " & RSCart("IDProdotto") & " AND Quantita <= " & RSCart("Quantita") & " ORDER BY Sconto DESC"
Set RSSconti = Conn.Execute(SQLSconti)
If Not RSSconti.EOF Then
PrezzoTotaleProdotto = ArrotondamentoPrezzo(PrezzoTotaleProdotto - ((PrezzoTotaleProdotto / 100) * RSSconti("Sconto")))
End If
RSSconti.Close
TotaleCart = TotaleCart + PrezzoTotaleProdotto
RScart.MoveNext
Loop
%>
<font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=SimboloValuta%>
<%=VisualizzaPrezzo(TotaleCart)%></font> <font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=IvaNonCompresaBreve%>
<%
Else
%>
<%=PCarrelloVuoto%>
<%
End If
%>
<%
End If
%>
</font></p>
</td>
<td width="53" valign="bottom" style="border-style:none; border-width:medium; " height="58">[img]interfaccia/btn_cassa.png[/img]</td>
</tr>
</table>
Rispondi quotando
