<% = HtmlFooter %>
<%
End Sub
Function OpenQuery(F_Query)
Set db = Server.CreateObject("ADODB.Connection")
db.ConnectionTimeout =60
db.CommandTimeout = 60
Dim SQLConn
SQLConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sj3user;Password=sj3;Initial Catalog=" & DBName & ";Data Source=ranran"
db.Open SQLConn
Set OpenQuery = ExecQuery(db, F_Query)
End Function
Function ExecQuery(db1, F_Query)
Set Content = db1.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 ExecQuery= Content
End Function
%>