<% dim Conex set Conex = Server.CreateObject("ADODB.Connection") 'conex.Open "Driver=Microsoft Access Driver (*.mdb); DBQ="& Server.MapPath("direcciones.mdb") conex.Open "Driver=Microsoft Access Driver (*.mdb); DBQ="& Server.MapPath("direccionesPru.mdb") Set usu = Server.CreateObject("ADODB.Recordset") 'usu.Open "select distinct ins.email1 from InscripcionPrueba ins, InsBoletin insB where insB.id_boletin=12 and insB.id=ins.id", Conn usu.Open "select * from TECNICOSdePREVENCION", conex Dim objMail set objMail = CreateObject("CDO.Message") objMail.From = "osasunkume@edex.es" objMail.Subject = "Patioan elkar ikusiko dugu - Nos vemos en el patio" while not usu.EOF if ((usu("Izena") = "") or (isnull(usu("Izena")))) then nombre = "amigo/a" nombreEU = "Lagun" sexo = "o/a" else nombre = usu("Izena") nombreEU = usu("Izena") if usu("HOMBRE/MUJER")= "M" then sexo = "a" else sexo = "o" end if end if objMail.CreateMHTMLBody "http://www.edex.es/mailing/patioan/mailing.asp?n=" & nombre& "&s=" & sexo& "&e=" & nombreEU response.Write "
Estimad" & sexo & " " & nombre objMail.To = usu("E-MAIL") objMail.send usu.MoveNext wend %>