<%
Dim Conn
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open("AWWCOM")
Dim Rs
set Rs=Server.CreateObject("ADODB.RecordSet")
if request.querystring("id")="" then
mySQL= "SELECT * FROM health_Arabic where lang_pref='arabic' order by date_publish desc"
else
mySQL= "SELECT * FROM health_Arabic WHERE healthar_no =" & request.querystring("id")
end if
set Rs = Conn.execute(mySQL)
%>
