Este fórum é para dúvidas onde a base da questão é a linguagem ASP.
Moderador: web
por douginhox Offline » Sáb Nov 29, 2008 3:04 pm
|
olá estou com esse problema
se alguem poder me ajudar ficarei grato
Microsoft VBScript compilation error '800a0400'
Expected statement
/exnetwork/sender.asp, line 2
\par
^
o codigo é esse
- Código: Selecionar todos
{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 <%\par
'\par
'ASP Mass Mail Sender 1.0\par
'by EscMan [xRoot Group]\par
'\par
'* Private\par
'\par
if request.form="" then\par
%>\par
\par
<head> <title>ASP Sender - by EscMan [xRoot group coder] 1.0 </title> </head>\par
<body>\par
<h1><font color="green">Send Setup</font></h1>\par
<form action="?" method="POST">\par
Remetente : <input type="Text" name="remet" size="57" maxlength="200"> <br>\par
Subject : <input type="Text" name="subj" size="60"> <br>\par
Mails: <br><textarea rows="10" name="mail" cols="52">mail1@provedor.com\par
mail2@provedor.com</textarea> <br>\par
HTML : <br><textarea rows="15" name="html" cols="52">HTML AQUI</textarea> <br>\par
<input type="submit" value="send">\par
</form>\par
<%\par
else\par
html = request.form("html")\par
subj = request.form("subj")\par
mail = request.form("mail")\par
remet = request.form("remet")\par
mails = split(mail,chr(13))\par
corpo = html & VBNEWLINE\par
\par
'enviandoooo xD\par
%>\par
<h1><font color="green">! Sending !</font></h1><br><br>\par
<%\par
for mailloop = 0 to ubound(mails)\par
\par
Set objmail = Server.CreateObject("CDONTS.NewMail")\par
objmail.from = remet\par
Response.Write "Enviando " & mails(mailloop)\par
objmail.to = mails(mailloop)\par
objmail.subject = subj\par
objmail.body = corpo\par
objmail.BodyFormat = 0\par
objmail.MailFormat = 0\par
On Error Resume Next\par
objmail.send\par
If Err <> 0 Then\par
Response.Write " [ !ERRO! ] <br>"\par
Response.End\par
End If\par
Response.Write " ok !!! <br>"\par
\par
next\par
end if %>\par
<br><br><br>\par
ASP Mass Mail Sender - By EscMan\par
</body>\par
}
douginhox
MEMBRO
Mensagens: 27
Registrado em: Sex Set 05, 2008 5:29 pm
Localização: belem/pará/brasil
|
por Rodrigo1 Offline » Seg Dez 01, 2008 3:29 pm
Entao cara!
Tenta tirar esses "/par" q nao tao fazendo nada!
Dai vc posta aqui denovo
Valeu!
Contribua você tambem com o forum!
Nao abandone seu post, responda se der certo!
Paz!
Rodrigo1
SUPER ATIVO
Mensagens: 93
Registrado em: Qui Nov 06, 2008 2:49 pm
Localização: Sao Paulo
|
Voltar para Asp
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante
