25-04-2005, 14:02
|
|
|
חבר מתאריך: 22.04.05
הודעות: 1
|
|
איך אני מחלק לדפים את הקוד הבא?
<%
dim conn
set conn=Server.CreateObject("ADODB.connection")
conn.open "dsn=myweb"
dim rs, sql
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from needs order by id & date"
rs.Open sql, conn
Response.Write "<html dir=rtl>"
Response.Write "<body bgcolor=#FFF8DC><div align=center><font face=arial size=2>"
Response.Write "<img src=><BR>"
Response.Write "<font face=arial color=black size=2><img src=menu2.bmp> מודעות דרושים-קניה ומכירה   <img src=pic.bmp height=35><BR>"
Response.Write "<HR>"
do while not rs.EOF
Response.Write "<div align=right>"
Response.Write "<table background=needs.bmp border=0 bordercolor=palevioletred cellpadding=5>"
Response.Write "<tr><td><font size=2 color=black><B>שם/חברה</b></font></td><td><font size=2 color=black>" & rs("name") & "</td></tr>"
Response.Write " <a name=" & rs("text") & ">"
Response.Write "<tr><td ><font size=2 color=black><b>תוכן</b></font></td><td width=470 ><font size=2 color=black>" & rs("text") & "</td></tr>"
Response.Write "<tr><td ><font size=2 color=black><b>פרטים</b></font></td><td ><font size=2 color=black>" & rs("contact") & "</td></tr>"
Response.Write "<tr><td ><font size=2 color=black><B>תאריך</b></font></td><td ><font size=2 color=black>" & rs("date") & "</td></tr>"
Response.Write "</table>"
Response.Write "</div>"
Response.Write "<HR>"
rs.MoveNext
loop
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
_____________________________________
אחסון בשרת windows עם תמיכה ומחירים זולים
שווה
ICQ 274346339
אימייל מסנג'ר idan-43@bezeqint.net
|