%
ConnectionString = "Provider=SQLOLEDB;Data Source=sql60.enterhost.com;Initial Catalog=BA321;user ID=BA321;password=walkerhilladm90 ;"
Set GetDBConn = Server.CreateObject("ADODB.Connection")
GetDBConn.Open(ConnectionString)
y=request("y") 'ÇØ´ç³â¼ö °¡Á®¿À±â
m=request("m") 'ÇØ´ç³â¼ö °¡Á®¿À±â
%>
<%=request("y")%>³â<%=request("m")%>¿ù ¿äÀÏ ¹æ¹®Åë°è
¿äÀÏ
µ¥ÀÌÅÍ
<%
For i= 0 To 6
%>
<% If i Mod 2 =0 Then %> <% Else %> <% End If %>
<% If i=0 Then %>
<%=y%>³â<%=m%>¿ù/ÀÏ¿äÀÏ
<% ElseIf i=1 Then %>
<%=y%>³â<%=m%>¿ù/¿ù¿äÀÏ
<% ElseIf i=2 Then %>
<%=y%>³â<%=m%>¿ù/È¿äÀÏ
<% ElseIf i=3 Then %>
<%=y%>³â<%=m%>¿ù/¼ö¿äÀÏ
<% ElseIf i=4 Then %>
<%=y%>³â<%=m%>¿ù/¸ñ¿äÀÏ
<% ElseIf i=5 Then %>
<%=y%>³â<%=m%>¿ù/±Ý¿äÀÏ
<% ElseIf i=6 Then %>
<%=y%>³â<%=m%>¿ù/Åä¿äÀÏ
<% End If %>
<%
Set m_01 = GetDBConn.Execute("SELECT COUNT(idx) FROM E_log_visit WHERE lyear='"&y&"' and lmonth='"&m&"' and lweek=" & i)
m_num1 = m_01(0)
m_01.close
%>
<% Next %>