<% Response.Expires = -1 %>
<!-- #include file="datefunc2.inc.asp" -->
<!-- #include file="dealerconfig\adminsetup.asp" -->
<!-- #include file="dealerconfig\usermodules.asp" -->
<!-- #include file="dataconn.inc.asp" -->
<!-- #include file="displayinfo.inc.asp" -->
<!-- #include file="encrypt2.inc.asp" -->

<%

Set oConn = Server.CreateObject("ADODB.Connection")
Call dataconn


	' Get and set time/date settings
	Set rsVis = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT CompanyName, LCID, companyurl as peppolid " & _
		  "FROM companies " & _
		  "WHERE companyid <> '' "
	rsVis.Open sql, oConn, adOpenStatic, adLockReadOnly
	If Not rsVis.EOF Then
		CompanyName = rsVis("CompanyName")
		Upeppolid = rsVis("peppolid")
		strLCID = rsVis("LCID")
		If DefCompanyDesc="" Then
			DefCompanyDesc=CompanyName
		End If
	Else
		CompanyName = ""
		strLCID = 1033  ' Default to English(United States)
	End If
	rsVis.Close
	Set rsVis = Nothing
	


oConn.Close
Set oConn = Nothing

taxdisp = "hidden"
%>
