I have a page that has the below code
Dim strAccountTypeID
Select Case Request.QueryString("Func"
)
Case "GetFormsData"
If (( Request.QueryString("sourc
e") = "opennewacct" ) And ( Request.QueryString("Selec
tedAccNumb
er") <> 0 )) Then
XMLString=GetFormsData(Req
uest.Query
String("Se
lectedForm
s"),Reques
t.QueryStr
ing("Selec
tedAccNumb
er"),Reque
st.QuerySt
ring("Sele
ctedAccTyp
e"),Reques
t.QueryStr
ing("Selec
tedAdvisor
"))
Set xml_doc = CreateObject("Microsoft.XM
LDOM")
xml_doc.async = False
xml_doc.loadXML(XMLString)
Set Root = xml_doc.documentElement
Set NodeList = Root.getElementsByTagName(
"ClientNum
ber")
For Each Elem In NodeList
Set Text = Elem.firstChild
Text.replaceData 0, 9, ""
Response.ContentType = "application/x-~ls"
Response.write xml_doc.XML
Next
ElseIf (Request.QueryString("Sele
ctedAccTyp
e") = "GetAccountType") Then
strAccountTypeID = GetAccountTypeID(Request.Q
ueryString
("Selected
Forms"),Re
quest.Quer
yString("S
electedAcc
Number"))
Response.ContentType = "application/x-~ls"
Response.Write GetFormsData(Request.Query
String("Se
lectedForm
s"),Reques
t.QueryStr
ing("Selec
tedAccNumb
er"),strAc
countTypeI
D,Request.
QueryStrin
g("Selecte
dAdvisor")
)
Else
Response.ContentType = "application/x-~ls"
Response.Write GetFormsData(Request.Query
String("Se
lectedForm
s"),Reques
t.QueryStr
ing("Selec
tedAccNumb
er"),Reque
st.QuerySt
ring("Sele
ctedAccTyp
e"),Reques
t.QueryStr
ing("Selec
tedAdvisor
"))
End If
Case "GetFormGUID"
Response.Write (GetFormGUID(Request.Query
String("Se
lectedForm
s")))
Case Else
Response.Write ""
End Select
Response.Flush()
Response.End
I want to redirect to welcome.asp in the background while file is downloaded by the client
Start Free Trial