<!-- #include file="./include_top.txt" -->
<%
option Explicit
%>
<% Response.Buffer = True %>
<!-- #include file="./include_dim.txt" -->
<!-- #include file="./include_static.txt" -->
<!-- #include file="./include_variable.txt" -->
<%
'################################################
'	名称	：共通変数・関数の定義
'	作成日	：2008/9/22
'	作成者	：小野
'################################################
%>
<%

	Response.AddHeader "Content-Type", "text/html; charset=Shift_JIS"	'文字化け対策
	Response.AddHeader "X-UA-Compatible", "IE=5"

	Session.Timeout = 1440
	Server.ScriptTimeout = 1200

	Dim SQLConn
	SQLConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=" & DBPass & ";Initial Catalog=" & DBName & ";Data Source=" & SQLServer

	Dim db, Content


'FESアクセスログにクエリを送る
Function OpenQuery(F_Query)
	Dim ALdb
	Set ALdb = Server.CreateObject("ADODB.Connection")
	ALdb.ConnectionTimeout = 60
	ALdb.CommandTimeout    = 60
	ALdb.Open SQLConn
	Set Content = ALdb.Execute(F_Query)
	Do While Not Content Is Nothing
		If Content.Fields.Count > 0 Then
			Exit Do
		End If
		Set Content = Content.NextRecordSet()
	Loop
	Set OpenQuery = Content
End Function

%>