[ASP] No records found page maken - Softwareontwikkeling

zaterdag 30 maart 2002 21:22

Acties:

Verwijderd

Topicstarter

Hallo allemaal,

Ik ben al voor 2 projecten van mij op zoek naar een manier om een "no records found" page te laten zien als er geen records in mijn access database zijn gevonden.
Ik zou niet goed weten hoe ik dit in code schrijf en of ik er een aparte html-page voor moet maken ofsow.
voor de volledigheid even mijn stuk code erbij:

code:

<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>People</TITLE>
</HEAD>
<BODY background=Pics/backhome.gif>
<%
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Data Source=" & Server.Mappath("Party.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
%>
<%

    Dim radio
    radio= Request.querystring("radio")
    
    Dim sql
    sql = "SELECT * FROM [plaatsen] WHERE [Provincie] LIKE '%" & radio & "%'"

   Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
%>

<TABLE BORDER=0 CELLSPACING=0>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
 %>

<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ><FONT style=FONT-SIZE:9pt FACE="Tahoma" COLOR=#000000><a href=joints.asp?plaats=<%=Server.HTMLEncode(rs.Fields("Plaats").Value)%>><%=Server.HTMLEncode(rs.Fields("Plaats").Value)%></a><BR></FONT></TD>
</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>

Sorry dat het vrij lang is, maar dan is het maar meteen volledig.
Kan iemand mij helpen ? De search was niet duidelijk hierover, en tutorials op het web gaan hier ook niet over

zaterdag 30 maart 2002 21:34

Acties:

Phenomenon

Zoz

iets in de trend van:

code:

<% if rst.eof then %>
  Er zijn geen records in de databeest
<% else %>
Bla bla
<% End If %>

zondag 31 maart 2002 13:06

Acties:

Janoz

Moderator Devschuur®

!litemod

zie boven.. basis programmeer constructies....

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'