628
צפיות
צפיות
10
תשובות
תשובות
בעייה ב-CDO!!!
מצאתי שרת שעובד עם רכיב ה-CDO של ASP (וואבסמבה)
אבל יש לי בעיית עברית בנושא ההודעה!!!
הכנסתי את הקוד של עברית לוגית
<%@ codepage=1255 %>
הכנסתי את הקוד של העברית לוגית ב-HTML
הכנסתי את הקוד הנוסף של אובייקט רספונס
<% response.chares=1255 %>
ועדיין זה נותן לי סימני שאלה בנושא ההודעה!!!
למישהו יש פיתרון בשבילי???
תודה לכל מי שמגיב!!!
10 תשובות
נסה
objMail.SetLocaleIDs(1255) ' send Logical Hebrew by mail
תודה רבה!!! אבל!!!
זה לא עובד הרכיב לא תומך באפשרות זו!!!
אני עובד על CDO של 2000 ו-XP ולא על זה של NT
אולי למישהו יש פיתרו אחר בשבילי???
אין דבר כזה
CDO תומך בזה.
מה השגיאה?
טוב תודה בכל מקרה אבל
סידרתי לי את זה כך שהנושא יכנס בגוף ההודעה!!!
אבל עכשיו יש לי בעייה אחרת!!! ניסיתי להכניס כך שהם מכניסים קישור!!!
אתם יכולים לראות דוגמא !!
אבל זה מגיע לאי-מייל שלי זה לא עושה לי את הקישור טוב!!!
והנה הקוד של השליחת אי-מייל שבו הקישורים לא עובדים!!!
<%
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://" then
body = body & "<img src='" & request.Form("img") & "' border='0'></div>"
End IF
for i=1 to 3
if request.Form("link" & i) <> "http://" 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"😉 = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver"😉 = "mail.speedy.co.il"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport"😉 = 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://" then
body = body & "<a href='" & request.Form("link" & i) & "'>"
body = body & request.Form("Dlink" & i) & "</a>"
end IF
next
השתמשתי בלולאה כי יש לי 3 תאי קישורים!!!
ושכחתי!!! בבקשה!!!
הודעה ריקה !!!
מה ניסת לעשות כאן?
for i=1 to 3
if request.Form("link" & i) <> "http://" then
body = body & "<a href='" & request.Form("link" & i) & "'>"
body = body & request.Form("Dlink" & i) & "</a>"
end IF
next
השורה הזאת לא אפשרית!
request.Form("link" & i)
תנסה משהו אחר..
תודה רבה
אופס
זה היה אמור להיות להודעה של תהפריט!!!
אז איך אני מסדר את זה!!! שזה יעבוד לי בלולאה!!!
תגיד… מה היה קורה אילו…
היית מפחית במספר הסימני קריאה שלך ב… נגיד… 10 סימני קריאה פחות לשאלה. מה היה קורה?
זה!!! לא!!! נראה!!! טוב!!! כל!!! הסימני!!! קריאה!!! האלה!!!
זה!!! נותן!!! הרגשה!!! כאילו!!! אתה!!! לא!!! מפסיק!!! לצעוק!!!!!!
נכון?!?!?!?!?!
תודה
צודק!!!
כדי!! שתוריד !!! קצת!! סימני!!! קראיה!!!
פשוט תוריד את הI שרשום שם…
וזהו