01.<html>
02.<head>
03.<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
04.<link href="font.css" rel="stylesheet" type="text/css">
05.<style type="text/css">
06.<!--
07.body,td,th {
08. font-size: 14px;
09.}
10..style2 {font-size: 12; }
11..style3 {font-weight: bold}
12..style5 {font-size: 12px; font-weight: bold; }
13..style6 {color: #FFFFFF}
14..style7 {font-size: 12; color: #FFFFFF; }
15..style8 {color: #0077A5}
16.-->
17.</style>
18.</head>
19.
20.<body>
21.<%
22.Set Conn = Server.CreateObject("ADODB.Connection")
23.Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;INITIAL CATALOG=InfoTax;USER ID=sa;PASSWORD=password;"
24.%>
25.<table width="95%" border="0" cellspacing="0" cellpadding="0">
26. <tr>
27. <td width="750" height="200" class="font">
28.<%
29.
30.cst=request.QueryString("cst")
31.sql_pak="select * from K_SUM where province_9='"&cst&"' "
32.Set Rs_pak = Server.CreateObject("ADODB.Recordset")
33.Rs_pak.open sql_pak,conn,1,3
34.If Rs_pak.EOF Then
35.
36. else
37. province=rs_pak("province_9")
38. end if
39.%>
40.
41. <table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="font">
42. <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
43. <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5">รายงานผู้ประกอบการที่มีเลขประจำตัวผู้เสียภาษี</span></div></td>
44. </tr>
45. <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="border">
46. <td height="30" colspan="7" bordercolor="#FFFFFF"><div align="center" class="style8"><span class="style5"><% response.write province %></span></div></td>
47. </tr>
48. <tr bordercolor="#FFFFFF" bgcolor="#0077A5" class="border">
49. <td width="5%" height="30" bordercolor="#FFFFFF" bgcolor="#0077A5"><div align="center" class="style2 style6">
50. <div align="center">ลำดับที่</div>
51. </div></td>
52. <td width="10%"><div align="center" class="style6">เลขประจำตัวผู้เสียภาษี</div></td>
53. <td width="15%"><div align="center" class="style6">ชื่อผู้ประกอบการ</div></td>
54. <td width="10%"><div align="center" class="style6">ทีมกำกับ</div></td>
55. <td width="20%"><div align="center" class="style6">ประเภทกิจการ</div></td>
56. <td width="10%"><div align="center" class="style7"><div align="center">Website</div>
57. </div></td>
58. </tr>
59.<%
60.crai=request.QueryString("crai")
61.sql="select * from K_SUM where province_9='"&crai&"' order by TIN ASC"
62.Set Rs = Server.CreateObject("ADODB.Recordset")
63.Rs.open sql,conn,1,3
64.While not rs.eof
65.numrec=numrec + 1
66.%>
67. <tr bordercolor="#FFFFFF" bgcolor="#E1F0FF">
68. <td width="50" height="28"><div align="center"><span class="style2 style8"><%=numrec%></span></div></td>
69. <td width="10%" height="28"><span class="style2 style8"><%=rs("tin")%></span></td>
70. <td width="15%" height="28"><span class="style2 style8"><%=rs("name")%></span></td>
71. <td width="10%" height="28"><div align="center"><span class="style2 style8"><%=rs("team")%></span></div></td>
72. <td width="20%" height="28"><span class="style2 style8"><%=rs("descrip")%></span></td>
73. <td width="10%" height="28"><div align="center"><span class="style2 style8"><a href="<%="http://"&rs("web1")%>"><%=rs("web1")%></a></span></div></td>74. </tr>
75.
76.<%
77. rs.MoveNext
78. Wend
79. rs.close
80. conn.close
81.%>
82. </table>
83. </td>
84. </tr>
85.</table>
86.
87.</body>
88.</html>
Quote:
