<%
'*****************************************************
'* My Questions
'* Copyright WozzaWorks 2005 - present
'* Execute SQL Function
'*****************************************************
'*****************************************************
'* Function DBExecute()
'* Parameter: sSQL - SQL string
'* Execute a sql statement
'*****************************************************
Function DBExecute(sSQL)
dim rsTemp
'Response.Write "SQL=(" & sSQL & ")
"
On error resume next 'catch SQL errors later
Set rsTemp = oDBConn.Execute(sSQL)
On error goto 0
' now check for SQL/DB errors
If oDBConn.Errors.Count <> 0 Then
'response.write oDBConn.Errors.Count
'Call MQ_HandlError(oDBConn,sSQL)
End If
If IsObject(rsTemp) Then
Set DBExecute = rsTemp
Else
Set DBExecute = Nothing
End If
End Function
Function DBExecuteStatic(sSQL)
dim rsTemp
' Response.Write "SQL=(" & sSQL & ")
"
On error resume next 'catch SQL errors later
rsTemp.CursorType = 3
Set rsTemp = oDBConn.Execute(sSQL)
On error goto 0
' now check for SQL/DB errors
If oDBConn.Errors.Count <> 0 Then
Call MQ_HandlError(oDBConn,sSQL)
End If
If IsObject(rsTemp) Then
Set DBExecuteStatic = rsTemp
Else
Set DBExecuteStatic = Nothing
End If
End Function
%>