balachandar
Programmer
Hi All,
I have the following code. What are the changes that I need to make if I want to display the error description in a message box or or put that message in the toolbar.Please help me to do this.
Expecting your inputs
Thanks and Regards
<%@ Language=VBScript %>
<%
sub dbase()
dim objconn,objrs
dim objerrors,objerror
dim strconnect
strconnect ="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password =password;Initial Catalog=master;Data Source=abc124"
on error resume next
set objconn =server.CreateObject("ADODB.connection"
set objrs =server.CreateObject("ADODB.recordset"
set objerrors =objconn.Errors
objconn.Open strconnect
objrs.Open "select top 5 * from sysolumns" ,objconn
Response.Write " error count is:" & objerrors.count
if objconn.Errors.count >0 then
for each objerror in objerrors
Response.Write "error desciption -------------"
Response.Write objerror.description
Response.Write "<br>"
next
exit sub
end if
while not objrs.EOF
Response.Write objrs.Fields(5)
Response.Write "<p>"
objrs.MoveNext
wend
objrs.Close
objconn.Close
set objrs =nothing
set objconn =nothing
end sub
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%call dbase()%>
<P> </P>
</BODY>
<%
%>
</HTML>
I have the following code. What are the changes that I need to make if I want to display the error description in a message box or or put that message in the toolbar.Please help me to do this.
Expecting your inputs
Thanks and Regards
<%@ Language=VBScript %>
<%
sub dbase()
dim objconn,objrs
dim objerrors,objerror
dim strconnect
strconnect ="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password =password;Initial Catalog=master;Data Source=abc124"
on error resume next
set objconn =server.CreateObject("ADODB.connection"
set objrs =server.CreateObject("ADODB.recordset"
set objerrors =objconn.Errors
objconn.Open strconnect
objrs.Open "select top 5 * from sysolumns" ,objconn
Response.Write " error count is:" & objerrors.count
if objconn.Errors.count >0 then
for each objerror in objerrors
Response.Write "error desciption -------------"
Response.Write objerror.description
Response.Write "<br>"
next
exit sub
end if
while not objrs.EOF
Response.Write objrs.Fields(5)
Response.Write "<p>"
objrs.MoveNext
wend
objrs.Close
objconn.Close
set objrs =nothing
set objconn =nothing
end sub
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%call dbase()%>
<P> </P>
</BODY>
<%
%>
</HTML>