<% if Request.Querystring("signe")="" then %>

 

21marzo-20 abril

21 abril-20 mayo

21 mayo-21 junio

22 junio-22 julio

23 julio-22 agosto

23 agosto-21 septiembre

22 septiembre-22 octubre

23 octubre-21 noviembre

22 noviembre-22 diciembre

23 diciembre-21 enero

22 enero-21 febrero

22 febrero-20 marzo
<% else opcio=CStr(Request.Querystring("signe")) Set grupconnexio = Server.CreateObject("ADODB.Connection") grupconnexio.ConnectionString = "DSN=totlleida.com.ofimatica;UID=totlleida.com;PWD=tucan" grupconnexio.Open Set recAltaProducte = Server.CreateObject("ADODB.Recordset") recAltaProducte.ActiveConnection = grupconnexio Set SqlCommand = Server.CreateObject("ADODB.Command") SqlCommand.Activeconnection = grupconnexio if Day (Now)>=1 and Day (Now)<=6 then SqlCommand.CommandText = "SELECT * FROM Horoscop WHERE signe='" & opcio & "' and data = 1" elseif Day (Now)>=7 and Day (Now)<=12 then SqlCommand.CommandText = "SELECT * FROM Horoscop WHERE signe='" & opcio & "' and data = 7" elseif Day (Now)>=13 and Day (Now)<=18 then SqlCommand.CommandText = "SELECT * FROM Horoscop WHERE signe='" & opcio & "' and data = 13" elseif Day (Now)>=19 and Day (Now)<=24 then SqlCommand.CommandText = "SELECT * FROM Horoscop WHERE signe='" & opcio & "' and data = 19" else SqlCommand.CommandText = "SELECT * FROM Horoscop WHERE signe='" & opcio & "' and data = 25" end if Set recAltaProducte = SqlCommand.execute if opcio="Aries" then %>
<% elseif opcio="Taure" then %>
<% elseif opcio="Bessons" then %>
<% elseif opcio="Cranc" then %>
<% elseif opcio="Lleo" then %>
<% elseif opcio="Verge" then %>
<% elseif opcio="Balansa" then %>
<% elseif opcio="Escorpi" then %>
<% elseif opcio="Sagitari" then %>
<% elseif opcio="Capricorn" then %>
<% elseif opcio="Aquari" then %>
<% elseif opcio="Peixos" then %>
<% end if %>

<%=recAltaProducte.Fields("Descripcio")%>

Amor:

 <%=recAltaProducte.Fields("Amor")%>
Salud: <%=recAltaProducte.Fields("Salut")%>
Dinero: <%=recAltaProducte.Fields("Diners")%>
<% end if %>