אולי זה ייצא הפוך אבל תעתיק לכתבן אתה רתאה את זה מסודר אני לא יודע לעשות תיבת קוד כזאות ...
טוב קצת הסבר מה שהולך פה ....
זה מתחבר למסד נתונים באקסס:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ROTTER.mdb")במקרה הזה זה יתתחבר ל
ROTTER.mdb
אתה צריך לשנות את זה לשם של הקובץ שלך ...
ואממ אחר כך הוא סורק את הטבלה ואם הוא לא נתקל בטקסט אז הוא יראה לך הודעה אין לקוחות אחרת הוא יכתוב לך "שם הלקוח"
ומתחתיו הוא ירשום את כול השמות של הלקוחות....
ניסיתי לעשות לך גם שזה יהיה קישור לפרטים של כול אחד אבל יתכן שאתה תצתרך להכין לכול אחד דף .....
יכול להיות שמישהו יודע לשפר את זה פה הפקודה היא גם מציגה את של הלקוח וגם עושה אותו קשיור לדף נגיד שם הלקוחו הוא רוטר אז הדף שלו יהיה
רוטר נקודה היצ'טימל
<a href="<%=rs("name")%>.html"><%=rs("name")%></a>
אהה וחשוב שתשנה אצל בטבלאות כך ששם הטבלה של השמות של הלקוחות ייקרא
name
וזהו אני חושב .....זה רץ על
ASP
<%@language="VBSCRIPT" CODEPAGE="1255"%>
<html>
<head>
<title>רשימת הלקוחות</title>
</head>
<body dir="rtl">
<basefont face="Arial" size="2">
<h3 dir="rtl" align="center">רשימת הלקוחות</h3>
<br>
<%
Dim Conn, rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ROTTER.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from List order by ID"
rs.Open SQL, Conn
If rs.EOF Then
%>
<h3 align="center">
אין לקוחות !
</h3>
<%
Else
%>
<table dir="rtl" width="70%" align="center">
<tr>
<td width="5%">
<b> </b>
</td>
<td width="20%">
<b>שם הלקוח</b>
</td>
</tr>
<%
Do while not rs.EOF
%>
<tr>
<td width="5%">
<%=rs("id")%>
</td>
<td width="5%">
<a href="<%=rs("name")%>.html"><%=rs("name")%></a>
</td>
<%
rs.MoveNext
Loop
%>
</table>
<%
End If
'Conn.Close
'Set Conn = Nothing
'rs.Close
'Set rs = Nothing
%>
</basefont>
</body>
</html>
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
אתה בונה טופס ומציג בו את הלקוחות
קטע הקוד יראה ככה: