[CubeS.co.il]

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



הטופס צריך להכיל 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>