SqlExec Statement

Submitted by:Jhon Jhon

Date added:05 May, 2012


ASP code example with Sql Statement

Tags: sql statement

Code Snippet:

Private Sub SqlExec(ByVal ConnString, ByVal SQL)
Dim objCn, bErr1, bErr2, strErrDesc
On Error Resume Next
Set objCn = Server.CreateObject("ADODB.Connection")
objCn.Open ConnString
If Err Then
bErr1 = True
objCn.Execute SQL
If Err Then
bErr2 = True
strErrDesc = Err.description
End If
End If
Set objCn = Nothing
On Error GoTo 0
If bErr1 Then
Err.Raise 5109, "SqlExec Statement", "Bad connection " & _
"string. Database cannot be accessed."
ElseIf bErr2 Then
Err.Raise 5109, "SqlExec Statement", strErrDesc
End If
End Sub