<% Dim strfname,strsurname,stradd , strphone, strmail, strfax, strcontact Dim strFrom,strTo,strMailBody,strSubject strMailBody="" 'If form is submitted then only send mail if request("IsFormSubmitted") ="1" then strfname=request.form("fname") strsurname=request.Form("sname") stradd=request.form("address") strmail=request.form("temailid") strphone=request.form("phone") 'strfax=request.form("fax") strcontact=request.form("tquery") strsname=request.Form("sname") strcity=request.Form("tcity") strstate=request.Form("tstate") strzipcode=request.Form("tzipcode") strcountry=request.Form("tcountry") strarea=request.Form("textarea") 'if request.form("r1") 'strsname=request.Form("sname") 'strsname=request.Form("sname") strMailBody="" strMailBody=strMailBody & "" strMailBody=strMailBody & "Name : " & strfname & " " & strsname & "
" strMailBody=strMailBody & "Address : " & stradd & "
" strMailBody=strMailBody & "City : " & strcity & "
" strMailBody=strMailBody & "State : " & strstate & "
" strMailBody=strMailBody & "Zip / Pin Code : " & strzipcode & "
" strMailBody=strMailBody & "Country : " & strcountry & "
" strMailBody=strMailBody & "Email Id : " & strmail & "
" ' strMailBody=strMailBody & "Zip / Pin Code : " & strzipcode & "
" strMailBody=strMailBody & "Phone: " & strphone & "
" 'strMailBody=strMailBody & "Fax : " & strfax & chr(13) strMailBody=strMailBody & "Comments : " & strarea & "
" strMailBody=strMailBody & "You would like to take a holiday in : " & request.form("r1") & "
" strMailBody=strMailBody & "Are you a travel agent : " & request.form("r2") & "
" strMailBody=strMailBody & "Are you a NRI : " & request.form("r3") & "

" strMailBody=strMailBody & "The Package you are interested in : " & request.form("tpkg") & "
" strMailBody=strMailBody & "Your query : " & request.form("tquery") & "

" strMailBody=strMailBody & "We are " & request.form("tadults") & " adults and " & request.form("tchild") & " children below 12.
" strMailBody=strMailBody & "We want to travel in (Date) : " & request.form("tdate") & "
" strMailBody=strMailBody & "Total Price : " & request.form("txttourprice") & " " & request.form("txtcurrency") & "
" 'strMailBody=strMailBody & "Comments : " & strcontact & "
" strMailBody=strMailBody & "" strMailBody=strMailBody & "" ' CONST url = "http://www.wherever.com/" ' htmlbody = " this is dfhd
2n linee.
Please register." ' textbody = "Please register:" & vbCrLf & url strFrom=strmail 'strTo="[email protected]" strSubject="Harshil Tour Web Query " strTo="[email protected]" call SendMailCDOCacheConf (strTo,strSubject, strMailBody, strFrom) 'call SendMailcontact(strFrom,strTo,strMailBody,strSubject) Response.Redirect("Thanku.html") end if %>

Feed back :

 

Thank you for visiting our site.

Please allow three working days to receive a reply from Dr. Rita Savla. Meanwhile, hope you found information on this site useful. Please do not expect any prescription in the reply. Have a great day.
Please Note: Some e-mail programs may not accept html (designed) mails and may send them to junk or spam folder. Our mails are often in html (designed) format. Please check your junk or spam box, if you do not find reply from our office.
For quick information, you may call our clinic to talk to Dr. Rita Savla:

Phone: 91-22-28723801
Time: 11 am to 8 pm (Indian Standard Time)
Monday through Saturday.

     
Name  
Surname  
Address :  
City :  
State :  
Zip / Pin Code :  
Country :  
Email Id :  
Phone No. :  
How did you hear about our website :    
Comments  
     
* You would like to take a holiday in India Abroad  
* Are you a travel agent Yes No  
* Are you a NRI Yes No  
* The Package you are interested in  
* Your query  
     
We are adults and children below 12  
* We want to travel in (Date) (DD-MM-YYYY)    
Including airfare    
Excluding airfare is    
Tour Price currency    
     
   

 

 
Privacy Statemen | Disclaimer
Copyright � 2009 1st My Health. All rights reserved. Design by C Soft Solutions

 

 

<% 'written for mailing enquiry 'Function SendMailcontact(strFrom,strTo,strMailBody,strSubject) ' Dim objMail ' Dim MailBody ' Set objMail = CreateObject("CDONTS.NewMail") ' objMail.From=strFrom ' objMail.To= strTo ' objMail.Cc="[email protected]" ' objMail.Subject=strSubject ' objMail.BodyFormat=1 ' objMail.Body= strMailBody ' 'response.write "Inside " & strFrom & strTo & strSubject 'objMail.Send 'Set objMail = Nothing 'end function Sub SendMailCDOCacheConf(aTo, Subject, TextBody, aFrom) 'cached configuration 'Static Conf ' As New CDO.Configuration If IsEmpty(Conf) Then 'Const cdoOutlookExvbsss = 2 'Const cdoIIS = 1 Set Conf = CreateObject("CDO.Configuration") With Conf.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = _ 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "c-softsol.com" .Update End With 'Conf.Load cdoIIS End If Dim Message 'As New CDO.Message 'Create CDO message object Set Message = CreateObject("CDO.Message") With Message 'Set cached configuration Set .Configuration = Conf 'Set email adress, subject And body .To = aTo .Subject = Subject ' .TextBody = TextBody .TextBody = "This is etxtmessa" .HTMLBody = TextBody 'Set sender address If specified. If Len(aFrom) > 0 Then .From = aFrom 'Send the message .Send End With End Sub %>