Microsoft VBScript runtime error '800a01a8'

[g_sharad]

I guess this is a very old problem, but this keeps bugging many ppl in
many ways.

I am facing the problem with the SQL query >>>>
Insert Into DailySalesReport (hoautoid, dsdate, dsreport, dsclientid,
dsprincipleid, dsremarks, dsadminlock ) Values
(5,'2/16/2005','sacc',1,1,'cdssd','not')

This query runs fine on query analyser, but when I try to put in asp
page and then it gives the runtime error as >>

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/data/dsreport.asp, line 52
Line # 52 is >>
Set oRs4 = oConn.Execute(qry)

The whole set of code is :
<%
IF Request("action") = "1" Then

'muname = request("T1")
'mfname = request("T2")
'mbranch = Request("T3")
mhoautoid = Session("Ssrid")
mdate = date()
mvreport = Request("T5")
mclient = Request("T6")
mprinciple = Request("T7")
mremark = Request("T8")
malock = "not"

'Removed the date input from the page
'mdate = Trim(Request("T4"))
'<tr>
'<td width="130">Date</td>
'<td width="391"><input type="date" name="T4" size="10"></td>
'<td>Date of Entering the Record in mm/dd/yy</td>
'</tr>
'Set oRs4 = Server.CreateObject("ADODB.Recordset")
'Dim msql
qry = "Insert Into DailySalesReport "
qry = qry & " (hoautoid, dsdate, dsreport, dsclientid, dsprincipleid,
dsremarks, dsadminlock ) Values ("
qry = qry & mhoautoid & ",'" & mdate & "','" & mvreport & "'," &
mclient & "," & mprinciple & ",'" & mremark & "','" & malock & "')"
response.write qry
'response.end
'oRs4.Open msql
Set oRs4 = oConn.Execute(qry)
response.write "One Record added to the database"
oRs4.close
end if
%>

So pls help ASAP... thanks in advance

sg

[Tom van Stiphout]

On 15 Feb 2005 23:40:14 -0800, g_******@yahoo.com wrote:

oConn is not set.
Action queries like INSERT do not return a recordset.

-Tom.

I guess this is a very old problem, but this keeps bugging many ppl in
many ways.

I am facing the problem with the SQL query >>>>
Insert Into DailySalesReport (hoautoid, dsdate, dsreport, dsclientid,
dsprincipleid, dsremarks, dsadminlock ) Values
(5,'2/16/2005','sacc',1,1,'cdssd','not')

This query runs fine on query analyser, but when I try to put in asp
page and then it gives the runtime error as >>

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/data/dsreport.asp, line 52
Line # 52 is >>
Set oRs4 = oConn.Execute(qry)

The whole set of code is :
<%
IF Request("action") = "1" Then

'muname = request("T1")
'mfname = request("T2")
'mbranch = Request("T3")
mhoautoid = Session("Ssrid")
mdate = date()
mvreport = Request("T5")
mclient = Request("T6")
mprinciple = Request("T7")
mremark = Request("T8")
malock = "not"

'Removed the date input from the page
'mdate = Trim(Request("T4"))
'<tr>
'<td width="130">Date</td>
'<td width="391"><input type="date" name="T4" size="10"></td>
'<td>Date of Entering the Record in mm/dd/yy</td>
'</tr>
'Set oRs4 = Server.CreateObject("ADODB.Recordset")
'Dim msql
qry = "Insert Into DailySalesReport "
qry = qry & " (hoautoid, dsdate, dsreport, dsclientid, dsprincipleid,
dsremarks, dsadminlock ) Values ("
qry = qry & mhoautoid & ",'" & mdate & "','" & mvreport & "'," &
mclient & "," & mprinciple & ",'" & mremark & "','" & malock & "')"
response.write qry
'response.end
'oRs4.Open msql
Set oRs4 = oConn.Execute(qry)
response.write "One Record added to the database"
oRs4.close
end if
%>

So pls help ASAP... thanks in advance

sg