gregperes/todos.asp Secret

## todos.asp
<%
Dim cn = "ConnectionString"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open cn

Dim query = "SELECT * FROM todos ORDER BY created_at DESC"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn
%>
<!doctype html>
<html lang="en">
<head>
    <meta charset="utf-8">
    <title>ASP Sample</title>

    <script type="text/javascript">
      document.body.onload = function () {
        document.getElementByTagName("checkbox").onclick = function () {
          alert("Yeah! Just complete a todo :)");
        };
      };
    </script>
</head>

<body>
  <ul>
<%
Do While Not rs.EOF
%>
    <li>
      <input type="checkbox" name="todo-<%=rs.Fields("id")%>" value="<%=rs.Fields("id")%>">
      <%=rs.Fields("description")%>
    </li>
<%
    objRS.MoveNext()
Loop
%>
  </ul>
</body>
</html>
<%
Set rs = Nothing
Set conn = Nothing
%>
	<%
	Dim cn = "ConnectionString"

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open cn

	Dim query = "SELECT * FROM todos ORDER BY created_at DESC"

	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql, conn
	%>
	<!doctype html>
	<html lang="en">
	<head>
	<meta charset="utf-8">
	<title>ASP Sample</title>

	<script type="text/javascript">
	document.body.onload = function () {
	document.getElementByTagName("checkbox").onclick = function () {
	alert("Yeah! Just complete a todo :)");
	};
	};
	</script>
	</head>

	<body>
	<ul>
	<%
	Do While Not rs.EOF
	%>
	<li>
	<input type="checkbox" name="todo-<%=rs.Fields("id")%>" value="<%=rs.Fields("id")%>">
	<%=rs.Fields("description")%>
	</li>
	<%
	objRS.MoveNext()
	Loop
	%>
	</ul>
	</body>
	</html>
	<%
	Set rs = Nothing
	Set conn = Nothing
	%>