67
Hi!
Pls help me.
My backend is MS-Access.
This is my coding........
<%pathdefiner = "../"%>
<!--#include file="../Connection/connector.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Vote for your favorite song</title>
</head>
<body>
<h2><u><font color="#0000FF" face="Monotype Corsiva" size="6">Vote for your favorite song</font></u></h2>
<p> </p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults"
U-File="C:\Inetpub\wwwroot\AspDemo\home\_private\for m_results.txt"
S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
<p> <font size="4">Songs</font>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = my_Conn
retrieveSql = "Select top 10 tbl_Vote_info.Item_code, tbl_Item_Master.Title from tbl_Vote_info, tbl_Item_Master where tbl_Vote_info.Item_code = tbl_Item_Master.Item_code order by Number_votes desc;"
rs.Source = retrieveSql
rs.Open
%>
<select size="1" name="D1">
<%
dim i
for i=1 to 10
Do While not rs.EOF
if(Strcomp(yCount,i)<>0) then %>
<option value="<%=i%>" selected><%=i%></option>
<%else%>
<option value="<%=i%>" ><%=i%></option>
<%End if%>
</select>
<%
rs.MoveNext
Loop
Next
rs.Close
my_Conn.Close
set rs=nothing
set my_Conn=nothing
%>
</p>
<p align="center"><input type="submit" value="Vote" name="B1"></p>
</form>
</body>
</html>
