no connect - redirect

[shank]

How do I edit this so that if there's no connect, there's a redirect?
thanks

<%
'REMOTE CONNECT STRING
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "sqloledb"
conn.Properties("Data Source").Value = "sql38.com"
conn.Properties("Network Library").Value = "dbmssocn"
conn.Properties("Initial Catalog").Value = "mydb"
conn.Properties("User ID").Value = "username"
conn.Properties("Password").Value = "password"
conn.open
%>

[Bob Barrows [MVP]]

shank wrote:

How do I edit this so that if there's no connect, there's a redirect?
thanks

<%
'REMOTE CONNECT STRING
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "sqloledb"
conn.Properties("Data Source").Value = "sql38.com"
conn.Properties("Network Library").Value = "dbmssocn"
conn.Properties("Initial Catalog").Value = "mydb"
conn.Properties("User ID").Value = "username"
conn.Properties("Password").Value = "password" on error resume next conn.open if err<>0 then response.redirect ... %>

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"