Not receiving automated emails on comcast or squirrelmail accounts

[therig]

I'm using the following code to send a welcome letter to a user after they've registered with their username/password. Everything seems to work, but when I test the registration with my squirrelmail accounts and comcast account, I don't receive the email, Gmail & some other accounts work fine.

Any help would be greatly appreciated.
Thanks in advance.

Lee

<%
errorMsg=""
submit1=trim(request.form("submit1"))
if submit1="hitbutton" then
    firstName=trim(request.form("sab_firstName"))
    lastName=trim(request.form("sab_lastName"))
    sbdc=trim(request.form("sab_sbdc"))
    consultantName=trim(request.form("sab_consultantName"))
    consultantEmail=trim(request.form("sab_consultantEmail"))
    address1=trim(request.form("sab_address1"))
    address2=trim(request.form("sab_address2"))
    city=trim(request.form("sab_city"))
    sab_state=trim(request.form("sab_state"))
    zip=trim(request.form("sab_zip"))
    areaCode=trim(request.form("sab_areacode"))
    phone1=trim(request.form("sab_phone1"))
    phone2=trim(request.form("sab_phone2"))
    sab_emailAddr=trim(request.form("sab_emailAddr"))
    password=trim(request.form("sab_password"))
 
    'first check if email is unique
    theSQL="select count(emailAddr) as thecount from SAB_User where ltrim(rtrim(upper(emailAddr)))='"+replace(ucase(sab_emailAddr),"'","''")+"'"
    set rs=myconn.execute(theSQL)
    if rs.fields("thecount") > 0 then
        errorMsg="There is already a user created with this email address. Please login.<br />"
    else
        'insert data into table
        theSQL="insert into SAB_User (firstName,lastName,sbdc,consultantName,consultantEmail,address1,address2,city,sab_state,zip,areacode,phone1,phone2,emailAddr,password,entrydate,editdate) "
        theSQL=theSQL + "values ('"+replace(firstName,"'","''")+"','"+replace(lastName,"'","''")+"',"+sbdc+",'"+replace(consultantName,"'","''")+"','"+replace(consultantEmail,"'","''")+"','"+replace(address1,"'","''")+"','"+replace(address2,"'","''")+"','"+replace(city,"'","''")+"','"+sab_state+"','"+zip+"','"+areacode+"','"+phone1+"','"+phone2+"','"+replace(sab_emailAddr,"'","''")+"','"+replace(password,"'","''")+"',getdate(),getdate())"
 
        'response.write(theSQL)
        myConn.execute(theSQL)
        session("sab_userID")=""
        theSQL="select * from sab_user where emailAddr='" + replace(sab_emailAddr,"'","''") + "'"
        set rs=myConn.execute(theSQL)
        session("sab_userID")=rs.fields("userID")
 
        sql="insert into sab_course (userID,sec1_pg,startdate) values ("+trim(rs.fields("userID"))+",1,getdate())"
        myConn.execute(sql)
 
        'Welcome Email
        set myMail=createobject("cdo.message")
        myMail.subject="Welcome to Starting a Business Tutorial"
        myMail.from="[e-mail]"
        myMail.To=rs.fields("firstName") + " " + rs.fields("lastName") + " " + "<"+ sab_emailAddr +">"        
        myMail.textBody="Your User Id: " + sab_emailAddr + chr(13) + chr(10) + "Your password is: " + password
        myMail.send
        set myMail=nothing
        set rs=nothing
 
        response.Redirect("sec1_intro.asp")
 
    end if
 
end if
 
%>