<% sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") select case(ucase(request("a"))) case "SENDTOFRIEND" sendtofriendsubject = "Dinosaur Dance Rhythm - let's dance!" Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set FileHTML = objFS.OpenTextFile(server.mappath("emailer/emailer_friend.html")) StringHTML = FileHTML.ReadAll StringHTML = replace(StringHTML,"[[FRIENDNAME]]",request("friendname")) StringHTML = replace(StringHTML,"[[SENDERNAME]]",request("sendername")) StringHTML = replace(StringHTML,"images/","http://" & LCase(request.ServerVariables("Server_Name")) & "/movies/sites/dinodance/emailer/images/") MailServerHost = "127.0.0.1" Set msg = Server.CreateObject("Persits.MailSender") msg.Host = MailServerHost msg.From = request("senderemail") msg.FromName = request("sendername") 'Change to webmasters email address msg.AddAddress request("friendemail") 'msg.AddAddress "l.torney@spin.com.au" msg.Subject = sendtofriendsubject msg.Body = StringHTML msg.IsHTML = true 'msg.Queue = true msg.Send set objFS = nothing set FileHTML = nothing set msg = nothing response.write("response=ok") case "CHALLENGEFRIEND" challengesubject = "Dinosaur Dance Rhythm - let's dance!" 'INPUT friendname,sendername, sendername, senderemail, SCORE, STARS 'OUTPUT(STRING) - "response=ok" Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set FileHTML = objFS.OpenTextFile(server.mappath("emailer/emailer_challenge.html")) StringHTML = FileHTML.ReadAll StringHTML = replace(StringHTML,"[[FRIENDNAME]]",request("friendname")) StringHTML = replace(StringHTML,"[[SENDERNAME]]",request("sendername")) StringHTML = replace(StringHTML,"[[SCORE]]",request("score")) StringHTML = replace(StringHTML,"images/","http://" & LCase(request.ServerVariables("Server_Name")) & "/movies/sites/dinodance/emailer/images/") MailServerHost = "127.0.0.1" Set msg = Server.CreateObject("Persits.MailSender") msg.Host = MailServerHost msg.From = request("senderemail") msg.FromName = request("sendername") 'Change to webmasters email address msg.AddAddress request("friendemail") 'msg.AddAddress "l.torney@spin.com.au" msg.Subject = challengesubject msg.Body = StringHTML msg.IsHTML = true msg.Send set objFS = nothing set FileHTML = nothing set msg = nothing response.write("response=ok") case "GETLEADERBOARD" sql = "SELECT TOP 100 SCORE, STARS, NAME FROM tbl_DinoDance_LeaderBoard ORDER BY SCORE DESC, STARS DESC" set rs = server.createobject("ADODB.RecordSet") set rs = conn.execute(sql) counter = 0 while not rs.eof response.write("name"& counter &"=" & server.urlencode(rs("NAME"))) & "&" response.write("score"& counter &"=" & server.urlencode(rs("SCORE"))) & "&" response.write("stars"& counter &"=" & server.urlencode(rs("STARS"))) & "&" counter = counter + 1 rs.movenext wend response.write("totalrows=" & counter) case "SUBMITSCORE" lang = "EN" 'SUBMIT SCORE 'PARAMS - score, email, name, stars 'OUT STRING - "response=ok" 'CHECK IF WE NEED TO DELETE OLD SCORE if wordfilter(request("name")) = "NOK" then response.write("response=invalidname") response.end end if sql = "INSERT INTO tbl_DinoDance_LeaderBoard (SCORE, LANG, IPADDRESS, EMAIL, NAME, STARS) VALUES " &_ "( '"& unquote(request("score")) &"','"& lang &"','"& sIPAddress &"', '"& unquote(request("email")) &"', '"& unquote(request("name"))&"',"& unquote(request("stars")) &" )" conn.execute(sql) response.write("response=ok") case "LOGVISIT" sql = "INSERT INTO tbl_DinoDance_Visits (IPADDRESS, ISPLAY) VALUES ('"& sIPAddress &"', 0)" conn.execute(sql) response.write("response=ok") case "LOGPLAY" sql = "INSERT INTO tbl_DinoDance_Visits (IPADDRESS, ISPLAY) VALUES ('"& sIPAddress &"', 1)" conn.execute(sql) response.write("response=ok") end select %>