<%
on error resume next


db="../../happy/database/lh100com.mdb"
Set dsnstrhappy=Server.CreateObject("ADODB.Connection")
dsnstrhappy1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
dsnstrhappy.Open dsnstrhappy1
set rs=server.CreateObject("adodb.recordset")



If Err.Number <> 0 Then
		dsnstrhappy.close
		set dsnstrhappy=nothing
		On Error GoTo 0
        	Response.redirect "/err.asp"
		response.End()
end if
On Error GoTo 0
%>