צפיות
תשובות
בעיה בasp
הכנתי פורום וחילקתי אותו לדפים כמו שכתוב פה במאמר
וזה כותב לי את השגיאה הבאה:
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/maccabi123456/forumme.asp, line 58
הנה הקוד של הפורום:
<%@ Language=VBScript codepage=1255%>
<!– #include file="Samples_DSN.asp" –>
<HTML>
<HEAD>
<STYLE>
a:link {color:#1CA8C4;text-decoration:none}
a {color:#1CA8C4}
a:hover{color:blue}
a:visited {text-decoration:none}
</style>
</HEAD>
<body bgcolor="yellow">
<center>
<a href="osef.asp"><img src="Odaa.jpg" height=38 width=88 border=0><br>
<table align=center>
<tr>
<td align=right>
<table width=550 border=2 bordercolor='black'>
<tr bgcolor='white' align=right><td width=100 height=10><font color='blue'>:מחבר</font></td><td width=100 height=10><font color='blue'>:תאריך</font></td><td width=350 height=10><font color='blue'>:הודעה</font></td></tr>
<%
Dim currPage,i,pCount, numRecs
numRecs = 20
currPage=1
If Not request("currPage") = "" Then
currPage= Request("currPage")
End If
set rs=server.createobject("adodb.recordset")
sql="select * from av where av_id>0 order by the_date DESC"
rs.open sql,samples_dsn
do until rs.eof
av_id=rs("av_id")
nose=rs("nose")
text=rs("male")
shem_id=rs("shem")
date1=rs("the_date")
response.write"<tr align=right><td width=50 height=30><font color=#1CA8C4 size=1>" & shem_id & "</font></td>"
response.write"<td width=100 height=30><font color=#1CA8C4 size=1>" & date1 & "</font></td>"
response.write"<td width=350 height=30><font color='black'><a href=forum1.asp?id="&av_id&">" & nose & "</font></tr></td>"
rs.PageSize = numRecs
rs.CacheSize = numRecs
if Not rs.EOF Then
pCount=rs.pageCount
rs.AbsolutePage=CurrPage
End If
Do While Not rs.EOF AND i < rs.pagesize
' Data manipulation
i=i+1
rs.MoveNext
Loop
rs.Close
for i = 1 to pCount
if Cint(i) = Cint(currPage) then
Response.Write " <b>"& i &"</b> "
Else
Response.Write " <a href=""thePage.asp?currPage="&i&""">"& i &"</a> "
End If
next
%>
</td>
</table>
</td></tr></table>
</center>
</body>
</html>
אם מישהו יודע מה אני צריך לעשות כדי שיעבוד בבקשה שיעזור לי
1 תשובות
ודאי
אנא ציין רק את הקוד הרלוונטי, יישר אותו לשמאל, ותאמר על איזו שורה בדיוק התקלה.