<%@LANGUAGE ="VBSCRIPT" %> <% if request.Form("Submit") ="Submit" then f_name=request.Form("fname") l_name=request.Form("lname")' e_mail=request.Form("email") c_address=request.Form("current_addresss") qualification=request.Form("qualification") siblings=request.Form("siblings") phone=request.Form("phone") fax=request.Form("fax") sex=request.Form("sex") dob_dd=request.Form("dob_dd") dob_mm=request.Form("dob_mm") dob_yy=request.Form("dob_yy") tob_hh=request.Form("dob_hh") dob_mm=request.Form("dob_mm") POB_country=request.Form("POB_country") POB_state=request.Form("POB_state") POB_town=request.Form("POB_town") SourceOfTOB=request.Form("SourceOfTOB") ErrorInTOB=request.Form("ErrorInTOB") question=request.Form("question") 'response.write("hello") Body_Text = "hi,
First Name: " & f_name &"
Last Name: "& l_name &"
e_mail: " & e_mail &"
Current Address: "& c_address &"
Qualification: "& qualification &"
Siblings: "& siblings &"
Phone: "& phone &"
Fax: "& fax &"
Sex: "& sex &"
Date of Birth: "& dob_dd &""& dob_mm &""& dob_yy &"
Birth of Time: "& dob_hh &""& dob_mm &"
Place of Country: "& POB_country &"
Place of State: "& POB_state &"
Place of Town: "& POB_town &"
Source of time of birth: "& SourceOfTOB &"
Error in time of birth: "& ErrorInTOB &"
Your Question: "& question 'response.write(Body_Text) 'response.end() 'dim Subject As String Subject="Registration" fromWho=e_mail & "(" & f_name & l_name & ")" toWho="dollan@del2.vsnl.net.in" 'toWho="stellargroup@worldnet.att.net" Dim objCDO Dim objConf Dim objFields 'Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") 'Set objConf = Server.CreateObject("CDO.Configuration") 'Set objFields = objConf.Fields 'objFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 25 'objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp@journalofastrology.com" 'objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 'objFields.Update 'Set objCDO.Configuration = objConf objCDO.From ="dollan@del2.vsnl.net.in" objCDO.To = toWho objCDO.Subject = Subject objCDO.HTMLBody = Body_Text 'response.end objCDO.Send Set ObjCDO = Nothing 'Set objConf = Nothing Set objFields = Nothing response.redirect("http://www.journalofastrology.com/sf6.0/contents/en-us/d11.html") end if %> ::: Journal of Astrology :::
New book by KN Rao: JYOTISHA, the super- science, A Rich Heritage of India's Composite Culture
Contents
 About K N Rao
 From K N Rao
 Magazine Subscription
 Archives
 Learn Astrology
 To the Editor
 News and Events
 Astrological Predictions

 

Astrological Predictions

All the fields with * are compulsory
* First Name 

* Last Name 
* Email Address  
* Current Address  
* Highest Academic qualification 
* Number of siblings 
* Phone no.
Fax (if any)
* Gender  Male Female
* Date of Birth 
* Time of birth  [24-hour format]
   
Place of birth
  
* Country
* State
* Town
* Source of time of birth
* Possible error in Time of birth
Ask Questions