กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
222 2
URL.หัวข้อ /
URL
เรียนถาม อ.สุภาพ เรื่อง ASP ค่ะ
ไม่รู้ว่า code ผิดที่ไหน เวลาเปิดหน้า company.asp?ชื่อบริษัท มันจะขึ้นเป็นหน้าเปล่าคะ เหมือนกับหาไม่เจอ ทั้งที่ใน Database tblcompany มีชื่อบริษัทแล้วคะ ขอความกรุณา อ.สุภาพช่วยดูให้หน่อยนะคะ
ขอบคุณมากคะ
code:มีดังนี้ค่ะ
<%
Set conn=Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\jobdoo\db\jobdoo.mdb"
Sql="Select * From tblcompany where comname='" & Request.QueryString("comname") & "' Order by comid DESC" ' ถ้าไม่ใส่ '..' คร่อม category จะเกิด error
Set rs=Conn.Execute(Sql)
Do While Not rs.Eof
With Response
.Write " " & rs("comname") & " "
End With
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
ขอบคุณมากคะ
code:มีดังนี้ค่ะ
<%
Set conn=Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\jobdoo\db\jobdoo.mdb"
Sql="Select * From tblcompany where comname='" & Request.QueryString("comname") & "' Order by comid DESC" ' ถ้าไม่ใส่ '..' คร่อม category จะเกิด error
Set rs=Conn.Execute(Sql)
Do While Not rs.Eof
With Response
.Write " " & rs("comname") & " "
End With
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03510
แสดงว่า SQL ไม่มีข้อมูลส่งกลับเลย
ให้ลอง Debug โดยการแสดง SQL ที่ได้ ว่าถูกต้องหรือไม่
...
Set rs=Conn.Execute(Sql)
Response.Write Sql
...
ผมว่าต้องเปลี่ยน
company.asp?ชื่อบริษัท
ให้เป็น
company.asp?comname=ชื่อบริษัท
ให้ลอง Debug โดยการแสดง SQL ที่ได้ ว่าถูกต้องหรือไม่
...
Set rs=Conn.Execute(Sql)
Response.Write Sql
...
ผมว่าต้องเปลี่ยน
company.asp?ชื่อบริษัท
ให้เป็น
company.asp?comname=ชื่อบริษัท
Time: 0.0511s
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\jobdoo\db\jobdoo.mdb"
Sql="Select * From tblcompany where comname='" & Request.QueryString("comname") & "' Order by comid DESC" ' ถ้าไม่ใส่ '..' คร่อม category จะเกิด error
Set rs=Conn.Execute(Sql)
Do While Not rs.Eof
With Response
.Write " " & rs("comname") & " "
End With
rs.MoveNext
Loop
rs.Close
Set rs=Nothing