<% Option Explicit %> <% dim movie_email, retrieval_id, Question_Option_Answer2,Question_Option_Answer3 dim from_email, to_email1, to_email2, to_email3, to_email4, to_email5, message, arr_to_email, to_email dim sqlSelect, Conn, rs, sqlInsert, Lead_ID, sqlUpdate, sqlRetriever, eventcomments dim pagestep, errormessage errormessage = "" pagestep = 1 movie_email = nulltoblank(request.form("movie_email")) //Question_Option_Answer2 = request.form("Question_Option_Answer2") //Question_Option_Answer3 = request.form("Question_Option_Answer3") eventcomments = NullToBlank(request.form("eventcomments")) sqlRetriever = NullToBlank(request.querystring("retrieval_id")) //'we check if movie_email was set and then update the database //if (movie_email <> "") then // sqlSelect = "SELECT lead_ID FROM Lead WHERE Email_Address = '"& movie_email &"'" // set rs = conn.execute(sqlSelect) // if rs.eof then // errormessage = "notfound" // else // // sqlInsert = "EXEC hyundai_movie_checkview '"& movie_email &"', '"& escape(eventcomments) &"'" // Conn.Execute(sqlInsert) // sqlSelect = "SELECT top 1 Lead_Answer_ID as response FROM lead_answer la INNER JOIN Lead l ON l.Lead_ID = la.Lead_ID WHERE l.Email_address = '"& movie_email &"' AND (Question_ID = 2 OR Question_ID = 3)" // set rs = Conn.execute(sqlSelect) // if not rs.eof then // pagestep = 3 // sqlInsert = "EXEC hyundai_add_video_view '"& movie_email &"'" // Conn.execute(sqlInsert) // else // pagestep = 2 // if (Question_Option_Answer2 <> "" and Question_Option_Answer3 <> "") then // Conn.execute("EXEC hyundai_add_questionanswers '"& movie_email & "', "& Question_Option_Answer2&", '"& Question_Option_Answer3 &"'") // pagestep = 3 // end if // end if // end if //end if from_email = NullToBlank(request.form("from_email")) to_email1 = NullToBlank(request.form("to_email1")) to_email2 = NullToBlank(request.form("to_email2")) to_email3 = NullToBlank(request.form("to_email3")) to_email4 = NullToBlank(request.form("to_email4")) to_email5 = NullToBlank(request.form("to_email5")) message = NullToBlank(request.form("message")) arr_to_email = Array(to_email1, to_email2, to_email3, to_email4, to_email5) for each to_email in arr_to_email if ( to_email <> "" AND from_email <> "") then retrieval_id = Retriever() 'response.write("EXEC hyundai_add_sent_email '"& from_email &"','"& to_email &"','"& retrieval_id &"'" ) sqlInsert = "EXEC hyundai_add_sent_email '"& from_email &"','"& to_email &"','"& retrieval_id&"'" conn.execute(sqlInsert) Dim oMail Set oMail = Server.CreateObject("CDO.Message") oMail.From = from_email oMail.to = to_email oMail.Subject = "You've been sent a link to the California Hyundai Challenge from " & from_email oMail.TextBody = "Message from "& from_email &":" &_ vbcrlf &_ vbcrlf &_ message &_ vbcrlf &_ vbcrlf &_ "The ""California Hyundai Challenge"" is a unique, hands-on driving experience that is appearing throughout our great state. You'll see everything that California has to offer...its landmarks...unique people...and, of course, the hottest Hyundai vehicles to ever hit the freeway." &_ vbcrlf &_ vbcrlf &_ "Maybe you can catch up with the ""Challenge"" and get a chance to really ""Drive Your Way,"" too." &_ vbcrlf &_ vbcrlf &_ "Website: http://"& request.servervariables("HTTP_HOST") &"/prodriver.asp" &_ vbcrlf &_ vbcrlf &_ "You have been forwarded this email from a friend and are not currently subscribed to receive e-mails from Hyundai in the future."&_ vbcrlf &_ "For more information about Hyundai in general, go to http://www.hyundaiusa.com" oMail.Send set oMail = nothing end if next 'now we check to see if this user received a link via email if sqlRetriever <> "" then sqlUpdate = "UPDATE hyundai_email_friend SET receiving_timestamp = GETDATE() WHERE retrieval_id = '"& sqlRetriever &"'" Conn.execute(sqlUpdate) sqlSelect = "SELECT senders_email FROM hyundai_email_friend WHERE retrieval_id = '"& sqlRetriever &"'" 'response.write sqlSelect set rs = Conn.execute(sqlSelect) if not rs.eof then movie_email = rs("senders_email") 'response.write movie_email pagestep = 3 end if rs.close set rs = nothing end if Conn.close set Conn = nothing %> Hyundai Challenge
Return to the main page
Send this page to your friends!
Just fill in their email addresses below.

Your Email:

Recipient Email Address(es):








Message:

Californians have always challenged old ways of thinking.
That’s why we’re challenging you to take fresh a look at Hyundai. We’ve created a series of fun, interactive events just for Californians to get to know our newest models. You’ll have the chance to...

Take a Screen Test
Here’s your chance to make your own action movie screen test ...starring YOU and the Hyundai vehicle of your choice. Best of all, you’ll be able to email it to your friends and family.

Drive Your Way
Try our challenging professional driving course in the newest Hyundai models! It’s a great way to experience Hyundai’s dynamic performance, luxurious comfort and unsurpassed active safety. (Select locations only.)

Take Home a Free Gift!
Everyone who takes a test drive at the Hyundai Challenge will take home a free gift, selected especially for Californians. Movie tickets, a night on the town, and free gas cards are just some of the gifts being offered.