<%
StartedAt = Timer
Session.Timeout = 360
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Dim Template
Dim SiteAdmin
Dim HTTP
Dim EventManager
Dim Utils
Dim Mail
Dim tmpBuf
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
Set SiteAdmin = Server.CreateObject("WDK.SiteAdmin")
Set HTTP = Server.CreateObject("WDK.HTTP")
Set EventManager = Server.CreateObject("WDK.EventManager")
Set Utils = Server.CreateObject("WDK.Utils")
Set Mail = Server.CreateObject("WDK.IMS")
Mail.MessagesLocation = Server.MapPath("siteadmin\db\mail.xml")
If Response.IsClientConnected Then Session("http_referer") = Session("http_referrer") & " - " & Request.ServerVariables("HTTP_REFERER")
srvUserName = Utils.GetValue ("username")
srvPassword = Utils.GetValue ("password")
srvUserType = Utils.GetValue ("usertype")
srvResellerID = Utils.GetValue ("rid")
srvReplicaID = Utils.GetValue ("id")
Template = HTTP.FetchPage(Server.MapPath ("q_index.htm"))
If Utils.GetValue ("do") = "" Then
Template = Replace(Template,"{@quizcontent}", HTTP.FetchPage(Server.MapPath("pages\feedback.htm")))
Else
' Sending information about new application to Customers Dept.
tmpBuf = "Full Name: " & Utils.GetValue("fullname") & ""
tmpBuf = tmpBuf & "Winner's Email: " & Utils.GetValue("email") & ""
tmpBuf = tmpBuf & "Subject: " & Utils.GetValue("subject") & ""
tmpBuf = tmpBuf & "Message:
" & Utils.GetValue("messagetext")
x = Utils.SendMail("Poker Extra ", "ksenia@bingoentertainment.com", "", "pokerextra.com: Feedback", tmpBuf)
Template = Replace(Template,"{@quizcontent}", "Your Request was sent.")
End if
Response.Write(Template)
%>