הוסטס - פורום אחסון האתרים הגדול בישראל - עזרה

מישהו יכול לדעת איפה טעיתי פה...?

הטופס צריך להכיל 2 שדות בלבד, שם וטלפון

טופס הASP:

קוד:

<&#37;



' declare variables

Dim EmailFrom

Dim EmailTo

Dim Subject

Dim Name

Dim Tel



' get posted data into variables

EmailFrom = Trim(Request.Form("EmailFrom")) 

EmailTo = "jobs@cubes.co.il"

Subject = "MSG"

Name = Trim(Request.Form("Name")) 

Tel = Trim(Request.Form("Tel")) 



' validation

Dim validationOK

validationOK=true

If (Trim(EmailFrom)="") Then validationOK=false

If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)



' prepare email body text

Dim Body

Body = Body & "Name: " & Name & VbCrLf

Body = Body & "Tel: " & Tel & VbCrLf



' send email 

Dim mail

Set mail = Server.CreateObject("CDONTS.NewMail") 

mail.To = EmailTo

mail.From = EmailFrom

mail.Subject = Subject

mail.Body = Body

mail.Send 



' redirect to success page 

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

%>

המסמך HTML

קוד:



<form method="POST" action="contact.asp">



Fields marked (*) are required



 



<p>Email From:* <br>



<input type="text" name="EmailFrom">



<p>FirstName:<br>



<input type="text" name="FirstName">



<p>Tel:<br>



<input type="text" name="Tel">



<p><input type="submit" name="submit" value="Submit">



</form>



<p>



 



<!-- Contact Form credit link -->



Created by <a target="_blank" 



href="http://www.tele-pro.co.uk/scripts/contact_form/">Contact 



Form Generator</a>