A ver si alguien le ve el fallo xq yo no veo na d na
El código es el siguiente:
Código PHP:
'Creo la conexión con la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Publicom.mdb"))
Set Result=createobject("ADODB.Recordset")
Result.cursortype = AdOpenKeyset
Result.LockType = AdLockOptimistic
sql_Result = "Select * From Resultados"
Result.open sql_Result, conn
while not result.eof
if result.fields("tipocliente")="1" then
texto = "Tipo1"
else if result.fields("tipocliente")="2" Then
texto = "Tipo2"
else if result.fields("tipocliente")="3" then
texto = "Tipo 3"
else
'nada
end if
direccion = Result.fields("mail")
' CDO mail object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
' CDO mail settings
with objCDOMail
.BodyFormat = cdoBodyFormatHTML
.MailFormat = cdoMailFormatMIME
.Body = Texto
.Subject = "Pruebas Publicom"
.From = "[email protected]"
'.Bcc = "[email protected]"
.Bcc = direccion
'.Cc = strCC
.MailFormat = 0
'.AttachFile ThisFile
.Send
end with
' destroy object, free memory
set objCDOMail = nothing
result.movenext
WEND <--------AQUI ME DA EL ERROR
Pues en el wend me da este error:
Error de compilación de Microsoft VBScript (0x800A0400)
Se esperaba una instrucción
/publicom/envio.asp, line 92
Alguien tiene idea de por que puede ser?????
Mucas gracias por adelantado, salu2,
