<%
Set Cn = Server.CreateObject("ADODB.Connection")
'On Error Resume Next
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\qq_248800565") & "\#www_bb58a2bf95dcd9f2_com#.mdb"
If Err.Number > 0 Then
	Response.End
End If

%>