end function
Class clsDatabase
Public GetConnectionString
'Private Sub Class_Initialize
' End Sub
' Private Sub Class_Terminate
' End Sub
Public Function Execute(strSQL,strErrorMessages)
Response.Write("test---"&oRS&"---test")
Response.End
Dim oRS
'on error resume next
strErrorMessages=""
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.CursorLocation = 3
'Response.Write strSQL
oRS.Open strSQL, CStr(GetConnectionString) ,3,3
if err.number <> 0 then
strErrorMessages = strErrorMessages & " Error occured. " & err.description & ""
err.clear
end if
oRS.ActiveConnection = Nothing
Set Execute = oRS
Set oRS = Nothing

Rispondi quotando
