Voting Batman translation Finishing
4. Document Default.asp
<%
id = Request ("id")
If ID = "" Then
ID = 30
End If
Title = "Polls (Create your own poll)"
%>
<title>asp polls</title>
<script language= "JavaScript" >
function Gatherform (form) {
if (form. mode[0].checked) {
Form.submit ();
}else{
Form.action= "collect.asp";
Form.submit ();
}
}
</script>
<body>
<div align= "left" ><br" >another Joint product from <a href= "Http://www.ncws.com/tippycow" >tipped Cow development</a> and <a href= "http://dstoflet.calweb.com" >adrenalin labs</a>
<br><br>
</div>
<table width= "100%" cellspacing= "0" cellpadding= "2" >
<tr>
<TD align= "left" width= "25%" valign= "Top" class= "bold" >
<form action= "Default.asp" >
<table width= "border=" 1 "bordercolor= #ccccff >
<tr>
<td>
<table border=0 cellspacing=0 cellpadding=5 bgcolor= #4f4f4f ><tr>
<TD colspan=3 bgcolor= #000000 align=center class= "bold2" >select A poll</td>
</tr><tr>
<TD colspan=3 bgcolor= #000000 align=center>
<select name= "ID" onchange= "Gatherform (this.form)" class= "Input" >
<%
Set conn = Server.CreateObject ("ADODB. Connection ")
Conn. Open application ("Asppolldsn")
sql = "SELECT * FROM Poll"
Set RS = conn. Execute (SQL)
Do but not Rs. Eof
%>
<option value= "<%=rs (" ID ")%>" ><%=rs ("Pollname")%>
<%
Rs. MoveNext
Loop
%>
</select>
</tr>
<tr>
<TD colspan=3 align=right bgcolor= #FFFFFF class= "Bold" >
Vote in Poll:<input type= "Radio" name= "Mode" value= "Vote" checked><br>
View Results:<input type= "Radio" name= "Mode" value= "View" >
</td></tr>
<tr>
<TD colspan=3 align=right bgcolor= #000000 align=center>
<input type= "button" value= "Go" onclick= "Gatherform (this.form)" class= "inline" >
</td></tr>
</table>
</td>
</tr>
</table></form><br>
<div align= "left" class= "bold" >
<a href= "create_poll1.asp" >create your own poll</a><br>
<a href= ' javascript:history.back () ' >Back</a>
</div>
</td>
<TD align= "center" width= "75%" valign= "Top" >
<table width= "border=1 cellspacing=2 cellpadding=0 bordercolor= #ccccff ><tr><td>
<form method= "POST" action= "collect.asp" >
<input type= "hidden" name= "id" value= "<%=id%>" >
<%
Set conn = Server.CreateObject ("ADODB. Connection ")
Conn. Open application ("Asppolldsn")
sql = "SELECT * from Poll where id =" & ID
Set RS = conn. Execute (SQL)
If Rs. EOF = False Then
%>
<table border=0 cellspacing=0 cellpadding=10 bgcolor= #4f4f4f ><tr>
<!--<td colspan=3 bgcolor= #2f2f4f align=center><font face= "Verdana" color= #f5fcdc >
Poll: <%=rs ("Pollname")%>
</td>-->
</tr><tr>
<TD colspan=3 bgcolor= #000000 align=left class= "Bold2" ><%=rs ("Pollquestion")%>
</tr>
<%
For I=1 to 5
Choice = rs ("Choice" & I)
If choice <> "" Then
%>
<tr> <!--<td width=50 colspan=
