<%Session.CodePage = 65001%>
فال حافظ
<%
id=Request.QueryString("id")
RANDOMIZE
fn=INT(rnd*31)+1 ' fn is FalNumber
set con=Server.CreateObject("adodb.Connection")
con.Open ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& hafez
set rs=Server.CreateObject("adodb.Recordset")
if id="" then
strSQL= "Select * From Faal where id=" & fn & ""
else
strSQL= "Select * From Faal where id=" & id & ""
end if
rs.Open strSQL,con,1
id=rs("id")
name=rs("nam")
url=rs("Url")
shahed=rs("shahed")
shahedUrl=rs("shahedUrl")
shahed7=rs("shahed7")
shahed7Url=rs("shahed7Url")
music=rs("music")
musicUrl=rs("musicUrl")
vocalist=rs("vocalist")
composer=rs("composer")
rs.Close
con.Close
%>
