<% on error resume next Server.ScriptTimeout = 4000 Set DBConn = CreateObject("ADODB.Connection") Set Rs = CreateObject("ADODB.Recordset") Set objCDOConf = Server.CreateObject ("CDO.Configuration") counter =0 DBConn.Open Session("DSN") rs.Open "SELECT email_id,email_n FROM leads order by email_n",DBConn With objCDOConf .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SESSION("MailServer") .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.Update End With Do until rs.EOF = true or counter = 100 Set objCDO = CreateObject("CDO.Message") Set objCDO.Configuration = objCDOConf objCDO.From = "sales@decormyeyes.com" objCDO.To = rs.Fields("email_n") objCDO.Subject = "Discount Designer Sunglasses Sale going on now." v_Body = "DecorMyEyes.com is the latest Discount Designer Warehouse for all the latest styles of sunglasses." & VBCrLf v_Body = v_Body & "Our Designer brands feauture Prada ,Dolce & Gabbana, Dior, Bvulgari , Gucci and many more." & VBCrLf v_Body = v_Body & "All items are 100% authentic or your money back." & VBCrLf v_Body = v_Body & "Please goto http://www.decormyeyes.com to view our site."& VBCrLf v_Body = v_Body & "YOU HAVE NOTHING TO LOOSE."& VBCrLf v_Body = v_Body & "Please goto http://www.decormyeyes.com" & VBCrLf & VBCrLf v_Body = v_Body & "We look forward to your arrival."& VBCrLf objCDO.TextBody = v_Body objCDO.Send() Set objCDO = nothing sql= "delete from leads where email_id = " & rs.Fields("email_id") DBConn.Execute sql Response.Write "Email sent to : " & rs.Fields("email_n") & "
" rs.MoveNext counter = counter + 1 Loop %>