CubeS.co.il |
22-08-08 14:24 |
טופס יצירת קשר - איפה טעיתי?!
בשגיאה - ברגע שלוחצים על שלח הוא עושה כאילו הדף לא נמצא...
זה הקוד של הטופס שממלאים בו פרטים
קוד:
<td><form action="mail_Contact_.asp" method="post" onSubmit="return Valid(this)">
<table width="23%" cellpadding="0" cellspacing="0" dir="ltr" lang="he">
<tr>
<td width="3%"> </td>
<td width="21%"> </td>
<td width="76%"> </td>
</tr>
<tr>
<td> </td>
<td><table width="23%" border="0" bgcolor="#FFFF99" dir="rtl" lang="he" class="visittext1">
<tr>
<td width="5%">שם</td>
<td width="95%"><input name="name" type="text" id="name" tabindex="1" value="" size="21" require validName="יש לציין שם"></td>
</tr>
<tr>
<td>נייד</td>
<td><input name="mobile" type="text" tabindex="4" size="7" maxlength="7">
-
<select name="code_mobile" tabindex="3">
<option>בחרי</option>
<option value="050">050</option>
<option value="052">052</option>
<option value="054">054</option>
<option value="057">057</option>
</select></td>
<tr>
</tr>
<tr>
<td colspan="3"><div align="center">
<input type="submit" name="Submit" value="שלחי">
זה הקוד של mail_Contact_.asp
קוד:
<%@ language="VBSCRIPT" CODEPAGE="1255" %>
<%
name = Request.Form("name")
cell = Request.Form("mobile")
cell2 = Request.Form("code_mobile")
' build HTML for message body
strHTML = "<HTML dir=rtl>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "ùí: " & name & "<br>"
strHTML = strHTML & "èìôåï ðééã: "& cell2 & "-" & cell &"<br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
Session.CodePage = 1255
' change to address of your own SMTP server
strHost = "mail.nannys.co.il"
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.Charset = "Windows-1255"
Mail.From = Request("& cell2 & "-" & cell &") ' From address
Mail.FromName = Mail.EncodeHeader(Request("name"), "Windows-1255")
Mail.AddAddress "jobs@cubes.co.il"
' message subject
Mail.Subject = "Mail from Nannys"
' message body
Mail.Body = strHTML
Mail.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
Response.Redirect "http://www.nannys.co.il/þþThanks_Contact.asp"
%>
איפה טעיתי?
|