מבקש עזרה דחופה - בפיתוח פשוט של ASP.א: הגדרתי בסיס נתונים מסוג טקסט כדלהלן:
===========
<%
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; " &_
"Dbq=D:\mysite\; " &_
"Extensions=asc,csv,tab,txt; " &_
"Persist Security Info=False"
oConn.Execute "CREATE TABLE guest.txt" &_
"(" &_
"fName CHAR, " &_
"lName CHAR, " &_
"eMail CHAR, " &_
"age CHAR, " &_
"min CHAR, " &_
"fpats CHAR, " &_
"nots CHAR" &_
")"
oConn.Close
set oConn = Nothing
%>
===========
ב: בסיס הנתונים הוקם בהצלחהף ואף מקבל נתונים בעזרת טופב וקוד ASP מתאימים.
ג: הצלחתי גם לבנות קוד המציג את תוכן בסיס הנתונים -כולו.
ד: אני מנסה לבנות קוד (כדלהלן) שתפקידו לחיפוש רשומה מסויימת. קוד קבלת נתוני החיפוש (HTML) עובד כראוי.
===========
<html dir="rtl">
<head>
</head>
<body text="black" background="PIC/BC.jpg">
<h1><font color="blue"> חיפוש </font></h1>
<form name="detailsForm" action="guestbookSearch.asp" method="get">
חפש לפי שם פרטי:
<input type="text" name="fn" />
<input type="submit" value="חפש" />
</form>
</body>
</html>
===========
ה: קובץ ASP אליו הוא מפנה, "מבצע" את שורות HTML שלו - אך אינו נותן נתונים אמיתיים. כלומר גם אם שם פרטי "משה" מופיע
בבסיס הנתונים - אני תמיד אקבל תשובה שלילית.
===========
<%
set oConn = server.CreateObject("adodb.connection")
oConn.open "Driver={Microsoft Text Driver (*.txt; *.csv)};" &_
"Dbq=D:\mysite\;" &_
"Extensions=asc,csv,tab,txt;" &_
"Persist Security Info=False"
mytxt = "SELECT * From guest.txt "
mytxt = mytxt & "WHERE fName= "
mytxt = mytxt & " ' "
mytxt = mytxt & Request.Form("fn")
mytxt = mytxt & " ' "
set oguestrs = oConn.Execute (mytxt)
Response.Write "<h2><center>תוצאות חיפוש עבור: </ceter></h2>"
Response.Write "<span dir='ltr'>"
Response.Write Request.QueryString("fn")
Response.Write "</span>"
Response.Write "<br /><br /><hr>"
If oguestrs.EOF Then
Response.Write "לא נמצאו נתונים"
Response.Write "<br />"
Else
Response.Write "להלן תוצאות החיפוש"
Response.Write "<br />"
Do Until oguestrs.BOF
Response.Write "<span dir='ltr'>"
Response.Write oguestrs.Fields("fName")
Response.Write " , "
Response.Write oguestrs.Fields("lName")
Response.Write " , "
Response.Write oguestrs.Fields("eMail")
Response.Write " , "
Response.Write oguestrs.Fields("age")
Response.Write " , "
Response.Write oguestrs.Fields("min")
Response.Write " , "
Response.Write oguestrs.Fields("fpats")
Response.Write " , "
Response.Write oguestrs.Fields("nots")
Response.Write "</span>"
Response.Write "<br />"
oguestrs.MoveNext
Loop
End If
oguestrs.Close
set oguestrs = Nothing
oConn.Close
set oConn = Nothing
%>
===========
בתודה מראש
מורדי
[email protected]
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
