May 10th, 2000, 04:38 PM
|
|
Contributing User
|
|
Join Date: Dec 2002
Posts: 14,575
Time spent in forums: < 1 sec
Reputation Power: 22
|
|
|
<i><b>Originally posted by : teve</b></i><br /><br /><% @language="vbscript"%><br /><%<br />Response.Buffer="true"<br />'on error resume next<br />dim strconn<br />dim conn<br />dim rs<br />strNum = request("recnum")<br />strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/asp/norec/norec.mdb") <br /><br />set conn = server.createobject("adodb.connection")<br />conn.open strconn<br />If strNum = 1 Then<br />strsql = "select * from table1"<br />Else <br />strsql = "select * from table1 where table1.field1='John'"<br />End If<br /><br />set rs = server.createobject("adodb.recordset")<br />rs.open strsql, conn<br />%><br /><html><br /><head><br /><title></title><br /></head><br /><body><br /><br /><% If strnum=1 then %><br /><h1>This shows records display</h1><br /><TABLE BORDER="1" width="80%"><br /><br /><TR> <br /><br /><% For Each Field In RS.Fields %><br /><br /><TH> <br /><br /><% If Field.Name <> "ID" Then<br /><br />response.write Field.name<br /><br />End If %> <br /><br /></TH> <br /><br /><% Next %> <br /><br /></TR><br /><% Do While Not RS.EOF %> <br /><br /><TR> <br /><br /><% For Each Field In RS.Fields %> <br /><br /><TD ALIGN=center> <br /><br /><%If IsNull(Field) Then <br /><br />Response.Write "" <br /><br />Else <br /><br />Response.Write Field.Value <br /><br />End If %> <br /><br /></TD><br /><br /><% Next <br /><br />RS.MoveNext %> <br /><br /></TR> <br /><br /><% Loop %> <br /><br /></TABLE> <br /><% Else %><br /><br /><h1>No records Found!</h1><br /><% End If %><br /><% <br />Rs.Close<br />Set Rs = Nothing<br />conn.close<br />set conn = nothing <br />%> <br /></body><br /></html><br /><br /> <br /><br /><br /><br /><br />------------<br />George at 5/10/2000 11:07:39 AM<br /><br /><br />I'm attempting to generate a recordset object thru an SQL statement. It works fine except when no matching record found I get an error because of the following statement:<br /><br />objRStemp.Close<br /><br />If no matching record is found then an instance of this object is never created resulting in the error. What is the syntax to check if the object exists? Thanks.
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
