<% title = "2 Dollar Bill Tracker" %>

 

2 Dollar Bill Tracker

The Tracker Automatically adds your email to the mailing list.....but if you do not want the mailing list and still want to register your $2 bills, just unsubscribe upon registration. Your bill will still be tracked and you will still qualify for all prizes!!

 

Please leave your comments! They are GREAT! Some people have unique stories about their $2 bills. Many folks think they are fake or not spendable. What are your experiences with the $2 Bill? Let us know and we will try to post the really good ones.

Privacy will be respected, of course.

<% dim action if trim(request("action")) <> "" then action = trim(request("action")) end if select case action case "track" if isEmail(request.form("email")) then if trim(Request.Form("state"))<>"" then if request.form("serial") <> "" or len(request.form("serial")) > 13 then call trackBill else response.write "Please enter a valid serial." call showForm end if else response.write "Please enter a valid State." call showForm end if else response.write "Please enter a valid Email." call showForm end if case else call showForm end select %>

 
<% sub trackBill dim rs set rs = conn.execute("SELECT * FROM Bills WHERE billSerial = '" & sqlsafe(request.form("serial")) & "'") if rs.eof then call saveSerial call saveOwner response.write "
That bill is not in our system. It will now be added to our system. Thank you for using the tracker." else call saveOwner response.write "
Thank you for using this tracker." end if rs.close set rs = nothing end sub sub saveSerial conn.execute("INSERT INTO Bills (billSerial) VALUES ('" & sqlsafe(trim(request.form("serial"))) & "')") end sub sub saveOwner dim email, city, state, zip, comment, serial, billId,name dim rsOwner, sql email = request.form("email") city = request.form("city") state = request.form("state") zip = request.form("zip") comment = request.form("comment") serial = sqlsafe(trim(request.form("serial"))) name = sqlsafe(trim(request.form("name"))) billId = conn.execute("SELECT billID FROM bills WHERE billSerial = '" & serial & "'")(0) set rsOwner = server.createobject("ADODB.Recordset") sql = "SELECT top 1 * FROM owners" rsOwner.open sql, conn, 3, 3 rsOwner.addnew rsOwner("ownerDate") = date rsOwner("ownerEmail") = email rsOwner("ownerCity") = city rsOwner("ownerState") = state rsOwner("ownerZip") = zip rsOwner("ownerComment") = comment rsOwner("ownerName") = name rsOwner("billID") = billId rsOwner.update rsOwner.close set rsOwner = nothing Set MailingList = New CMailingList MailingList.EmailSubscriber = Request.form("email") MailingList.MailingList = "spirit-ots" MailingList.ListAlias = "imailsrv@newsletter.352media.com" MailingList.Subscribe call showHistory(billId) end sub sub showForm %>
" method="post" onsubmit="MM_validateForm('serial','','R','firstName','','R','lastName','','R','city','','R','state','','R','zip','','R');return document.MM_returnValue">
Asterisks denote required fields.
*Serial: " maxlength="13" />
First Name: " maxlength="50" />
Last Name: " maxlength="50" />
*Email: " maxlength="50" />
City: " maxlength="50" />
*State: " maxlength="50" />
Zip: " maxlength="10" />
Comment: " maxlength="255" />
<% end sub sub showHistory(billID) dim rsHistory, sql sql = "SELECT * " & _ "FROM dbo.owners " & _ "WHERE ownerid IN " & _ "(SELECT TOP 15 owners2.ownerid " & _ "FROM owners owners2 " & _ "WHERE billID = " & billID & " " & _ "ORDER BY owners2.ownerdate DESC) " & _ "ORDER BY ownerID" set rsHistory = conn.execute(sql) %> The following are the last locations of this bill:
<% do while not rsHistory.eof %> <% rsHistory.movenext loop %>
Date Name City State Zip Comment
<%=rsHistory("ownerDate")%> <%=rsHistory("ownerName")%> <%=rsHistory("ownerCity")%> <%=rsHistory("ownerState")%> <%=rsHistory("ownerZip")%> <%=rsHistory("ownerComment")%>
<% rsHistory.close set rsHistor = nothing end sub %>