שלום לכולם ותודה מראש

כתבתי סקריפט ב asp לשליחה של טופס לאימייל. כשלוחצים submit ולא כל השדות ההכרכיים מלאים
הוא שולח אותי לדף error.html שזה בסדר. אבל אם אני ממלא את כל השדות ואז שולח הוא לא מגיע לדף ok.html הדפדפן נשאר עם הקובץ contact.asp
משהו יכול להגיד לי מה לא בסדר בסקריפט הזה:
<%
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim FirstName
Dim LastName
Dim Phone
Dim Address
Dim City
Dim State
Dim Zip
Dim Comments
' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = "shenhavb@hotmail.com"
Subject = "Estimate"
FirstName = Trim(Request.Form("FirstName"))
LastName = Trim(Request.Form("LastName"))
Phone = Trim(Request.Form("Phone"))
Address = Trim(Request.Form("Address"))
City = Trim(Request.Form("City"))
State = Trim(Request.Form("State"))
Zip = Trim(Request.Form("Zip"))
Comments = Trim(Request.Form("Comments"))
' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (Trim(FirstName)="") Then validationOK=false
If (Trim(LastName)="") Then validationOK=false
If (Trim(Phone)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.html?" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "FirstName: " & FirstName & VbCrLf
Body = Body & "LastName: " & LastName & VbCrLf
Body = Body & "Phone: " & Phone & VbCrLf
Body = Body & "Address: " & Address & VbCrLf
Body = Body & "City: " & City & VbCrLf
Body = Body & "State: " & State & VbCrLf
Body = Body & "Zip: " & Zip & VbCrLf
Body = Body & "Comments: " & Comments & VbCrLf
' send email
Dim mail
Set mail = Server.CreateObject("CDO.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send
' redirect to success page
Response.Redirect("ok.html?" & EmailFrom)
%>

אם אתה מצפה שמישהו בכלל יסתכל על הקוד שלך וינסה לעזור לך, תחום את הקוד בתגי CODE!

אתה בעצמך מסוגל להסתכל על קוד בצורה הזאת?

קוד:

<%
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim FirstName
Dim LastName
Dim Phone
Dim Address
Dim City
Dim State
Dim Zip
Dim Comments
' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom")) 
EmailTo = "shenhavb@hotmail.com"
Subject = "Estimate"
FirstName = Trim(Request.Form("FirstName")) 
LastName = Trim(Request.Form("LastName")) 
Phone = Trim(Request.Form("Phone")) 
Address = Trim(Request.Form("Address")) 
City = Trim(Request.Form("City")) 
State = Trim(Request.Form("State")) 
Zip = Trim(Request.Form("Zip")) 
Comments = Trim(Request.Form("Comments")) 
' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (Trim(FirstName)="") Then validationOK=false
If (Trim(LastName)="") Then validationOK=false
If (Trim(Phone)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.html?" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "FirstName: " & FirstName & VbCrLf
Body = Body & "LastName: " & LastName & VbCrLf
Body = Body & "Phone: " & Phone & VbCrLf
Body = Body & "Address: " & Address & VbCrLf
Body = Body & "City: " & City & VbCrLf
Body = Body & "State: " & State & VbCrLf
Body = Body & "Zip: " & Zip & VbCrLf
Body = Body & "Comments: " & Comments & VbCrLf
' send email 
Dim mail
Set mail = Server.CreateObject("CDO.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send 
' redirect to success page 
Response.Redirect("ok.html?" & EmailFrom)
%>

ובקשר לשאלה, תנסה לכתוב פלט לדפדפן, פלט כמו מילה מסוימת, העיקר שיהיה פלט.
אם יש פלט, זה אומר שמשהו לא בסדר ב:

קוד:

Response.Redirect("ok.html?" & EmailFrom)

לכן תתחיל לנסות וריאציות שונות בפרמטר של הפונקציה, ותנסה גם לכוון את המשתמש לכתובות שונות.

קודם כל תודה .

אבל מה הכוונה לכתוב פלט לדפדפן .
דברתי עם חברת ה hosting והם אמרו לי שהקוד נשבר בשורה 55

אתה בתוח שמייל נישלך? אם לא, יכול להיות שאין לשרת את הרכיב הזה...

אם המייל מגיעה, והבעיה היא רק שהדף לא משתנה, תנסה את זה:

קוד:

  Response.Redirect("ok.html")

אם עדיין לא עובד דף, נסה לגלות אם ביכלל הקוד מגיע לשורה הזאת על ידי סתם כתיבת פלט:

קוד:

 Response.Write("aaa") 

ליפני ה-Response.Redirect ואחרי, ותיראה אם אתה רואה מה שכתוב... (שבמיקרה הזה אתה אמור ליראות aaa)

תודה על התגובה

המייל לא נישלח . ניסיתי גם עם סתם פלט וגם את זה אני לא רואה
יש להם asp דיברתי אתם
אם יש לכם עוד רעיונות אני אשמח

ברור שיש להם ASP. אבל הבעיה היא אחרת. שלא מותקן על השרת רכיב לשליחת אימייל... נסה לשלוח אותו בדרכים אחרות.