«

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
%>

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"