Email via ASP

[cesarhtc 0]

Bom dia,

Peço ajuda pois necessito enviar email via asp automáticamente, consultando uma base em que a condição é dias = "??", fiz alguma pesquisa e parece que pode ser feito pelo global.asa, só que não está acontecendo. Quando não acesso a base de dados o email é enviado. Segue código abaixo.

Desde já agradeço.

<SCRIPT LANGUAGE='VBScript' RUNAT='Server'>
' Aplicação aplicat
Sub Application_OnStart()
' Server.ScriptTimeout = 10
Application.Lock
Application ("totalusu")=0
Application ("usuarios")=0

'Application ("conexao") ="Provider=OraOLEDB.Oracle.1; Password=; Persist Security Info=True;User ID=; Data Source=;"

' Código para enviar o email ao webmaster.

Application.UnLock

End Sub

Sub Session_OnStart()

'1) Montar a String de Conexão
'Cria um objeto recordset
set rstMain = Server.CreateObject("ADODB.Recordset")

strSQL=""

'response.write strsql &"<BR>"
'response.End

'Conecta ao BD pelo DSN e abre a consulta
'Como resultado, o recordset conterá a tabela-resposta

rstMain.Open StrSQL, Application("CONEXAO")
if not rstMain.EOF Then

Do until rstMain.EOF

Dias = rstMain("DIAS")


If dias ="41" Then ' AQUI DEFINO A QUANTIDADE DE DIAS'

Application.Lock
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "xpto@]"
objMail.From =webmaster@]"
objMail.Cc = "adg@gmail.com"
objMail.Subject = "Email do mês!"
objMail.Body = "GRITE BARCELLONA 17:00."
objMail.Send


' Move para o próximo registro
rstMain.movenext
Loop
rstMain.Close
Else


'Libera a memória (destrói o objeto recordset)
Set rstMain=Nothing
End IF


Application ("totalusu")=Application ("totalusu")+1
Application ("usuarios")=Application ("usuarios")+1
Application.UnLock

End Sub


Sub Session_OnEnd
Application.Lock
Application ("usuarios")=Application ("usuarios")-1
Application.UnLock
End Sub

< /SCRIPT>

[xanburzum 169]

qual erro é gerado ?

[cesarhtc 0]

Este é o erro:

 

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/LM/W3SVC/513758688/Root/global.asa, line 75

Loop^

[xanburzum 169]

Resposta no outro tópico. e porfavor use apenas um tópico... para assim não duplicar tópico.