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

arman174

پنج شنبه 11 بهمن 1386, 22:49 عصر

سلام
کدهای زیر را می خواهم در خطوط زیر هم با استفاده از تگ <p>و یا در جدول قرار بدهم ولی هر بار که انجام می دهم به مشکل بر می خورم و صفحه نمایش داده نمی شود. ولی بدون این تگ درست عمل می کند. من نیاز دارم که خطوط در زیر هم نمایش داده شوند.
با تشکر:خجالت:
<%@ codepage="65001" %>
<% Response.CharSet="UTF-8"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Sohail2D Forum</title>
</head>
<body style="font-family:tahoma;font-size:12;text-align=right">
<form action="search.asp" method=get>
<table border=1 align=right>
<tr>
<td><input type=submit value="جستجو"></td><td><input type="text" name="keytext"></td><td>نام سایت را وارد کنید</td>
</tr>
</table>
</form>
<div align="justify" id="a" dir="rtl">
<p> </p>
<p><br>
<br>
<%
if Request.QueryString.Count>0 and Request.QueryString("keytext")<>"" then
dim strcon,con,rec
strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Inetpub\wwwroot\search\db\data.mdb"
set con=Server.CreateObject("adodb.connection")
set rec=Server.CreateObject("adodb.recordset")
con.ConnectionString=strcon
con.Open
rec.Open "select * from tlink",con,0,3
rec.MoveFirst
if rec.EOF=true then
Response.Write("دیتابیس خالی است")
else
stkey="name like '*"+Request.QueryString("keytext")+"*'"
rec.Find stkey
if rec.eof=false then
Response.Write("<b>name=</b>"+rec.Fields("name").Value)
Response.Write(" <b>URL=</b>"+rec.Fields("url").Value)
else
Response.Write("رکورد مورد نظر یافت نشد")
end if
end if

con.Close
set con=nothing
set rec=nothing
End if
Session.Abandon
%>
</p>
</div>
</body>
</html>

sarasara

یک شنبه 14 بهمن 1386, 13:16 عصر

آیا واقعا rec.Fields("name").Value وrec.Fields("url").Value معتبرند؟
توی Internet Option، تیک مربوط به گزینه Show Friendly Error Message رو بردارید تا درصورتی که روی این خطوط خطایی رخ می ده نشون داده بشه.

درضمن برای وارد کردن کد از امکان [CODE] استفاده کنید تا کدهاتون خوانا بشه.

sosp30

دوشنبه 31 تیر 1387, 04:53 صبح

مشکل شما در اینه که باید به جای + & رو به کار ببری
عبارت صحیح:
Response.Write("<b>name=</b>"&rec.Fields("name").Value)
Response.Write(" <b>URL=</b>"&rec.Fields("url").Value)
:لبخند: