<%@ Language="VBScript" %> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Inital Release: ' ver: 1.0 10/2008 CR: 101482 ' ' Changes: ' ver: n.n mm/yyyy DW: 100-02-nnnnnnn iii '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <% response.expires = 0 response.buffer = true Dim sqlStmt Dim objRS Dim dataRS ' set content type and xml tag Response.ContentType = "text/xml" Response.write(""& vbcrlf) Set objRS = CreateObject ("ADODB.Recordset") sqlStmt = "Exec dbo.FW_OT_Member_List '" & request("List_Type") & "','" & request("Key") & "','',''" objRS.Open sqlStmt, Session("conn") ' output data in XML format Response.write("") Row_Id = 0 Do while not objRS.EOF Row_Id = Row_Id + 1 Response.write("") Response.write("") Response.write(Xml_Fix(objRS(1))) Response.write("") Response.write("") Response.write(Xml_Fix(objRS(2))) Response.write("") Response.write("") Response.write(Xml_Fix(objRS(3))) Response.write("") Response.write("") 'Response.write(Xml_Fix(objRS(4))) Response.write(Xml_Fix(objRS(4)) &"^javascript:Show_EmplInfo("" & objRS(5) & "");^_self") Response.write("") Response.write("") objRS.MoveNext Loop Response.write("") objRS.Close Set objRS = Nothing %>