Hello, I'm creating email that goes out to clients. I create it in SQL Server and put the text in html tags. In most cases the clients receive it fine but in one case they only thing they see is "< r". Could this be some setting on the client that does not let it see html correctly. I've shown below the data when it appears correct and how I build it.
Thanks for any help.
The Closing Date for the unit below has been rescheduled.
Project: Property 1
Unit: 38B
Parking Space(s): 56
Purchaser Name: Mr. Test
Old Date: 12/15/2007 5:00 AM
New Date: 2/1/2008 5:00 AM
WalkThru Date:
R eason For Change: test
Project Manager: Manaager
************************************************************************
**************************
sMessage = sMessage & "<HTML>"
sMessage = sMessage & "<Table>"
sMessage = sMessage & "<TR><TD>The Closing Date for the
unit below has been rescheduled. </TD></TR>"
sMessage = sMessage & "</Table>"
sMessage = sMessage &"<Table><TR><TD></TD></TR></Table>"
If Not IsNull(ADOrs.Fields("RescheduleMessage")) Then
sMessage = sMessage & "<Table>"
sMessage = sMessage & "<TR><TD>" &
ADOrs.Fields("RescheduleMessage") & "</TD></TR>"
sMessage = sMessage & "</Table>"
End If
sMessage = sMessage & "<Table>"
sMessage = sMessage & "<TR><TD>Project: </TD><TD>" &
ADOrs.Fields("DevelopmentProject") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Unit: </TD><TD>" &
ADOrs.Fields("Unit") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Parking Space(s):
</TD><TD>" & ADOrs.Fields("ParkingSpaceDesc") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Purchaser Name:
</TD><TD>" & ADOrs.Fields("PurchaserPrefix") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Old Date: </TD><TD>" &
ADOrs.Fields("FinalClosingDate") & " " &
Format(ADOrs.Fields("ClosingTime"), "h:mm AMPM") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>New Date: </TD><TD>" &
ADOrs.Fields("NewDate") & " " & Format(ADOrs.Fields("NewTime"), "h:mm
AMPM") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>WalkThru Date:
</TD><TD>" & ADOrs.Fields("WalkThruDate") & " " &
Format(ADOrs.Fields("WalkThruTime"), "h:mm AMPM") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Reason For Change:
</TD><TD>" & ADOrs.Fields("ClosingDateChanges") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Project Manager:
</TD><TD>" & ADOrs.Fields("ProjectManager_ConstructionUserName") &
"</TD></TR>"
sMessage = sMessage & "</Table>"
sMessage = sMessage & "</HTML>"
Thanks for any help.
The Closing Date for the unit below has been rescheduled.
Project: Property 1
Unit: 38B
Parking Space(s): 56
Purchaser Name: Mr. Test
Old Date: 12/15/2007 5:00 AM
New Date: 2/1/2008 5:00 AM
WalkThru Date:
R eason For Change: test
Project Manager: Manaager
************************************************************************
**************************
sMessage = sMessage & "<HTML>"
sMessage = sMessage & "<Table>"
sMessage = sMessage & "<TR><TD>The Closing Date for the
unit below has been rescheduled. </TD></TR>"
sMessage = sMessage & "</Table>"
sMessage = sMessage &"<Table><TR><TD></TD></TR></Table>"
If Not IsNull(ADOrs.Fields("RescheduleMessage")) Then
sMessage = sMessage & "<Table>"
sMessage = sMessage & "<TR><TD>" &
ADOrs.Fields("RescheduleMessage") & "</TD></TR>"
sMessage = sMessage & "</Table>"
End If
sMessage = sMessage & "<Table>"
sMessage = sMessage & "<TR><TD>Project: </TD><TD>" &
ADOrs.Fields("DevelopmentProject") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Unit: </TD><TD>" &
ADOrs.Fields("Unit") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Parking Space(s):
</TD><TD>" & ADOrs.Fields("ParkingSpaceDesc") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Purchaser Name:
</TD><TD>" & ADOrs.Fields("PurchaserPrefix") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Old Date: </TD><TD>" &
ADOrs.Fields("FinalClosingDate") & " " &
Format(ADOrs.Fields("ClosingTime"), "h:mm AMPM") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>New Date: </TD><TD>" &
ADOrs.Fields("NewDate") & " " & Format(ADOrs.Fields("NewTime"), "h:mm
AMPM") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>WalkThru Date:
</TD><TD>" & ADOrs.Fields("WalkThruDate") & " " &
Format(ADOrs.Fields("WalkThruTime"), "h:mm AMPM") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Reason For Change:
</TD><TD>" & ADOrs.Fields("ClosingDateChanges") & "</TD></TR>"
sMessage = sMessage & "<TR><TD>Project Manager:
</TD><TD>" & ADOrs.Fields("ProjectManager_ConstructionUserName") &
"</TD></TR>"
sMessage = sMessage & "</Table>"
sMessage = sMessage & "</HTML>"
