<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' *** Redirect if username exists MM_flag = "MM_insert" If (CStr(Request(MM_flag)) <> "") Then Dim MM_rsKey Dim MM_rsKey_cmd MM_dupKeyRedirect = "viewResults.asp?voted=true" MM_dupKeyUsernameValue = CStr(Request.Form("Email")) Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command") MM_rsKey_cmd.ActiveConnection = MM_contest_STRING MM_rsKey_cmd.CommandText = "SELECT Email FROM Voting WHERE Email = ?" MM_rsKey_cmd.Prepared = true MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 255, MM_dupKeyUsernameValue) ' adVarChar Set MM_rsKey = MM_rsKey_cmd.Execute If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") AND (request.form("Vote") <> "") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd date3 = Now() Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_contest_STRING MM_editCmd.CommandText = "INSERT INTO Voting (VoteNum, Email, Date1) VALUES (?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("Vote"), Request.Form("Vote"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("Email")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, date3) ' adVarWChar MM_editCmd.Execute dim lsSQL, loRs MM_editCmd.CommandText = "SELECT @@IDENTITY AS NewID" Set loRs = MM_editCmd.Execute() llID = loRs.Fields("NewID").value session("recNumber") = llID MM_editCmd.ActiveConnection.Close Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Please confirm your Kars4kids Video Vote" objMessage.From = "contest@kars4kids.org" objMessage.To = request.form("Email") objMessage.HTMLBody = "Thank you for voting in the Kars4Kids Video Contest. Your vote will not be processed until you click the link below.

http://www.kars4kids.org/contest/confirmVote.asp?nufrg=" & session("recNumber") & "&bnud=" & request.form("Email") &"

If the link does not work please copy and paste this line into your browser window.

Thank you
The Contest Co-ordinators" ' objMessage.Send 'link = http://www.kars4kids.org/contest/confirmVote.asp?nufrg=" & session("recNumber") & "bnud=" & request.form("Email")" & ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "viewResults.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> Vote for your Favorite Kars4kids Video
PRIZES GALLERY RESULTS CONTACT
         
 

Our judges have reviewed all entries and selected 12 favorites as finalists. Now it's up to you to decide which will win the prizes!

Please cast your vote and then check back here on February 25, when the winners will be announced!

To play a video click on the thumbnail.

One grand prize winner will receive a home theater system while the four runners up will win guitars or Nintendo WII!

Please enter a valid email address:
Your vote will not be processed until you click on a
confirmation link that we will send to your email.