<%if request("mode")="gemshop" then%> <%elseif request("mode")="details" then%> <%else %> <%end if%> <%dim con set con = server.createobject("adodb.connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\")& "\data\astrology.mdb;" if request("mode")="gemshop" then m=month(date) if m=1 then cur_stone="Garnet" next_stone="Amethyst" next_month="February" elseif m=2 then cur_stone="Amethyst" next_stone="Aquamarine" next_month="March" elseif m=3 then cur_stone="Aquamarine" next_stone="Diamond" next_month="April" elseif m=4 then cur_stone="Diamond" next_stone="Emerald" next_month="May" elseif m=5 then cur_stone="Emerald" next_stone="Pearl" next_month="June" elseif m=6 then cur_stone="Pearl" next_stone="Ruby" next_month="July" elseif m=7 then cur_stone="Ruby" next_stone="Peridot" next_month="August" elseif m=8 then cur_stone="Peridot" next_stone="Sapphire" next_month="September" elseif m=9 then cur_stone="Sapphire" next_stone="Opal" next_month="October" elseif m=10 then cur_stone="Opal" next_stone="Topaz" next_month="November" elseif m=11 then cur_stone="Topaz" next_stone="Turquoise" next_month="December" else cur_stone="Turquoise" next_stone="Garnet" next_month="January" end if%>
Birthstone (<%=monthname(m)%>)
<%=cur_stone%>
<%=cur_stone%>

Birthstone (<%=next_month%>)
<%=next_stone%>
<%=next_stone%>
<%end if if request("mode")="details" then m=month(date) if m=1 then cur_stone="Garnet" next_stone="Amethyst" next_month="February" elseif m=2 then cur_stone="Amethyst" next_stone="Aquamarine" next_month="March" elseif m=3 then cur_stone="Aquamarine" next_stone="Diamond" next_month="April" elseif m=4 then cur_stone="Diamond" next_stone="Emerald" next_month="May" elseif m=5 then cur_stone="Emerald" next_stone="Pearl" next_month="June" elseif m=6 then cur_stone="Pearl" next_stone="Ruby" next_month="July" elseif m=7 then cur_stone="Ruby" next_stone="Peridot" next_month="August" elseif m=8 then cur_stone="Peridot" next_stone="Sapphire" next_month="September" elseif m=9 then cur_stone="Sapphire" next_stone="Opal" next_month="October" elseif m=10 then cur_stone="Opal" next_stone="Topaz" next_month="November" elseif m=11 then cur_stone="Topaz" next_stone="Turquoise" next_month="December" else cur_stone="Turquoise" next_stone="Garnet" next_month="January" end if if cur_stone="Pearl" then icode="P10164" end if if cur_stone="Garnet" then icode="G10111" end if if cur_stone="Amethyst" then icode="A10165" end if if cur_stone="Turquoise" then icode="T10166" end if if cur_stone="Topaz" then icode="T10113" end if if cur_stone="Opal" then icode="O10005" end if if cur_stone="Sapphire" then icode="S10037" end if if cur_stone="Peridot" then icode="P10058" end if if cur_stone="Ruby" then icode="R10127" end if if cur_stone="Emerald" then icode="E10029" end if if cur_stone="Diamond" then icode="Diamond" end if if cur_stone="Aquamarine" then icode="A10075" end if%>
<%if cur_stone="Diamond" then%> <%=cur_stone%> <%else%> <%=cur_stone%> <%end if%> <%if cur_stone="Diamond" then %> Get the Gemstones <% else %> Get the Finest <%=cur_stone%>. <%end if%>
Know more about  <%=cur_stone%> Birthstone.
<% end if %> <% dim rs, objrs Set rs = Server.CreateObject("ADODB.Recordset") Set objRS = Server.CreateObject("ADODB.Recordset") Set Recordset = Server.CreateObject("ADODB.Recordset") if request("mode")="daily" then sign=request.querystring("sign") if request("hday")="" or request("hmonth")="" or request("hyear")="" then a=day(date) b=month(date) m1=monthname(b) c=year(date) res=b&"/"& a&"/" & c else a=request("hday") b=request("hmonth") c=request("hyear") m1=monthname(b) res=b&"/"& a&"/" & c end if hdate=c&"-"&formatNumber(b,2)&"-"&formatNumber(a,2) SQL = "select * from daily where hdate="&hdate&" and sign='"&sign&"'" Recordset.Open SQL,oConnection If Recordset.EOF Then Response.Write("No records returned.") Else Do While NOT Recordset.Eof content=Recordset("english_content") rs.movenext loop wend end if Recordset.Close Set Recordset=nothing oConnection.Close Set oConnection=nothing response.write "
"&sign&" (" if request.querystring("sign")="Aquarius" then response.write "Jan 20 - Feb 18" end if if request.querystring("sign")="Pisces" then response.write "Feb 19 - Mar 20" end if if request.querystring("sign")="Aries" then response.write "Mar 21 - Apr 19" end if if request.querystring("sign")="Taurus" then response.write "Apr 20 - May 20" end if if request.querystring("sign")="Gemini" then response.write "May 21 - Jun 21" end if if request.querystring("sign")="Cancer" then response.write "Jun 22 - Jul 22" end if if request.querystring("sign")="Leo" then response.write "Jul 23 - Aug 23" end if if request.querystring("sign")="Virgo" then response.write "Aug 24 - Sep 22" end if if request.querystring("sign")="Libra" then response.write "Sep 23 - Oct 22" end if if request.querystring("sign")="Scorpio" then response.write "Oct 23 - Nov 21" end if if request.querystring("sign")="Sagittarius" then response.write "Nov 22 - Dec21" end if if request.querystring("sign")="Capricorn" then response.write "Dec 22 - Jan 19" end if response.write ")"&"
" response.write "" &m1 &" "&a&", "& c &"

" response.write left(content,50)&"...  "%>
');" style=" text-decoration:none;">more >>

<% end if if request("mode")="weekly" then sign=request.querystring("sign") if request("hday")="" or request("hmonth")="" or request("hyear")="" then curdate=date() m=month(curdate) d=day(curdate) else 'curdate=date() curdate=CDate(request("hmonth")&"/"&request("hday")&"/"&request("hyear")) d=request("hday") m=request("hmonth") end if Set rs = Server.CreateObject("ADODB.RecordSet") set rs=con.execute("select * from weekly") while not rs.eof sign1=rs("sign") date1=rs("date") date2=rs("date1") if(curdate>=date1)and(curdate<=date2)and(sign=sign1)then content=rs("content") d1=rs("date") d2=rs("date1") end if rs.movenext wend rs.Close() Set rs = Nothing Con.Close() Set Con = Nothing response.write "
"&request.querystring("sign") &" (" if request.querystring("sign")="Aquarius" then response.write "Jan 20 - Feb 18" end if if request.querystring("sign")="Pisces" then response.write "Feb 19 - Mar 20" end if if request.querystring("sign")="Aries" then response.write "Mar 21 - Apr 19" end if if request.querystring("sign")="Taurus" then response.write "Apr 20 - May 20" end if if request.querystring("sign")="Gemini" then response.write "May 21 - Jun 21" end if if request.querystring("sign")="Cancer" then response.write "Jun 22 - Jul 22" end if if request.querystring("sign")="Leo" then response.write "Jul 23 - Aug 23" end if if request.querystring("sign")="Virgo" then response.write "Aug 24 - Sep 22" end if if request.querystring("sign")="Libra" then response.write "Sep 23 - Oct 22" end if if request.querystring("sign")="Scorpio" then response.write "Oct 23 - Nov 21" end if if request.querystring("sign")="Sagittarius" then response.write "Nov 22 - Dec21" end if if request.querystring("sign")="Capricorn" then response.write "Dec 22 - Jan 19" end if response.write ")"&"
" response.write "(" &d1 &" - "&d2 &")

" response.write left(content,50)&"...  
"%>
');" style=" text-decoration:none;">more >>

<%end if%> <% if request("mode")="monthly" then sign=request.querystring("sign") session("a")=sign if request("hday")="" or request("hmonth")="" or request("hyear")="" then m=month(date) m1=monthname(m) y=year(date) else m=cint(request("hmonth")) m1=monthname(m) y=cint(request("hyear")) end if Set rs = Server.CreateObject("ADODB.RecordSet") set rs=con.execute("select * from monthly") while not rs.eof sign1=rs("sign") month1=rs("month") year1=rs("year") if(m=month1)and(sign=sign1)and(y=year1)then content=rs("content") end if rs.movenext wend rs.Close() Set rs = Nothing Con.Close() Set Con = Nothing response.write "
"&request.querystring("sign") &" (" if request.querystring("sign")="Aquarius" then response.write "Jan 20 - Feb 18" end if if request.querystring("sign")="Pisces" then response.write "Feb 19 - Mar 20" end if if request.querystring("sign")="Aries" then response.write "Mar 21 - Apr 19" end if if request.querystring("sign")="Taurus" then response.write "Apr 20 - May 20" end if if request.querystring("sign")="Gemini" then response.write "May 21 - Jun 21" end if if request.querystring("sign")="Cancer" then response.write "Jun 22 - Jul 22" end if if request.querystring("sign")="Leo" then response.write "Jul 23 - Aug 23" end if if request.querystring("sign")="Virgo" then response.write "Aug 24 - Sep 22" end if if request.querystring("sign")="Libra" then response.write "Sep 23 - Oct 22" end if if request.querystring("sign")="Scorpio" then response.write "Oct 23 - Nov 21" end if if request.querystring("sign")="Sagittarius" then response.write "Nov 22 - Dec21" end if if request.querystring("sign")="Capricorn" then response.write "Dec 22 - Jan 19" end if response.write ")"&"
" response.write "" &m1 &" , "& year(date) &"

" response.write left(content,50)&"...  
"%>
');" style=" text-decoration:none;">more >>

<%end if%> <%if request("mode")="num" then if request("hday")="" or request("hmonth")="" or request("hyear")="" then a=day(date) m=month(date) y=year(date) res1=m&"/ "& a&"/ "&y else a=cint(request("hday")) m=cint(request("hmonth")) y=cint(request("hyear")) res1=m&"/ "& a&"/ "&y end if response.write "
" response.write "
"& monthname(m)&" "&a&", "&y &"

" set rs=server.createobject("adodb.recordset") set rs=con.execute("select * from birthday1 where type='odd' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=1)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='even' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=2)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='odd' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=3)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='even' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=4)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='odd' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=5)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='even' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=6)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='odd' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=7)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='even' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=8)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='odd' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=9)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='even' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=10)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='odd' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=11)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing set rs=con.execute("select * from birthday1 where type='even' and date='"&a&"' ") if not rs.eof then dat=rs("date") if(m=12)then disp1=rs("content") end if end if rs.Close() Set rs = Nothing 'a=day(date) 'm=month(date) 'y=year(date) 'res1=m&"/ "& a&"/ "&y session("a")=res1 set rs=server.createobject("adodb.recordset") set rs=con.execute("select * from birthday") while not rs.eof dat=rs("date") if(res1=dat)then disp=rs("content1") end if rs.movenext wend rs.Close() Set rs = Nothing con.Close() 'Connection closed but still allocated in memory Set con = Nothing response.write left(disp1,300)&"...
" %>
more >>

