>
> --- cut ---
> Set RS=Server.CreateObject("ADODB.Recordset")
> RS.Open strSQL, Application("strConn")
> --- cut ---
Set RS=Server.CreateObject("ADODB.Recordset")
On Error Resume Next
Err.Clear
RS.Open strSQL, Application("strConn")
If Err.Number then
RS.Open strSQL, Application("strBackupConn")
End if
On Error Goto 0
Gru�,
Markus
_______________________________________________
Database.asp mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/database.asp
