che vuoi dire?non ti capisco non ho poi piu nessuna pagina che stampa altro c'è solo una pagina che poi stampa il totale del recordset per ordine cliente su una tabella ma questo non c'entra nulla con l'invio della mail con cdonts
che vuoi dire?non ti capisco non ho poi piu nessuna pagina che stampa altro c'è solo una pagina che poi stampa il totale del recordset per ordine cliente su una tabella ma questo non c'entra nulla con l'invio della mail con cdonts
qui si sta usando un metodo di lavoro col quale non ho molta confidenza,
quindi vado un po' a tentoni
appunto una cosa del genere.Originariamente inviato da massimozito
c'è solo una pagina che poi stampa il totale del recordset per ordine cliente
vedi come è stampato il recordset in quella pagina: magari ci basta "aggiungere due righe"
Allora ti spiego i post precedenti si riferiscono alla pagina chiamata ringraziamentoweb.asp quello che ti posto sotto è il codice invece della pagina ordina.asp e l'utente viene poi indirizzato alla pagina ringraziamentoweb.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="nonautorizzato.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "form2") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_Edar_STRING
MM_editCmd.CommandText = "INSERT INTO Ordini ([UID], totale, OrdiniID) VALUES (?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("UID")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("totale")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("OrdiniID")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
<%
' UltraCart 3
' Copyright (c) 2002 ~ 2004 Ottivacs Design All Rights Reserved.
' http://www.ottivacsdesign.com
UC_xmlPath = Server.MapPath("CartInc/CartDefinition.xml")
Set UltraCart = UltraCartVB("UltraCart", UC_xmlPath)
UltraCart_i = 0
%>
<%
' UltraCart 3
' Get Unique ID
UC_SessionVar = "OrdiniID"
If Session(UC_SessionVar) = "" Then
Set UC_GUID = Server.CreateObject("ADODB.Recordset")
UC_GUID.ActiveConnection = MM_Edar_STRING
UC_Table = "NextID"
UC_Field = "NextID"
UC_GUID.Source = "SELECT " & UC_Field & " FROM " & UC_Table
UC_GUID.CursorType = 0
UC_GUID.CursorLocation = 2
UC_GUID.LockType = 2
UC_GUID.Open
Session(UC_SessionVar) = UC_GUID.Fields("NextID").value
UC_GUID.Fields("NextID").value = UC_GUID.Fields("NextID").value + 1
UC_GUID.Update
UC_GUID.Close
Set UC_GUID = Nothing
End If
%>
<%
' UltraCart 3
' Save Cart Details To Table
If InStr(1, MM_editAction, "?", vbTextCompare) = 0 Then
MM_editAction = MM_editAction + "?UC_SaveToTable=1"
Else
MM_editAction = MM_editAction + "&UC_SaveToTable=1"
End If
If CStr(Request.QueryString("UC_SaveToTable")) <> "" Then
Set UC_connCart = Server.CreateObject("ADODB.Connection")
UC_connCart.Open(MM_edar_STRING)
UC_connCart.BeginTrans
UC_cartColBindings = Array("ProductID","Name", "Articolo","Quantity","Price","Total")
UC_dbColBindings = Array("Id","Descri","Articolo","Quantita","Prz","T otale")
UC_retVal = UltraCart.SaveCart(UC_connCart,_
"OClRighe",_
"OrdiniID",_
true,_
Session("OrdiniID"),_
UC_cartColBindings,_
UC_dbColBindings)
' Error handler
If UC_retVal <> 0 Then
' Abort transaction
If Not IsNull(UC_connCart) Then
UC_connCart.RollbackTrans
UC_connCart.Close
Set UC_connCart = Nothing
End If
UC_redirectToPage = "errore.asp"
Else
' Commit transaction
UC_connCart.CommitTrans
UC_connCart.Close
Set UC_connCart = Nothing
UC_redirectToPage = "ringraziamentoweb.asp"
End If
UltraCart.CleanRedirect(UC_redirectToPage)
End If
%>
<% Session.Timeout = 20 %>
dopo questa pagina c'è la pagina controlloordiniweb.asp dove come ti dicevo c'è il recordset che stampa tutto il tabulato inserito per OrdiniID, attenzione pero nella mail di cdonts io chiedo di inviare solo l'ordine cliente corrente la pagina controlloordiniweb.asp stampa invece il tutto per la variabile MM_Username:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
MM_logoutRedirectPage = "http://www.edar.it/default.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="/nonautorizzato.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("UID") <> "") Then
Recordset1__MMColParam = Session("UID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_Edar_STRING
Recordset1_cmd.CommandText = "SELECT * FROM ordinecliente WHERE [UID] = ? ORDER BY OrdiniID ASC"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, Recordset1__MMColParam) ' adVarChar
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
se poi hai di bisogno del codice completo anche HTML delle pagine fammi sapere
ed io continuo a non vedere dove stampa...Originariamente inviato da massimozito
dopo questa pagina c'è la pagina controlloordiniweb.asp dove come ti dicevo c'è il recordset che stampa tutto il tabulato inserito per OrdiniID, attenzione pero nella mail di cdonts io chiedo di inviare solo l'ordine cliente corrente la pagina controlloordiniweb.asp stampa invece il tutto per la variabile MM_Username:
se poi hai di bisogno del codice completo anche HTML delle pagine fammi saperecodice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> ' ecc ecc <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_Edar_STRING Recordset1_cmd.CommandText = "SELECT * FROM ordinecliente WHERE [UID] = ? ORDER BY OrdiniID ASC" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, Recordset1__MMColParam) ' adVarChar Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %>
in questa pagina c'è altro?
qualcosa tipo
for each,
response.write
=NomeVariabile
perché secondo me la soluzione è lì dietro l'angolo
per favore RICORDa il tag CODE per il codice
scusami ma non ho proprio nulla poi solo codice html ma che vuoi dire dove stampa?cosa dovrei postarti scusami?io non vedo proprio altro nelle pagine il carrello cmq salva il tutto su una tabella nella pagina ordina.asp
Questa è cmq la parte del codice html della pagina che mi hai citato tu non so se ti puo essere utile:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Inserimento Corretto Ordine Web</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<style type="text/css">
<!--
.Stile1 {color: #333333}
.Stile2 {
font-size: 14px;
color: #000099;
}
body {
background-color: #FFFFFF;
text-align: center;
font-size: 12px;
}
.Stile11 {
font-size: 13px;
color: #333333;
}
.style1 {
color: #FFF;
}
.stile6 {
font-size: 11px;
}
.stile6 td {
color: #666;
text-align: center;
}
.stile7 {
font-size: 12px;
color: #FFF;
background-color: #000;
}
a:link {
color: #FFF;
}
a:visited {
color: #FFF;
}
.stile6 td table {
text-align: left;
}
.stile6 td table .stile6 td {
text-align: center;
}
-->
</style>
<script language="JavaScript" type="text/javascript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_nbGroup(event, grpName) { //v6.0
var i,img,nbArr,args=MM_nbGroup.arguments;
if (event == "init" && args.length > 2) {
if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
if ((nbArr = document[grpName]) == null) nbArr = document[grpName] = new Array();
nbArr[nbArr.length] = img;
for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = args[i+1];
nbArr[nbArr.length] = img;
} }
} else if (event == "over") {
document.MM_nbOver = nbArr = new Array();
for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) != null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])? args[i+1] : img.MM_up);
nbArr[nbArr.length] = img;
}
} else if (event == "out" ) {
for (i=0; i < document.MM_nbOver.length; i++) {
img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn : img.MM_up; }
} else if (event == "down") {
nbArr = document[grpName];
if (nbArr)
for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up; img.MM_dn = 0; }
document[grpName] = nbArr = new Array();
for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
if (!img.MM_up) img.MM_up = img.src;
img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
nbArr[nbArr.length] = img;
} }
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" onload="MM_preloadImages('images/logo_r2_c2_f3.gif','images/logo_r2_c2_f2.gif','images/logo_r2_c2_f4.gif','images/logo_r2_c4_f3.gif','images/logo_r2_c4_f2.gif','images/logo_r2_c4_f4.gif','images/logo_r2_c6_f3.gif','images/logo_r2_c6_f2.gif','images/logo_r2_c6_f4.gif','images/logo_r2_c8_f3.gif','images/logo_r2_c8_f2.gif','images/logo_r2_c8_f4.gif')">
<table width="100%" height="531" border="1" bordercolor="#FFFFFF">
<tr>
<td width="18" rowspan="3" bgcolor="#CCCCCC"></td>
<td height="157" bgcolor="#FFFF00"><div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="600">
<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>
<td>[img]images/spacer.gif[/img]</td>
</tr>
<tr>
<td colspan="9">[img]images/logo_r1_c1.gif[/img]</td>
<td>[img]images/spacer.gif[/img]</td>
</tr>
<tr>
<td rowspan="2">[img]images/logo_r2_c1.gif[/img]</td>
<td>[img]images/logo_r2_c2.gif[/img]</td>
<td rowspan="2">[img]images/logo_r2_c3.gif[/img]</td>
<td>[img]images/logo_r2_c4.gif[/img]</td>
<td rowspan="2">[img]images/logo_r2_c5.gif[/img]</td>
<td>[img]images/logo_r2_c6.gif[/img]</td>
<td rowspan="2">[img]images/logo_r2_c7.gif[/img]</td>
<td>[img]images/logo_r2_c8.gif[/img]</td>
<td rowspan="2">[img]images/logo_r2_c9.gif[/img]</td>
<td>[img]images/spacer.gif[/img]</td>
</tr>
<tr>
<td>[img]images/logo_r3_c2.gif[/img]</td>
<td>[img]images/logo_r3_c4.gif[/img]</td>
<td>[img]images/logo_r3_c6.gif[/img]</td>
<td>[img]images/logo_r3_c8.gif[/img]</td>
<td>[img]images/spacer.gif[/img]</td>
</tr>
<map name="m_logo_r1_c1" id="m_logo_r1_c1">
<area shape="rect" coords="22,7,269,112" href="default.asp" alt="" />
</map>
</table>
</div></td>
<td width="21" rowspan="3" bordercolor="#FFFFFF" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="310" bordercolor="#999999" bgcolor="#FFFFFF"><div align="center">
<p class="Stile2"><u>Controllo ordine Web Effettuato da: </u><%= UCase( Session("MM_Username") ) %></p>
<table width="80%" border="1" align="center" bordercolor="#CCCCCC">
<tr>
<td align="center">Di seguito avrete modo di visionare i Vostri ordini Web effettuati.</td>
</tr>
</table>
<table width="97%" border="1" bordercolor="#CCCCCC">
<tr class="stile7">
<td width="15%" align="center" nowrap="nowrap">Numero Ordine</td>
<td width="17%" align="center" nowrap="nowrap">Articolo</td>
<td width="15%" align="center" nowrap="nowrap">Descrizione</td>
<td width="16%" align="center" nowrap="nowrap">Quantità</td>
<td width="15%" align="center" nowrap="nowrap">Prezzo Listino</td>
<td align="center" nowrap="nowrap">Prezzo Netto</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr class="stile6">
<td height="25"><%=(Recordset1.Fields.Item("OrdiniID") .Value)%></td>
<td height="25"><%=(Recordset1.Fields.Item("Articolo") .Value)%></td>
<td height="25"><%=(Recordset1.Fields.Item("Descri").V alue)%></td>
<td height="25"><%= FormatNumber((Recordset1.Fields.Item("Quantita").V alue), 2, -2, -2, -2) %></td>
<td height="25">€ <%= FormatNumber((Recordset1.Fields.Item("Compl").Valu e), 2, -2, -2, -2) %></td>
<td width="13%" height="25">€ <%=(Recordset1.Fields.Item("Prz").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<table width="48%" border="1" bordercolor="#CCCCCC">
<tr class="stile7">
<td width="34%" align="center">Vai alla Homepage</td>
<td width="36%" align="center">Ritorna alla Selezione Articoli</td>
<td width="30%" align="center">Esci dall'E-Commerce</td>
</tr>
</table>
</p>
</p>
<p class="Stile2"></p>
</div></td>
</tr>
<tr>
<td height="21" bgcolor="#CCCCCC" class="style1">E.D.A.R. S.r.l. 2012 Copyright</td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
ma non esiste un metodo di scrittura per far leggere a cdonts tutto il campo che stampa il recordset?
a ridagli... c'entra na cippa cdontsOriginariamente inviato da massimozito
ma non esiste un metodo di scrittura per far leggere a cdonts tutto il campo che stampa il recordset?
E PER FAVORE USA TAG CODE PER POSTARE CODICE
hai postato la parte che cercavo,
vedo se riesco nel pomeriggio a indicarti come fare
ok scusami aspetto allora grazie
allora... non sono sicuro di quello che ho fatto,
oggi non ho tempo e sto via qualche giorno.
comunque se qualcosa non va puoi tentare di metterci le mani
(almeno il concetto dovrebbe essere esposto)
questa è la stampe del rieplilogo
la metti subito dopocodice:riepilogo = "<table width=""97%"" border=""1"" bordercolor=""#CCCCCC"">" riepilogo = riepilogo & "<tr class=""stile7"">" riepilogo = riepilogo & "<td width=""15%"" align=""center"" nowrap=""nowrap"">Numero Ordine</td>" riepilogo = riepilogo & "<td width=""17%"" align=""center"" nowrap=""nowrap"">Articolo</td>" riepilogo = riepilogo & "<td width=""15%"" align=""center"" nowrap=""nowrap"">Descrizione</td>" riepilogo = riepilogo & "<td width=""16%"" align=""center"" nowrap=""nowrap"">Quantità</td>" riepilogo = riepilogo & "<td width=""15%"" align=""center"" nowrap=""nowrap"">Prezzo Listino</td>" riepilogo = riepilogo & "<td align=""center"" nowrap=""nowrap"">Prezzo Netto</td>" riepilogo = riepilogo & "</tr>" While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) riepilogo = riepilogo & "<tr class=""stile6"">" riepilogo = riepilogo & "<td height=""25"">" & Recordset1.Fields.Item(""OrdiniID"").Value) & "</td>" riepilogo = riepilogo & "<td height=""25"">" & Recordset1.Fields.Item(""Articolo"").Value) & "</td>" riepilogo = riepilogo & "<td height=""25"">" & Recordset1.Fields.Item(""Descri"").Value) & "</td>" riepilogo = riepilogo & "<td height=""25"">" & FormatNumber((Recordset1.Fields.Item(""Quantita"").Value), 2, -2, -2, -2) & "</td>" riepilogo = riepilogo & "<td height=""25"">€ " & FormatNumber((Recordset1.Fields.Item(""Compl"").Value), 2, -2, -2, -2) & "</td>" riepilogo = riepilogo & "<td width=""13%"" height=""25"">€ " & Recordset1.Fields.Item(""Prz"").Value) & "</td>" riepilogo = riepilogo & "</tr>" Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend riepilogo = riepilogo & "</table>"
Set Recordset1 = Recordset1_cmd.Execute
poi sostituisci il contenuto del corpo della mail
objCDO.Body = riepilogo
dopo
Set objCDO = Nothing 'chiude e libera le risorse
aggiungi
Recordset1.Close()
Set Recordset1 = Nothing
NON GARANTISCO
l'ho scritto di fretta senza alcuna verifica
ma dovrebbe esserci tutto quello che serve a te per procedere
buon divertimento
Purtroppo non va questo è quello che ho fatto come mi hai detto tu ti posto tutto il code dovrebbe essere corretto per come mi hai detto tu:
questo invece è l'errore che mi da sulla paginacodice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_Username") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "http://www.edar.it/default.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="nonautorizzato.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Session("OrdiniID") <> "") Then Recordset1__MMColParam = Session("OrdiniID") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_Edar_STRING Recordset1_cmd.CommandText = "SELECT * FROM Ordinecliente WHERE OrdiniID = ?" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble Set Recordset1 = Recordset1_cmd.Execute riepilogo = "<table width=""97%"" border=""1"" bordercolor=""#CCCCCC"">" riepilogo = riepilogo & "<tr class=""stile7"">" riepilogo = riepilogo & "<td width=""15%"" align=""center"" nowrap=""nowrap"">Numero Ordine</td>" riepilogo = riepilogo & "<td width=""17%"" align=""center"" nowrap=""nowrap"">Articolo</td>" riepilogo = riepilogo & "<td width=""15%"" align=""center"" nowrap=""nowrap"">Descrizione</td>" riepilogo = riepilogo & "<td width=""16%"" align=""center"" nowrap=""nowrap"">Quantità</td>" riepilogo = riepilogo & "<td width=""15%"" align=""center"" nowrap=""nowrap"">Prezzo Listino</td>" riepilogo = riepilogo & "<td align=""center"" nowrap=""nowrap"">Prezzo Netto</td>" riepilogo = riepilogo & "</tr>" While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) riepilogo = riepilogo & "<tr class=""stile6"">" riepilogo = riepilogo & "<td height=""25"">" & Recordset1.Fields.Item(""OrdiniID"").Value) & "</td>" riepilogo = riepilogo & "<td height=""25"">" & Recordset1.Fields.Item(""Articolo"").Value) & "</td>" riepilogo = riepilogo & "<td height=""25"">" & Recordset1.Fields.Item(""Descri"").Value) & "</td>" riepilogo = riepilogo & "<td height=""25"">" & FormatNumber((Recordset1.Fields.Item(""Quantita"").Value), 2, -2, -2, -2) & "</td>" riepilogo = riepilogo & "<td height=""25"">€ " & FormatNumber((Recordset1.Fields.Item(""Compl"").Value), 2, -2, -2, -2) & "</td>" riepilogo = riepilogo & "<td width=""13%"" height=""25"">€ " & Recordset1.Fields.Item(""Prz"").Value) & "</td>" riepilogo = riepilogo & "</tr>" Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend riepilogo = riepilogo & "</table>" Recordset1_numRows = 0 %> <% Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "info@edar.it" ' Mittente - indirizzo del negozio objCDO.To = "magazzino@edar.it" ' Destinatario - indirizzo del cliente objCDO.BCC = "massimozito@alice.it" 'Copia Carbone nascosta - indirizzo del negozio, per conoscenza objCDO.Subject = "Ordine Web"'oggetto objCDO.Body = riepilogo objCDO.Send() 'send mail Set objCDO = Nothing 'chiude e libera le risorse Recordset1.Close() Set Recordset1 = Nothing %>
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/edar.it/ringraziamentoweb.asp, line 77, column 87
riepilogo = riepilogo & "<td height=""25"">" & Recordset1.Fields.Item("OrdiniID").Value) & "</td>"
Pagina:
GET /edar.it/ringraziamentoweb.asp
apetto un tuo controllo
Grazie
Permessi di invio
Rispondi quotando