27 lines
711 B
Plaintext
27 lines
711 B
Plaintext
|
<%
|
||
|
|
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
|
||
|
|
Else
|
||
|
|
objCn.Execute SQL
|
||
|
|
If Err Then
|
||
|
|
bErr2 = True
|
||
|
|
strErrDesc = Err.description
|
||
|
|
End If
|
||
|
|
End If
|
||
|
|
objCn.Close
|
||
|
|
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
|
||
|
|
%>
|