<%
	Set rsBase=Server.CreateObject("ADODB.RecordSet")
	rsBase.Open "Select SiteName,BackPlatformName,EnterPriseName,TelPhone,Handset,Email,Fax,Zip,Address,ICP,CopyRight,BackUrl From Config",conn,1,1
	If Not rsBase.Eof Then
		SiteName=rsBase("SiteName")
		BackName=rsBase("BackPlatformName")
		EPName=rsBase("EnterPriseName")
		Tel=rsBase("TelPhone")
		Handset=rsBase("Handset")
		Email=rsBase("Email")
		Fax=rsBase("Fax")
		Zip=rsBase("Zip")
		Addr=rsBase("Address")
		CopyRight=rsBase("CopyRight")
		BackUrl=rsBase("BackUrl")
		ICP=rsBase("ICP")
	End If
	rsBase.Close
	Set rsBase=Nothing
%>