% Function acentos(strInput) if strInput<>"" then strTemp = Replace(strInput, "","è") strTemp = Replace(strTemp, "", "ù") strTemp = Replace(strTemp, "", "é") strTemp = Replace(strTemp, "", "ì") strTemp = Replace(strTemp, "", "ô") strTemp = Replace(strTemp, "", "ò") acentos = strTemp else acentos = "" end if End Function %> <% Set DataConname = Server.CreateObject("ADODB.Connection") DataConname.Open "DBQ=" & Server.Mappath("/db/db1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set rst = Server.CreateObject("ADODB.Recordset") strSQL="SELECT * FROM maintab WHERE id=" & request.querystring("id") rst.Open strSQL, DataConname , 1, 3 if rst("horoscope")="ariete" then segnoimg="01_ariete.gif" else if rst("horoscope")="toro" then segnoimg="02_toro.gif" else if rst("horoscope")="gemelli" then segnoimg="03_gemelli.gif" else if rst("horoscope")="cancro" then segnoimg="04_cancro.gif" else if rst("horoscope")="leone" then segnoimg="05_leone.gif" else if rst("horoscope")="vergine" then segnoimg="06_vergine.gif" else if rst("horoscope")="bilancia" then segnoimg="07_bilancia.gif" else if rst("horoscope")="scorpione" then segnoimg="08_scorpione.gif" else if rst("horoscope")="sagittario" then segnoimg="09_sagittario.gif" else if rst("horoscope")="capricorno" then segnoimg="10_capricorno.gif" else if rst("horoscope")="acquario" then segnoimg="11_acquario.gif" else if rst("horoscope")="pesci" then segnoimg="12_pesci.gif" end if end if end if end if end if end if end if end if end if end if end if end if %>


|
Tutto, segno per segno, mese dopo mese su oroscopo |