Facebook
Twitter
RSSצפיות
תשובות
בעיה ב- ASP
חברה ניסיתי לבנות ספר אורחים ב- ASP ויש לינ כנראה בעיה עם קובץ ה- ASP עצמו… הנה דף ה- ASP:
<html dir="rtl">
<head>
<title>ספר האורחים</title>
</head>
<body>
<%
Dim conn, rs, SQLstr
Set conn = server.createobject("ADODB.connection")
Set rs = server.createobject("ADODB.recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;
Data source =" & Server.MapPath("book.mdb")
SQLstr="INSERT Into book (name,mail,color,msn) VALUES ('"
SQLstr = SQLstr & Request("name") & "','"
SQLstr = SQLstr & Request("mail") & "','"
SQLstr = SQLstr & Request("color") & "','"
SQLstr = SQLstr & Request("msn") & "','"
SQLstr="SELECT * FROM book"
rs.open SQLstr,conn
%>
<table border="8" width="100%" cellpadding="3" cellspacing="1" style="font-size:15px;">
<tr>
<td bgcolor=#0066FF text=res width="15%" class="bgcolor2"><font face=arial><center><b>שמי</b></td>
<td bgcolor=#0066FF text=res width="25%" class="bgcolor2"><font face=arial><center><b>המייל שלי</b></td>
<td bgcolor=#0066FF text=res width="60%" class="bgcolor2"><font face=arial><center><b>הודעת
המשתמש</b></td>
</tr>
<%
while not rs.eof
%>
<tr>
<td bgcolor=#3399FF text=yellow width="15%%" class="bgcolor1"><font face=arial><b><center><%=rs("name")%></b></td>
<td bgcolor=#3399FF text=yellow width="25%%" class="bgcolor1"><font face=arial><b><center><font color=<%=rs("color")%>><%=rs("mail")%></font></b></td>
<td bgcolor=#3399FF text=yellow width="60%%" class="bgcolor1"><font face=arial><b><center><%=rs("msn")%></b></td>
</tr>
<%
rs.movenext
Loop
conn.Close
Set conn = Nothing
%>
</table>
</body>
</html>
והנה לינק: http://free.aspkit.com/Snir/book/shliha.htm
בבקשה תעזורו לי, תודה מראש….
9 תשובות
ככה
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source =" & Server.MapPath("book.mdb")
פעם הבאה פשוט קרא את השגיאה שנוצרת
עדיין לא עובד ):
אני לא יכוןל לראות הודעות שגיאה משום מה….. :
ותיקנתי את זה וזה עדיין לא עובד.
שתי דברים
1. אם אתה שם ASP בדף ,אז תשמור אותו בסיומת ASP .
2.הייתה לך שגיאה בהכנסה למסד ,לא סגרת אותו.
הנה הקוד המתוקן:
<html dir="rtl">
<head>
<title>ספר האורחים</title>
</head>
<body>
<%
Dim conn, rs, SQLstr
Set conn = server.createobject("ADODB.connection")
Set rs = server.createobject("ADODB.recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;
Data source =" & Server.MapPath("book.mdb")
SQLstr="INSERT Into book (name,mail,color,msn) VALUES ('"
SQLstr = SQLstr & Request("name") & "','"
SQLstr = SQLstr & Request("mail") & "','"
SQLstr = SQLstr & Request("color") & "','"
SQLstr= SQLstr & Request("msn") & "')"
SQLstr="SELECT * FROM book"
rs.open SQLstr,conn
%>
<table border="8" width="100%" cellpadding="3" cellspacing="1" style="font-size:15px;">
<tr>
<td bgcolor=#0066FF text=res width="15%" class="bgcolor2"><font face=arial><center><b>שמי</b></td>
<td bgcolor=#0066FF text=res width="25%" class="bgcolor2"><font face=arial><center><b>המייל שלי</b></td>
<td bgcolor=#0066FF text=res width="60%" class="bgcolor2"><font face=arial><center><b>הודעת
המשתמש</b></td>
</tr>
<%
while not rs.eof
%>
<tr>
<td bgcolor=#3399FF text=yellow width="15%%" class="bgcolor1"><font face=arial><b><center><%=rs("name")%></b></td>
<td bgcolor=#3399FF text=yellow width="25%%" class="bgcolor1"><font face=arial><b><center><font color=<%=rs("color")%>><%=rs("mail")%></font></b></td>
<td bgcolor=#3399FF text=yellow width="60%%" class="bgcolor1"><font face=arial><b><center><%=rs("msn")%></b></td>
</tr>
<%
rs.movenext
Loop
conn.Close
Set conn = Nothing
%>
</table>
</body>
</html>
עדיין יש בעיה…
הנה הקוד ASP לאחר שתי התיקונים:
<html dir="rtl">
<head>
<title>ספר האורחים</title>
</head>
<body>
<%
Dim conn, rs, SQLstr
Set conn = server.createobject("ADODB.connection")
Set rs = server.createobject("ADODB.recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;
Data source =" & Server.MapPath("book.mdb")
SQLstr="INSERT Into book (name,mail,color,msn) VALUES ('"
SQLstr = SQLstr & Request("name") & "','"
SQLstr = SQLstr & Request("mail") & "','"
SQLstr = SQLstr & Request("color") & "','"
SQLstr = SQLstr & Request("msn") & "')"
SQLstr="SELECT * FROM book"
rs.open SQLstr,conn
%>
<table border="8" width="100%" cellpadding="3" cellspacing="1" style="font-size:15px;">
<tr>
<td bgcolor=#0066FF text=res width="15%" class="bgcolor2"><font face=arial><center><b>שמי</b></td>
<td bgcolor=#0066FF text=res width="25%" class="bgcolor2"><font face=arial><center><b>המייל שלי</b></td>
<td bgcolor=#0066FF text=res width="60%" class="bgcolor2"><font face=arial><center><b>הודעת
המשתמש</b></td>
</tr>
<%
while not rs.eof
%>
<tr>
<td bgcolor=#3399FF text=yellow width="15%%" class="bgcolor1"><font face=arial><b><center><%=rs("name")%></b></td>
<td bgcolor=#3399FF text=yellow width="25%%" class="bgcolor1"><font face=arial><b><center><font color=<%=rs("color")%>><%=rs("mail")%></font></b></td>
<td bgcolor=#3399FF text=yellow width="60%%" class="bgcolor1"><font face=arial><b><center><%=rs("msn")%></b></td>
</tr>
<%
rs.movenext
Loop
conn.Close
Set conn = Nothing
%>
</table>
</body>
</html>
נ.ב
כשאני נכנס לדף השגוי זה לא מראה לי שגיאת ASP… אם זה מראה לכם שגיאת ASP תכתבו לי אותה פה… תודה מראש…
אתה לא יכול רדת שורה באמצע משפט
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data source =" & Server.MapPath("book.mdb")
או
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;" &_
Data source =" &Server.MapPath("book.mdb")
תיקנתי… ועדיין לא עובד ):
בעיה ב- ASP – שליפת נתונים
בעעע זה קוד מה זה בסיסי אבל יותר משנה לא תיכנתתי ושחכתי הרבה… הקיצר מה לאזעזל לא טוב פה:
<%
Dim conn, rs, SQLstr
Set conn = Server.CreateObject("ADODB.connection")
Set rs = Server.CreateObject("ADODB.recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("fic.mdb")
SQLstr="SELECT * FROM fic"
rs.Open SQLstr, conn
do while not rs.eof
%>
<%rs("perek")%>
<%
rs.movenext
Loop
rs.close
Set rs = Nothing
%>
בקשר לבעיה הראשונה
היה השורה שכתבתי את ה- while ביל ה- do לפני
אבל עדיין יש לי בעיה בהכנסת הנתונים לתוך המסד…. זה לא מצליח להכניס נתונים לתוך המסד.
איפה השאלה כאן?