P
Pingwin via AccessMonster.com
How to display only rows where "ArtNumber" is bigger then "0".
Here is the coding...
<%
Dim cn
Dim rs
Dim cnStr
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath
("myArticles.mdb") & ";"
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = cnStr
cn.Open
Set rs = cn.Execute("SELECT * FROM tblArticles ORDER BY ArtNumber")
Do While Not rs.EOF
Response.Write("<tr>")
Response.Write("<td>" & rs.Fields("ArtNumber") & "</td>")
Response.Write("<td>" & rs.Fields("Title") & "</td>")
Response.Write("<td>" & rs.Fields("Article") & "</td>")
Response.Write("</tr>")
rs.MoveNext
Loop
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
If anyone could help....I would greatly appreciate it.
Here is the coding...
<%
Dim cn
Dim rs
Dim cnStr
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath
("myArticles.mdb") & ";"
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString = cnStr
cn.Open
Set rs = cn.Execute("SELECT * FROM tblArticles ORDER BY ArtNumber")
Do While Not rs.EOF
Response.Write("<tr>")
Response.Write("<td>" & rs.Fields("ArtNumber") & "</td>")
Response.Write("<td>" & rs.Fields("Title") & "</td>")
Response.Write("<td>" & rs.Fields("Article") & "</td>")
Response.Write("</tr>")
rs.MoveNext
Loop
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
If anyone could help....I would greatly appreciate it.