Try using '&' (concatenation) as opposed to '+' for building the string.
Also try debugging by outputting the variable values to the browser and not
sending:
objMail.To = kaun
objMail.Body = MailBody
Response.Write "MailTo: " & kaun & "<br/>"
'etc.
'Don't bother sending - we're only debugging.
'objMail.Send
Chris.
"techy techno" <an**********@h otmail.com> wrote in message
news:u6******** ********@TK2MSF TNGP11.phx.gbl. ..
Hii I am trying to write down a cdont aplication which will email the
survey form to the TO address with the answers checked by the user using
the survey form
I am 100% sure that there is nothing wrong in the code then why is it
not working.
It doesn't work on my machine or it works on the usa web server. whats
wrong. ?
what I have seen is that until I had 2 questions everything was fine.
but the time I added more questions it stopped working
is it that the CDONTS is limited to the number of characters it can send
?
please help
thanks
<%Response.Buff er = True %>
<%
Dim objMail
Dim MailBody
Dim kaun
Dim reserv
Dim reception
Dim House
Dim Food
Dim Staff
DIm hear
reserv = Request.Form("h andled")
reception = Request.Form("r ecep")
House =Request.Form(" clean")
Food = Request.Form("m eal")
Staff = Request.Form("o pi")
hear = Request.Form("h ear")
kaun = request.Form("t xtKaun")
Set objMail = Server.CreateOb ject("CDONTS.Ne wMail")
MailBody = "Name :" + Request.Form("f romName") + "!" + vbCrLf + vbCrLf
+ " Email :" + Request.Form("f romEmail") + vbCrLf + vbCrLf
MailBody = MailBody + "Phone # " + Request.Form("t xtPhone") + vbCrLf +
vbCrLf + "Country : " + Request.Form("s elect6") + vbCrLf + vbCrLf
MailBody = MailBody + "http://www.hawarresort .com/" + vbCrLf + vbCrLf +
vbCrLf + "Sent by " + Request.Form("F romName")
MailBody = MailBody + " using the Survey Form at
http://www.hawarresort .com" + vbCrLf + vbCrLf + vbCrLf + "FEEDBACK" +
vbCrLf + vbCrLf
MailBody = MailBody + "Q1. How was your reservation Handled ? " +
vbCrLf + "Ans : " + Request.Form("h andled") + vbCrLf + vbCrLf
MailBody = MailBody + "Q2. How was your checkin at the Reception ? " +
vbCrLf + "Ans: " + Request.Form("r ecep") + vbCrLf + vbCrLf
MailBody = MailBody + "Q3. How was the Housekeeping Service and
Cleanliness ?" + vbCrLf + "Ans: " + Request.Form("c lean") + vbCrLf
MailBody = MailBody + "Q4. How was the Food and Beverage Service and
Quality ? " + vbCrlF + "Ans: " + Request.Form("m eal")
MailBody = MailBody + "Q5. Your Opinion about the Staff ?" + vbCrLf +
"Ans: " + Request.Form("o pi") + vbCrLf
MailBody = MailBody +"Q6. How did you know about the Hawar Resort Hotel
? " + vbCrLf + "Ans: " + Request.Form("h ear") + ""
objMail.Subject = "New Survey Feedback By : " +
Request.Form("f romName")
objMail.To = kaun
objMail.Body = MailBody
objMail.Send
'You should always do this with CDONTS.
set objMail = nothing
%>
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!