مشکل کار با بانک [بایگانی]

m_shadow

سه شنبه 31 مرداد 1385, 06:38 صبح

سلام به همه دوستان
من یکم توی استفاده از بانکم مشکل دارم اگه بتونید کمکم کنید ممنون میشم
همونطور که میدونید با textarea میتونیم یه جعبه قابل اسکرول درست کنیم حالا من میخوام یه سری اطلاعات رو از بانکم بخونم و داخل این جعبه نمایش بدم این اولیشه و همچنین میخوام یه تعداد از اطلاعات بانک رو بصورت رندوم کنار سایت قرار بدم اینم کداشه

<SCRIPT language="JavaScript">
document.write('<marquee id="iescroller" direction="up" width="95%" height="200" scrollamount="4" scrolldelay="100" background-color:white">');
iescroller.onmouseover=new Function("iescroller.scrollAmount=0");
iescroller.onmouseout=new Function("iescroller.scrollAmount=2");
document.write('<font size="3" face="arial" color="black">')
document.write('<Div align="center">لیست </div><br><br>');
document.write('<Div align="center">< font size="3">لیست </font ></div><br><br>');

document.write('</font>');
document.write('</marquee>');
</SCRIPT>

اینم دستورای خوندن اطلاعات از بانکه که نوشتم فقط ببخشید اگه بهم ریختست نشد درستش کنی



<%
dim objconn
set objconn =server.CreateObject( "adodb.connection")
objconn.ConnectionString ="DRIVER={Microsoft access Driver (*.mdb)};" & _
"DBQ=D:\Inetpub\wwwroot\db1.mdb"
objconn.Open

dim objrs
set objrs =server.CreateObject ("ADODB.recordset")
objrs.Open "p",objconn,,,adCmdTable
%>
<TABLE WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD><B>ID</B></TD>
<TD><B>NAME</B></TD></TR>
<%
do while not objrs.EOF
Response.Write "<TR><TD><B>" & objrs("id") & "</B></TD>"
Response.Write "<TD><B>" & objrs("name") & "</B><BR></TD></TR>"
objrs.MoveNext
loop
%>
</TR>
</TABLE>
<%

objrs.Close
set objrs=nothing
objconn.Close
set objconn=nothing
%>