<%
On Error Resume Next
Dim sConnection, objConn , objRS
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=Your_Mysql_DB; UID=mysql_username;PASSWORD=mysql_password; OPTION=3"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(sConnection)
If Err.Number <> 0 Then
Response.Redirect "maintenance.asp"
Response.End
Else
'continue coding here
'...
objConn.close
Set objConn=Nothing
End If
%>
hielo 65 Veteran Poster
hielo 65 Veteran Poster
jreddick82 commented: Great bit of help. Thank you +0
serkan sendur commented: this guy is smart +3
humbug commented: That last bit of info was my problem. Cheers +4