إخواني الكرام
هذه تجربتي الاولى مع ASP واستطعت الاتصال بقاعدة البيانات وجلب البيانات ولكنني ارغب في إضافة بعض اللمسات على المخرجات
مثلا : لدي بيانات يتم استيرادها من قاعدة البيانات الى داخل جدول وتم ذلك بنجاح ولكنني ارغب في تغيير لون خلفية خلية الجدول في كل مرة يعمل فيها سطر جديد .
لقد قمت باختيار لونيين ووضعهما في متغيير s ولكن عند تمرير المتغيير في وشوم الاتش تي ام ال يعطني خطأ فكيف يمكن عمل ذلك .
الكود كالتالي :
<%@ language= vbscript codepage="1256" %>
<html dir="rtl">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>هلا والله جسوم</title>
</head>
<body>
تجربة للعمل على Asp
<%
'Add the connection File
dim conn
dim ado
conn ="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("\MyTry\DataBase\Data.mdb")
set ado=Server.CreateObject("ADODB.Connection")
ado.ConnectionString = conn
ado.Open
%>
<br>
<p><hr></p>
<table border="1" width="100%" id="table1">
<tr>
<td bgcolor="#CCFF66"><span lang="ar-om">الرقم</span></td>
<td><span lang="ar-om">الاسم</span></td>
<td><span lang="ar-om">التاريخ</span></td>
</tr>
<%
dim SQL
SQL = "select * from M_Data ORDER BY ID"
set Rs=ADo.execute(SQL)
dim s
s= "#FF66FF"
do while not rs.eof
' to Change the Color Type
if s ="#FF66FF" then
s= "#CCFF66"
else
s ="#FF66FF"
end if
%>
<tr>
<%
' كيف أمرر قيمة s
' في هذا كود اللون علما بانه يقبل اللون عادي ولكنه لا يقراءها هنا
%>
<td bgcolor = <% s %> >
<% response.write rs("ID") %> </td>
<td><% response.write rs("M_Name") %></td>
<td><% response.write rs("M_Date") %></td>
</tr>
<%
rs.movenext
Loop
ado.close
%>
</table>
</body>
</html>