בעייה ב-CDO!!!

תודה רבה!!! אבל!!!
זה לא עובד הרכיב לא תומך באפשרות זו!!!
אני עובד על CDO של 2000 ו-XP ולא על זה של NT
אולי למישהו יש פיתרו אחר בשבילי???

טוב תודה בכל מקרה אבל
סידרתי לי את זה כך שהנושא יכנס בגוף ההודעה!!!
אבל עכשיו יש לי בעייה אחרת!!! ניסיתי להכניס כך שהם מכניסים קישור!!!
אתם יכולים לראות דוגמא כאן!!
אבל זה מגיע לאי-מייל שלי זה לא עושה לי את הקישור טוב!!!
והנה הקוד של השליחת אי-מייל שבו הקישורים לא עובדים!!!

<%
dim body
body = "<div align='right'><font face='" & request.Form("font") &"' color='"& request.form("color") & "' style='font-size:"& request.Form("size") & "'>"
body = body & "<u>" & server.HTMLEncode("נושא: ") & server.HTMLEncode(Request.Form("subject")) & "</u><br>"
body = body & server.HTMLEncode("שם: ") & server.HTMLEncode(Request.Form("name")) & "<br><br><br>"
body = body & server.HTMLEncode(request.Form("message")) & "<br><br><br>"
if request.Form("img") <> "http://&quot; then
body = body & "<img src='" & request.Form("img") & "' border='0'></div>"
End IF
for i=1 to 3
if request.Form("link" & i) <> "http://&quot; then
body = body & "<a href='" & request.Form("link" & i) & "'>"
body = body & request.Form("Dlink" & i) & "</a>"
end IF
next
body = body & "</div>"
response.Charset=1255
If Request.Form("btnSend").Count > 0 Then

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = Request.Form("From")
objMessage.Sender = Request.Form("From")
objMessage.To = "[email protected]"
objMessage.HtmlBody = body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing&quot😉 = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver&quot😉 = "mail.speedy.co.il"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot😉 = 25
objMessage.Configuration.Fields.Update
objMessage.Send
session("Email") = "האי-מייל נשלח בהצלחה"
session.CodePage = 1255
Response.Redirect("Sent.html")
End If
%>

והנה הקוד של הכנסת הקישור לגוף ההודעה!!! (מתוך הקוד הקודם)

for i=1 to 3
if request.Form("link" & i) <> "http://&quot; then
body = body & "<a href='" & request.Form("link" & i) & "'>"
body = body & request.Form("Dlink" & i) & "</a>"
end IF
next

השתמשתי בלולאה כי יש לי 3 תאי קישורים!!!

אופס
זה היה אמור להיות להודעה של תהפריט!!!
אז איך אני מסדר את זה!!! שזה יעבוד לי בלולאה!!!