<% 'Dim strConn 'set strConn=server.CreateObject("ADODB.connection") 'strConn.open "PROVIDER=SQLOLEDB.1;DATA SOURCE=192.168.0.7;UID=sa;PASSWORD=;DATABASE=astrodaily1;" Dim strConn set strConn=server.CreateObject("ADODB.connection") strConn.open "PROVIDER=SQLOLEDB.1;DATA SOURCE=202.54.119.141;UID=anjan;PASSWORD=fortune500;DATABASE=astrodaily;" 'Dim strConn1 'set strConn1=server.CreateObject("ADODB.connection") 'strConn1.Open "PROVIDER=SQLOLEDB.1;DATA SOURCE=192.168.0.7;UID=sa;PASSWORD=;DATABASE=astrodaily1;" Dim strConn1 set strConn1=server.CreateObject("ADODB.connection") 'strConn1.Open "PROVIDER=SQLOLEDB.1;DATA SOURCE=216.32.82.242;UID=astro;PASSWORD=un14tk69;DATABASE=astrodaily;" strConn1.open "PROVIDER=SQLOLEDB.1;DATA SOURCE=202.54.119.141;UID=anjan;PASSWORD=fortune500;DATABASE=astrodaily;" %> Horoscope
How to calculate Your Number. 

 For example your date of birth is 10 january 1967

i.e. 10/01/1967 then your number  = 1+0+01+1+9+6+7= 25
 = 2+5
 = 7.