צפיות
תשובות
אובייקט ASPMail אינו עובד כראוי
כתבתי הקוד הבא וכשאני מנסה לשלוח אותו אני פשוט עובר לדף ריק ולא מקבל את ההודעה על שליחת ההודעה בהצלחה.
זה הקוד:
<%
DIM strAddressee, strName, strGarage, strEmail, strPhone, strTopic, strContent
strAddressee = request.form("addressee")
strName = request.form("name")
strGarage = request.form("garage")
strEmail = request.form("email")
strPhone = request.form("phone")
strTopic = request.form("topic")
strContent = request.form("content")
DIM Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = strName
Mailer.FromAddress= strEmail
Mailer.ReplyTo = strEmail
Mailer.RemoteHost = "mail.Arie-Halafim.co.il"
If strAddressee="Sales" then
Mailer.AddRecipient "[email protected]", "[email protected]"
Else
Mailer.AddRecipient "[email protected]", "[email protected]"
End If
Mailer.Subject = "strTopic"
Mailer.ContentType = "text/html"
Mailer.BodyText = "<html dir=rtl><body>שם:" & strName & "<br>מוסך:" & strGarage & "<br>אימייל:" & strEmail & "<br>טלפון:" & strPhone & "<br><br>נושא הפנייה:" & strTopic & "<br>תוכן הפנייה:" & strContent & "</body></html>"
'Mailer.HTMLBody
Mailer.SendMail
IF Mailer.SendMail Then
Response.Write "<html dir='rtl'>"
Response.Write "הודעתך נשלחה בהצלחה."
Response.Write "<br><br>"
Response.Write "<a href='contact.html'>חזרה</a>"
Response.Write "</html>"
End If
Set Mailer = Nothing
%>
מה לא תקין?
9 תשובות
בעיה נוספת ושונה: קידוד אינו תואם
בעת שאני מנסה להציג את מסד הנתונים – השורה העליונה של הטבלה (מסד הנתונים מוצג בטבלה) שבעצם מורכבת ממילים שמתארים את הערכים בעמודות, איננה מקודדת כמו הערכים עצמם. כך נוצר מצב בו אינני מצליח להציג את שניהם בעברית, תמיד אחד עברית והשני ג'יבריש ושיחקתי כבר עם כל הקידודים האפשריים…..(גם unicode).
הקוד בתגובה הבאה (לא ניתן לשלוח יותר מ300 תוים).
הקוד
(עדיין ההודעה עוברת את 300 התוים אז העליתי הקובץ עצמו
אני רק מתקן אותך..לא ניתן יותר מ…
3000 תווים..
לגבי השאלה הראשונה…
נסה להוריד את ה :
if Mailer.SendMail then
…..
end if
תכתוב ישר ההודעה נשלחה…
כי אם היא לא תשלח אז תיהיה שגיאה וזה לא יראה ההודעה נשלחה.
אני סתם מנחש מעלה רעיון…
…
שיניתי מה שאמרת, אז עכשיו הדפדפן אמנם מראה את הכיתוב כי ההודעה נשלחה – אך בפועל אינני מקבל שום מייל…
הקוד:
<%
DIM strAddressee, strName, strGarage, strEmail, strPhone, strTopic, strContent
strAddressee = request.form("addressee")
strName = request.form("name")
strGarage = request.form("garage")
strEmail = request.form("email")
strPhone = request.form("phone")
strTopic = request.form("topic")
strContent = request.form("content")
DIM Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = strName
Mailer.FromAddress= strEmail
Mailer.ReplyTo = strEmail
Mailer.RemoteHost = "mail.Arieh-Halafim.co.il"
If strAddressee="שיווק ומכירות" then
Mailer.AddRecipient "מכירות", "[email protected]"
Else
Mailer.AddRecipient "שירות לקוחות", "[email protected]"
End If
Mailer.Subject = "strTopic"
Mailer.ContentType = "text/html"
Mailer.BodyText = "<html dir=rtl><body>שם:" & strName & "<br>מוסך:" & strGarage & "<br>אימייל:" & strEmail & "<br>טלפון:" & strPhone & "<br><br>נושא הפנייה:" & strTopic & "<br>תוכן הפנייה:" & strContent & "</body></html>"
'Mailer.HTMLBody
Mailer.SendMail
Set Mailer = Nothing
Response.Write "הודעתך נשלחה בהצלחה, תודה על פנייתך."
%>
תבדוק בQeuee
שההודעה יצאה…
…
הבעיה עם הASPMail תוקנה (פשוט משום מה אני לא מצליח לשלוח וכל שאר העולם כן מצליח…).
מה שכן יש עדיין הבעיה עם הקידוד…
כמה דברים:
ראשית התוכן שלך בעברית, מה זה:
<meta http-equiv="Content-Language" content="en-us">
שנית, את הנתונים שלך תכניס לתוך מערך באמצעות getrows()
ושלישית, לא ראיתי שום דבר שם שמתייחס לאוביקט שליחת הדואר שלך
זה פשוט הקידוד האחרון שניסיתי…
לפני כן גם ניסיתי he וגם לא הלך אם לזה התכוונת.
מזה בדיוק מערך getrows() ואיך הוא יעזור לי?
ואת ההערה השלישית לא הבתי.
אממ..
אני לא מכיר את האובייקט הזה אבל אני בטוח שיש לו הגדרת קידוד.
אנא בדוק בתיעוד שלו.
(אגב, אתה יכול לקרוא עליו )
לעניין הgetrows, אתה פשוט מכניס את הנתונים שלך לתוך מערך, סוגר את הconnection ואז אתה משוחרר לעשות על המערך כל פעלוה שתרצה.
אפשר להתווכח מה יותר יעיל האם מערך או שימוש בgetString , בכל מקרה, אתה יכול לקרוא על זה , ועל אופן השימוש קרא במדריך.