RAFFLE DRAWING 2008

<%@LANGUAGE="VBScript"%> <% ' Send form pp1 fields trancode, errMsg, numTickets, TicketAmount to raffle2.asp Dim strConnString, strSql, strTranCode, numTicketsLeft strTranCode = TranCode() ' strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/raffle.mdb") & ";" ' go get number of available tickets from database ' set objCon= Server.CreateObject("ADODB.Connection") ' objCon.Open strConn ' set objRs = Server.CreateObject("ADODB.Recordset") ' strSql = "Select * From Tickets WHERE Trim(' ' & Status) <= ' '" ' objRs.Open strSql, objCon, adOpenStatic, adLockReadOnly ' numTicketsLeft = objRs.RecordCount numTicketsLeft = 1000 ' objRs.Close ' set objRs = nothing ' objCon.Close ' set objCon = nothing Function TranCode() Dim n2c, strCode n2c = "ABCDEF0GHIJK1LMNOP2QRSTU3VWXYZ4abcde5fghij6klmno7pqrst8uvwxyz9" n2c = n2c & n2c thisDate = Now strCode = "" strCode = strCode & Mid(n2c, Second(thisDate)+1, 1) strCode = strCode & Mid(n2c, ((Timer * 150) mod 100)+1, 1) strCode = strCode & Mid(n2c, Cint(Right(DatePart("yyyy",thisDate),2))+1, 1) strCode = strCode & Mid(n2c, Minute(thisDate)+1, 1) strCode = strCode & Mid(n2c, Cint(Left(DatePart("yyyy",thisDate),2))+1, 1) strCode = strCode & Mid(n2c, Month(thisDate)+1, 1) strCode = strCode & Mid(n2c, Hour(thisDate)+1, 1) strCode = strCode & Mid(n2c, Day(thisDate)+1, 1) strCode = strCode & Mid(n2c, ((Timer * 100) mod 100)+1, 1) TranCode = strCode End Function %> RAFFLE DRAWING 2008