<? require_once("includes/include_all.php"); ?> <%@ Language=VBscript%> <%option explicit%> <%response.buffer=true %> <HTML> <head> <link rel=stylesheet type=text/css href="pc.css"> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <META content="text/html; charset=windows-1256" http-equiv=Content-Type> <META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD> <BODY> <br> <br> <br> <% Dim conn, sql,text1,text2 dim obj dim rs set obj= server.CreateObject("adodb.recordset") set conn= server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("proj.mdb") sql = "SELECT * FROM oicc1" set obj = conn.Execute(sql) %> <marquee> <% =text1%> </marquee> <table border="0" width="500" align=center> <tr> <TD class=kamal align=left> <%WHILE not obj.eof%> <%Response.Write obj("text1")%> </TD> </tr> <tr> <td class = pc align=left> <%Response.Write obj("text2")%></td> </tr> <tr> <td class=kamal align=left> <%Response.Write obj("text3")%> </td></tr> <tr> <TD class=pc align=left> <%Response.Write obj("text4")%> </TD></tr> <tr> <td class=kamal align=left> <% Response.Write obj("text5")%> </td> <%obj.MoveNext%> <%wend %> <%set obj=nothing %></td> </tr> </table> <p>&nbsp;</p> <table border="0" width="100%"> <tr> <td width="100%"> <p align="center"><font face="Arial"><font size="1">Designed and Hosted by<br> </font><a href="http://www.mideastnet.com"><small><small><small><IMG border=0 src="images/mideas1.gif" width="50" height="50"><br> </small></small></small><font size="1"><strong>MidEast Net<br> </strong></font></a><font size="1">Copy Right © 1998<br> All rights reserve</font></font></p> </td> </tr> </table> </BODY></HTML>