<!--METADATA TYPE="typelib" FILE="c:\program files\common files\system\ado\msado15.dll"-->
<!--#include virtual="/inc/Common/dbconn_str.asp"-->
<!--#include virtual="/inc/Common/dbconn_obj.asp"-->
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition","attachment; filename="& strToday & strTitle & strfileExtension
Dim objRS ' Record Set Object
Dim strSql ' Query String
Dim lecture_str ' Loop Counter
Dim lecture_list
Dim masterNum
masterNum=request("mNum")
strSql = " ~쿼리~ "
Set objRS = objConnLawDB.Execute(strSql)
%>
<head>
<title>설문통계 다운로드</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-kr">
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<table border="0" cellspacing="2" cellpadding="2" WIDTH="600">
<tr>
<td width="100" valign="top" align="center"> 이름 </td>
<td width="100" valign="top" align="center"> 소속 </td>
<td width="100" valign="top" align="center"> 전화번호 </td>
<td width="100" valign="top" align="center"> 이메일 </td>
<td width="100" valign="top" align="center"> 개설희망강좌 </td>
</tr>
<tbody>
<%
Do Until objRS.eof
%>
<tr>
<td width="100" valign="top" align="center"> <%=objRS("name")%> </td>
<td width="100" valign="top" align="center"> <%=objRS("company")%> </td>
<td width="100" valign="top" align="center"> <%=objRS("phone")%> </td>
<td width="100" valign="top" align="center"> <%=objRS("email")%> </td>
<td width='100' valign='top' align='center' title='<%=objRS("LecSubject")%> - <%=objRS("wishLecTime")%>'> <%=objRS("wishLec")%> </td>
</tr>
<%
objRS.movenext
Loop
%>
</tbody>
</table>
'프로그래밍 > ASP' 카테고리의 다른 글
| ASP - Split, For, UBound 활용하여 다중으로 넘어온 값 분할하기 (0) | 2013.08.20 |
|---|---|
| ASP - ipad 에서 chrome 으로 페이지 접근시 html 소스가 보이는 오류가 나타날 경우 (0) | 2013.08.20 |
| ASP Procedure Code Example (0) | 2013.08.20 |
| ASP 줄바꿈 예시 (0) | 2013.08.20 |
| ASP 개발시 오류메시지 쉽게 볼 수 있게 브라우저 세팅하기 (0) | 2013.08.20 |