<%'response.write(" "&disp&"") end if %> <%if request("mode")="panchang" then if request("hday")="" or request("hmonth")="" or request("hyear")="" then res2=date() res3=weekday(res2) res4 = weekdayname(res3) a=day(date) m=month(date) y=year(date) else res2=request("hmonth")&"/ "&request("hday")&"/ "&request("hyear") res3=weekday(res2) res4 = weekdayname(res3) a=request("hday") m=request("hmonth") y=request("hyear") end if set rs=server.createobject("adodb.recordset") set rs=con.execute("select * from rahutable") while not rs.eof da=rs("day") if (res4=da)then s1=rs("Rahu") s2=rs("Yama") s3=rs("Gulika_day") s4=rs("Gulika_night") s5=rs("Varshoola") end if rs.movenext wend rs.Close() Set rs = Nothing res1=res2%>

<% response.write "
" response.write ""&monthname(m)&" "&a&", "&y &"
" %>
Rahu : <% response.write s1 %>  Yama  : <% response.write s2 %>
   Gulika_day  : <% response.write s3 %>      Gulika_night : <% response.write s4 %> Varshoola  : <% response.write s5 %>
<% end if%>
<%if request("mode")="select" then res2=request("month")&"/ "&request("day")&"/ "&request("year") res3=weekday(res2) res4 = weekdayname(res3) session("r")=res4 set rs=con.execute("select * from rahutable") while not rs.eof da=rs("day") if (res4=da)then s1=rs("Rahu") s2=rs("Yama") s3=rs("Gulika_day") s4=rs("Gulika_night") s5=rs("Varshoola") end if rs.movenext wend rs.Close() Set rs = Nothing res1=res2%>

<% response.write "
" response.write ""& monthname(request("month"))&" "&request("day")&", "&request("year") &"
" %>
Rahu : <% response.write s1 %>  Yama  : <% response.write s2 %>
   Gulika_day  : <% response.write s3 %>     Gulika_night : <% response.write s4 %> Varshoola  : <% response.write s5%>
<%end if%> <% if request("mode")="todayhoro" then %>
 Horoscopes     Numerology     Panchang 
 Choose sign      Find 
 Daily   |  Weekly   |  Monthly
<%end if Function formatNumber(value, digits) if digits > len(value) then formatNumber = String(digits-len(value),"0") & value else formatNumber = value end if End Function %>