asp e html

**darlette** · 02-12-2008, 15:02

Ciao mi sapreste dire coda c'è di sbagliato in questo codice?

HTML = " <td height=""335"" colspan=""2"" valign=""top"" bgcolor=""#FFFFFF"" class=""Stile3"">"& messaggio & "</td>"&_
" <td width=""199"" valign=""top"" bgcolor=""#FFFFFF""><span class=""Stile1"">"&_
"<span class=""Stile8"">Le nostre News</span>
"& vbCrLf
While ((Repeat1__numRows <> 0) AND (NOT Rnews.EOF))&_
""&(Rnews.Fields.Item("oggetto").Value)&"
"&_
Repeat1__index=Repeat1__index+1 & vbCrLf
Repeat1__numRows=Repeat1__numRows-1 & vbCrLf
Rnews.MoveNext() & vbCrLf
Wend &_
"</span></td>"&_

L'errore è questo:
Expected end of statement

/admin/mailing.asp, line 84

Rnews.MoveNext() & vbCrLf
------------------------^

**asva** · 02-12-2008, 15:14

non vedo i delimitatori asp
<% %>

teoricamente

<%Rnews.MoveNext()%> & vbCrLf

ma mi sebra che sia errato anche il ciclo while

**darlette** · 02-12-2008, 15:19

pensavo bastasse, posto tutto il codice, il ciclo While è generato da dreamweaver, in pratica questa è la parte di codice che si trova all'interno di uno script
Set objEMail = CreateObject("CDONTS.NewMail") per inviare newsletter.
(le variabili sono dichiarate all'inizio della pag)

HTML = "<HTML><HEAD>" &_
"<title>HTML ed immagini</title>" &_
"<style type=""text/css"">" &_
"body {" &_
"background-image: url(http://www.miosito.it/admin/"&sfondo&");" &_
"}" &_
".Stile1 {" &_
"font-family: Verdana, Arial, Helvetica, sans-serif;" &_
"font-size: 10px;" &_
"color: #AAAAAA;" &_
"font-weight: bold;" &_
"}" &_
".Stile3 {" &_
"font-size: 11px;" &_
"color: #777777;" &_
"font-family: Verdana, Arial, Helvetica, sans-serif;" &_
"font-weight: bold;" &_
"}" &_
".Stile4 {" &_
"font-family: Verdana, Arial, Helvetica, sans-serif;" &_
"font-size: 10px;" &_
"}" &_
".Stile6 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; }" &_
".Stile8 {font-size: 13px}" &_
"</style>" &_
"</head>" &_
"<body>" &_
"<table width=""587"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">"&_
"<tr>"&_
"<td height=""44"" colspan=""3"" valign=""top""><div align=""center"" class=""Stile4"">Se non riesci a visualizzare correttamente questo messaggio, clicca qui.</div></td>"&_
"</tr>"&_
"<tr>"&_
"<td width=""296"" height=""61"" valign=""top"">[img][/img]</td>"&_
"<td height=""61"" colspan=""2"" valign=""top""><span class=""Stile6"">Benvenuto </span></td>"&_
"</tr>"&_
"<tr>"&_
" <td height=""335"" colspan=""2"" valign=""top"" bgcolor=""#FFFFFF"" class=""Stile3"">"& messaggio & "</td>"&_
" <td width=""199"" valign=""top"" bgcolor=""#FFFFFF""><span class=""Stile1"">"&_
"<span class=""Stile8"">Le nostre News</span>
"& vbCrLf
While ((Repeat1__numRows <> 0) AND (NOT Rnews.EOF))&_
""&(Rnews.Fields.Item("oggetto").Value)&"
"&_
Repeat1__index=Repeat1__index+1 & vbCrLf
Repeat1__numRows=Repeat1__numRows-1 & vbCrLf
Rnews.MoveNext() & vbCrLf
Wend &_
"</span></td>"&_
"</tr>"&_
"<tr>"&_
"<td height=""44"" colspan=""3"" valign=""top""><div align=""center""><span class=""Stile4"">Questa e-mail ti é stata inviata da BLaBLaBla perché sei un socio registrato ed hai accettato l'Informativa Privacy. Potrai esercitare i tuoi diritti di accesso, rettifica, cancellazione ed opposizione relativamente ai dati di carattere personale, secondo le istruzioni consultabili nella pagina "Registrazione" del sito miosito.it </span></div></td>"&_
"</tr>"&_
"<tr>"&_
"<td height=""1""></td>"&_
"<td width=""92""></td>"&_
"<td></td>"&_
"</tr>"&_
"</table>"

E poi il codice che invia

Discussione: asp e html

Strumenti discussione

Ricerca discussione

Visualizza

asp e html

Permessi di invio