<%@ LANGUAGE="VBScript" %>
<%
Function appendParam(strURL, name, value)
if Right(strURL,1) = "?" then
appendParam = strURL & name & "=" & value
else
appendParam = strURL & "&" & name & "=" & value
end if
End Function
dim action, venue, server, test, id, strURL, strProject, strDebug, wave
strProject = "FPKLV"
action = LCase(Request.QueryString("ac"))
venue = Request.QueryString("v")
server = LCase(Request.QueryString("server"))
test = Request.QueryString("test")
id = Request.QueryString("id")
strDebug = Request.QueryString("debug")
wave = Request.QueryString("wave")
if test = "" then test = 0
if server = "" then server = "l"
if id = "" then id = "auto"
if action = "recall" then wave = 2
if action = "" or action = "no" or action="cancel" then wave = 1
if server = "l" then
strURL = "http://t2.ktrmr.com/surveyh.aspx?"
else
strURL = "http://t2-test.ktrmr.com/surveyh.aspx?"
end if
strURL = appendParam(strURL,"i.project",strProject)
strURL = appendParam(strURL,"id","1")
strURL = appendParam(strURL,"s","VEN38")
strURL = appendParam(strURL,"i.test",test)
strURL = appendParam(strURL,"chk","na")
strURL = appendParam(strURL,"debug",strDebug)
strURL = appendParam(strURL,"pid",id)
strURL = appendParam(strURL,"wave",wave)
strURL = appendParam(strURL,"v",venue)
strURL = appendParam(strURL,"rs","1")
if venue = "" then
Response.write "
Invalid link, please contact your supervisor.
"
Response.end
end if
%>
Venue Redirect
<%if test = 1 then Response.write "TEST MODE: SERVER = " & server%>