<%@ LCID = 5129 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% ewCurSec = 0 ' Initialise ' User levels Const ewAllowAdd = 1 Const ewAllowDelete = 2 Const ewAllowEdit = 4 Const ewAllowView = 8 Const ewAllowList = 8 Const ewAllowReport = 8 Const ewAllowSearch = 8 Const ewAllowAdmin = 16 %> <% ' Initialize common variables x_csn = Null x_type = Null x_status = Null x_issue = Null x_card_size = Null x_expiry_date = Null x_issued_date = Null x_issued_at = Null x_issuer = Null x_reissued = Null x_hot = Null x_id = Null %> <% sExport = Request.QueryString("export") ' Load Export Request If sExport = "excel" Then Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment; filename=card_data.xls" End If If sExport = "word" Then Response.ContentType = "application/vnd.ms-word" Response.AddHeader "Content-Disposition:", "attachment; filename=card_data.doc" End If If sExport = "xml" Then Response.ContentType = "text/xml" Response.AddHeader "Content-Disposition:", "attachment; filename=card_data.xml" End If %> <% nStartRec = 0 nStopRec = 0 nTotalRecs = 0 nRecCount = 0 nRecActual = 0 sKeyMaster = "" sDbWhereMaster = "" sSrchAdvanced = "" sSrchBasic = "" sSrchWhere = "" sDbWhere = "" sDefaultOrderBy = "" sDefaultFilter = "" sWhere = "" sGroupBy = "" sHaving = "" sOrderBy = "" sSqlMaster = "" nDisplayRecs = 20 nRecRange = 10 ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Handle Reset Command ResetCmd() ' Get Search Criteria for Basic Search SetUpBasicSearch() ' Build Search Criteria If sSrchAdvanced <> "" Then sSrchWhere = sSrchAdvanced ' Advanced Search ElseIf sSrchBasic <> "" Then sSrchWhere = sSrchBasic ' Basic Search End If ' Save Search Criteria If sSrchWhere <> "" Then Session("card_data_searchwhere") = sSrchWhere ' Reset start record counter (new search) nStartRec = 1 Session("card_data_REC") = nStartRec Else sSrchWhere = Session("card_data_searchwhere") End If ' Build WHERE condition sDbWhere = "" If sDbWhereMaster <> "" Then sDbWhere = sDbWhere & "(" & sDbWhereMaster & ") AND " End If If sSrchWhere <> "" Then sDbWhere = sDbWhere & "(" & sSrchWhere & ") AND " End If If Len(sDbWhere) > 5 Then sDbWhere = Mid(sDbWhere, 1, Len(sDbWhere)-5) ' Trim rightmost AND End If ' Build SQL sSql = "SELECT * FROM [card_data]" ' Load Default Filter sDefaultFilter = "" sGroupBy = "" sHaving = "" ' Load Default Order sDefaultOrderBy = "" sWhere = "" If sDefaultFilter <> "" Then sWhere = sWhere & "(" & sDefaultFilter & ") AND " End If If sDbWhere <> "" Then sWhere = sWhere & "(" & sDbWhere & ") AND " End If If Right(sWhere, 5) = " AND " Then sWhere = Left(sWhere, Len(sWhere)-5) If sWhere <> "" Then sSql = sSql & " WHERE " & sWhere End If If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If ' Set Up Sorting Order sOrderBy = "" SetUpSortOrder() If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If 'Session("ewmsg") = sSql ' Uncomment to show SQL for debugging ' Export Data only If sExport = "xml" Or sExport = "csv" Then Call ExportData(sExport, sSql) conn.Close ' Close Connection Set conn = Nothing Response.End End If %> <% If sExport <> "word" And sExport <> "excel" Then %> <% End If %> <% ' Set up Record Set Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 nTotalRecs = rs.RecordCount If nDisplayRecs <= 0 Then ' Display All Records nDisplayRecs = nTotalRecs End If nStartRec = 1 SetUpStartRec() ' Set Up Start Record Position %>

TABLE: card data <% If sExport = "" Then %>   Export to Excel   Export to Word   Export to XML <% End If %>

<% If sExport = "" Then %>
   Show all  
Exact phrase  All words  Any word
<% End If %> <% If sExport = "" Then %>
Add

<% End If %> <% If Session("ewmsg") <> "" Then %>

<%= Session("ewmsg") %>

<% Session("ewmsg") = "" ' Clear message End If %>
<% If nTotalRecs > 0 Then %> <% If sExport = "" Then %> <% End If %> <% End If %> <% ' Avoid starting record > total records If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs End If ' Set the last record to display nStopRec = nStartRec + nDisplayRecs - 1 ' Move to first record directly for performance reason nRecCount = nStartRec - 1 If Not rs.Eof Then rs.MoveFirst rs.Move nStartRec - 1 End If nRecActual = 0 Do While (Not rs.Eof) And (nRecCount < nStopRec) nRecCount = nRecCount + 1 If CLng(nRecCount) >= CLng(nStartRec) Then nRecActual = nRecActual + 1 ' Set row color sItemRowClass = " class=""ewTableRow""" ' Display alternate color for rows If nRecCount Mod 2 <> 0 Then sItemRowClass = " class=""ewTableAltRow""" End If ' Load Key for record sKey = rs("csn") x_csn = rs("csn") x_type = rs("type") x_status = rs("status") x_issue = rs("issue") x_card_size = rs("card_size") x_expiry_date = rs("expiry_date") x_issued_date = rs("issued_date") x_issued_at = rs("issued_at") x_issuer = rs("issuer") x_reissued = rs("reissued") x_hot = rs("hot") x_id = rs("id") %> > <% If sExport = "" Then %> <% End If %> <% End If rs.MoveNext Loop %>
<% If sExport <> "" Then %> csn <% Else %> " style="color: #FFFFFF;">csn (*)<% If Session("card_data_x_csn_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_csn_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> type <% Else %> " style="color: #FFFFFF;">type<% If Session("card_data_x_type_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_type_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> status <% Else %> " style="color: #FFFFFF;">status (*)<% If Session("card_data_x_status_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_status_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> issue <% Else %> " style="color: #FFFFFF;">issue<% If Session("card_data_x_issue_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_issue_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> card size <% Else %> " style="color: #FFFFFF;">card size (*)<% If Session("card_data_x_card_size_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_card_size_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> expiry date <% Else %> " style="color: #FFFFFF;">expiry date<% If Session("card_data_x_expiry_date_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_expiry_date_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> issued date <% Else %> " style="color: #FFFFFF;">issued date<% If Session("card_data_x_issued_date_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_issued_date_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> issued at <% Else %> " style="color: #FFFFFF;">issued at (*)<% If Session("card_data_x_issued_at_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_issued_at_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> issuer <% Else %> " style="color: #FFFFFF;">issuer (*)<% If Session("card_data_x_issuer_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_issuer_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> reissued <% Else %> " style="color: #FFFFFF;">reissued<% If Session("card_data_x_reissued_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_reissued_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> hot <% Else %> " style="color: #FFFFFF;">hot<% If Session("card_data_x_hot_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_hot_Sort") = "DESC" Then %><% End If %> <% End If %> <% If sExport <> "" Then %> id <% Else %> " style="color: #FFFFFF;">id<% If Session("card_data_x_id_Sort") = "ASC" Then %><% ElseIf Session("card_data_x_id_Sort") = "DESC" Then %><% End If %> <% End If %>        
<% Response.Write x_csn %> <% Response.Write x_type %> <% Response.Write x_status %> <% Response.Write x_issue %> <% Response.Write x_card_size %> <% If IsDate(x_expiry_date) Then Response.Write EW_FormatDateTime(x_expiry_date,7) Else Response.Write x_expiry_date End If %> <% If IsDate(x_issued_date) Then Response.Write EW_FormatDateTime(x_issued_date,7) Else Response.Write x_issued_date End If %> <% Response.Write x_issued_at %> <% Response.Write x_issuer %> <% If x_reissued = True Then sTmp = "Yes" Else sTmp = "No" End If ox_reissued = x_reissued ' Backup Original Value x_reissued = sTmp %> <% Response.Write x_reissued %> <% x_reissued = ox_reissued ' Restore Original Value %> <% If x_hot = True Then sTmp = "Yes" Else sTmp = "No" End If ox_hot = x_hot ' Backup Original Value x_hot = sTmp %> <% Response.Write x_hot %> <% x_hot = ox_hot ' Restore Original Value %> <% Response.Write x_id %> ">View ">Edit ">Copy ">Delete
<% ' Close recordset and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %> <% If sExport = "" Then %>
<% If nTotalRecs > 0 Then rsEof = (nTotalRecs < (nStartRec + nDisplayRecs)) PrevStart = nStartRec - nDisplayRecs If PrevStart < 1 Then PrevStart = 1 NextStart = nStartRec + nDisplayRecs If NextStart > nTotalRecs Then NextStart = nStartRec LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 %> <% If CLng(nStartRec)=1 Then %> <% Else %> <% End If %> <% If CLng(PrevStart) = CLng(nStartRec) Then %> <% Else %> <% End If %> <% If CLng(NextStart) = CLng(nStartRec) Then %> <% Else %> <% End If %> <% If CLng(LastStart) = CLng(nStartRec) Then %> <% Else %> <% End If %>
Page  FirstFirstPreviousPrevious NextNextLastLast of <%=(nTotalRecs-1)\nDisplayRecs+1%>
<% If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs nStopRec = nStartRec + nDisplayRecs - 1 nRecCount = nTotalRecs - 1 If rsEOF Then nRecCount = nTotalRecs If nStopRec > nRecCount Then nStopRec = nRecCount %> Records <%= nStartRec %> to <%= nStopRec %> of <%= nTotalRecs %> <% Else %> No records found <% End If %>
<% End If %> <% If sExport <> "word" And sExport <> "excel" Then %> <% End If %> <% '------------------------------------------------------------------------------- ' Function BasicSearchSQL ' - Build WHERE clause for a keyword Function BasicSearchSQL(Keyword) Dim sKeyword sKeyword = AdjustSql(Keyword) BasicSearchSQL = "" BasicSearchSQL = BasicSearchSQL & "[csn] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[status] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[card_size] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[issued_at] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[issuer] LIKE '%" & sKeyword & "%' OR " If Right(BasicSearchSQL, 4) = " OR " Then BasicSearchSQL = Left(BasicSearchSQL, Len(BasicSearchSQL)-4) End Function '------------------------------------------------------------------------------- ' Function SetUpBasicSearch ' - Set up Basic Search parameter based on form elements pSearch & pSearchType ' - Variables setup: sSrchBasic Sub SetUpBasicSearch() Dim sSearch, sSearchType, arKeyword, sKeyword sSearch = Request.QueryString("psearch") sSearchType = Request.QueryString("psearchType") If sSearch <> "" Then If sSearchType <> "" Then While InStr(sSearch, " ") > 0 sSearch = Replace(sSearch, " ", " ") Wend arKeyword = Split(Trim(sSearch), " ") For Each sKeyword In arKeyword sSrchBasic = sSrchBasic & "(" & BasicSearchSQL(sKeyword) & ") " & sSearchType & " " Next Else sSrchBasic = BasicSearchSQL(sSearch) End If End If If Right(sSrchBasic, 4) = " OR " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-4) If Right(sSrchBasic, 5) = " AND " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-5) End Sub '------------------------------------------------------------------------------- ' Function SetUpSortOrder ' - Set up Sort parameters based on Sort Links clicked ' - Variables setup: sOrderBy, Session("Table_OrderBy"), Session("Table_Field_Sort") Sub SetUpSortOrder() Dim sOrder, sSortField, sLastSort, sThisSort Dim bCtrl ' Check for an Order parameter If Request.QueryString("order").Count > 0 Then sOrder = Request.QueryString("order") ' Field csn If sOrder = "csn" Then sSortField = "[csn]" sLastSort = Session("card_data_x_csn_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_csn_Sort") = sThisSort Else If Session("card_data_x_csn_Sort") <> "" Then Session("card_data_x_csn_Sort") = "" End If ' Field type If sOrder = "type" Then sSortField = "[type]" sLastSort = Session("card_data_x_type_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_type_Sort") = sThisSort Else If Session("card_data_x_type_Sort") <> "" Then Session("card_data_x_type_Sort") = "" End If ' Field status If sOrder = "status" Then sSortField = "[status]" sLastSort = Session("card_data_x_status_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_status_Sort") = sThisSort Else If Session("card_data_x_status_Sort") <> "" Then Session("card_data_x_status_Sort") = "" End If ' Field issue If sOrder = "issue" Then sSortField = "[issue]" sLastSort = Session("card_data_x_issue_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_issue_Sort") = sThisSort Else If Session("card_data_x_issue_Sort") <> "" Then Session("card_data_x_issue_Sort") = "" End If ' Field card_size If sOrder = "card_size" Then sSortField = "[card_size]" sLastSort = Session("card_data_x_card_size_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_card_size_Sort") = sThisSort Else If Session("card_data_x_card_size_Sort") <> "" Then Session("card_data_x_card_size_Sort") = "" End If ' Field expiry_date If sOrder = "expiry_date" Then sSortField = "[expiry_date]" sLastSort = Session("card_data_x_expiry_date_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_expiry_date_Sort") = sThisSort Else If Session("card_data_x_expiry_date_Sort") <> "" Then Session("card_data_x_expiry_date_Sort") = "" End If ' Field issued_date If sOrder = "issued_date" Then sSortField = "[issued_date]" sLastSort = Session("card_data_x_issued_date_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_issued_date_Sort") = sThisSort Else If Session("card_data_x_issued_date_Sort") <> "" Then Session("card_data_x_issued_date_Sort") = "" End If ' Field issued_at If sOrder = "issued_at" Then sSortField = "[issued_at]" sLastSort = Session("card_data_x_issued_at_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_issued_at_Sort") = sThisSort Else If Session("card_data_x_issued_at_Sort") <> "" Then Session("card_data_x_issued_at_Sort") = "" End If ' Field issuer If sOrder = "issuer" Then sSortField = "[issuer]" sLastSort = Session("card_data_x_issuer_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_issuer_Sort") = sThisSort Else If Session("card_data_x_issuer_Sort") <> "" Then Session("card_data_x_issuer_Sort") = "" End If ' Field reissued If sOrder = "reissued" Then sSortField = "[reissued]" sLastSort = Session("card_data_x_reissued_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_reissued_Sort") = sThisSort Else If Session("card_data_x_reissued_Sort") <> "" Then Session("card_data_x_reissued_Sort") = "" End If ' Field hot If sOrder = "hot" Then sSortField = "[hot]" sLastSort = Session("card_data_x_hot_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_hot_Sort") = sThisSort Else If Session("card_data_x_hot_Sort") <> "" Then Session("card_data_x_hot_Sort") = "" End If ' Field id If sOrder = "id" Then sSortField = "[id]" sLastSort = Session("card_data_x_id_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("card_data_x_id_Sort") = sThisSort Else If Session("card_data_x_id_Sort") <> "" Then Session("card_data_x_id_Sort") = "" End If Session("card_data_OrderBy") = sSortField & " " & sThisSort Session("card_data_REC") = 1 End If sOrderBy = Session("card_data_OrderBy") If sOrderBy = "" Then sOrderBy = sDefaultOrderBy Session("card_data_OrderBy") = sOrderBy End If End Sub '------------------------------------------------------------------------------- ' Function SetUpStartRec ' - Set up Starting Record parameters based on Pager Navigation ' - Variables setup: nStartRec Sub SetUpStartRec() Dim nPageNo ' Check for a START parameter If Request.QueryString("start").Count > 0 Then nStartRec = Request.QueryString("start") Session("card_data_REC") = nStartRec ElseIf Request.QueryString("pageno").Count > 0 Then nPageNo = Request.QueryString("pageno") If IsNumeric(nPageNo) Then nStartRec = (nPageNo-1)*nDisplayRecs+1 If nStartRec <= 0 Then nStartRec = 1 ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 End If Session("card_data_REC") = nStartRec Else nStartRec = Session("card_data_REC") If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 ' Reset start record counter Session("card_data_REC") = nStartRec End If End If Else nStartRec = Session("card_data_REC") If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 'Reset start record counter Session("card_data_REC") = nStartRec End If End If End Sub '------------------------------------------------------------------------------- ' Function ResetCmd ' - Clear list page parameters ' - RESET: reset search parameters ' - RESETALL: reset search & master/detail parameters ' - RESETSORT: reset sort parameters Sub ResetCmd() Dim sCmd ' Get Reset Cmd If Request.QueryString("cmd").Count > 0 Then sCmd = Request.QueryString("cmd") ' Reset Search Criteria If UCase(sCmd) = "RESET" Then sSrchWhere = "" Session("card_data_searchwhere") = sSrchWhere ' Reset Search Criteria & Session Keys ElseIf UCase(sCmd) = "RESETALL" Then sSrchWhere = "" Session("card_data_searchwhere") = sSrchWhere ' Reset Sort Criteria ElseIf UCase(sCmd) = "RESETSORT" Then sOrderBy = "" Session("card_data_OrderBy") = sOrderBy If Session("card_data_x_csn_Sort") <> "" Then Session("card_data_x_csn_Sort") = "" If Session("card_data_x_type_Sort") <> "" Then Session("card_data_x_type_Sort") = "" If Session("card_data_x_status_Sort") <> "" Then Session("card_data_x_status_Sort") = "" If Session("card_data_x_issue_Sort") <> "" Then Session("card_data_x_issue_Sort") = "" If Session("card_data_x_card_size_Sort") <> "" Then Session("card_data_x_card_size_Sort") = "" If Session("card_data_x_expiry_date_Sort") <> "" Then Session("card_data_x_expiry_date_Sort") = "" If Session("card_data_x_issued_date_Sort") <> "" Then Session("card_data_x_issued_date_Sort") = "" If Session("card_data_x_issued_at_Sort") <> "" Then Session("card_data_x_issued_at_Sort") = "" If Session("card_data_x_issuer_Sort") <> "" Then Session("card_data_x_issuer_Sort") = "" If Session("card_data_x_reissued_Sort") <> "" Then Session("card_data_x_reissued_Sort") = "" If Session("card_data_x_hot_Sort") <> "" Then Session("card_data_x_hot_Sort") = "" If Session("card_data_x_id_Sort") <> "" Then Session("card_data_x_id_Sort") = "" End If ' Reset Start Position (Reset Command) nStartRec = 1 Session("card_data_REC") = nStartRec End If End Sub '------------------------------------------------------------------------------- ' Function ExportData ' - Export Data in Xml or Csv format Sub ExportData(sExport, sSql) Dim oXmlDoc, oXmlTbl, oXmlRec, oXmlFld Dim sCsvStr Dim rs ' Set up Record Set Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 nTotalRecs = rs.RecordCount nStartRec = 1 SetUpStartRec() ' Set Up Start Record Position If sExport = "xml" Then Set oXmlDoc = Server.CreateObject("MSXML.DOMDocument") Set oXmlTbl = oXmlDoc.createElement("table") End If ' Avoid starting record > total records If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs End If ' Set the last record to display If nDisplayRecs < 0 Then nStopRec = nTotalRecs Else nStopRec = nStartRec + nDisplayRecs - 1 End If ' Move to first record directly for performance reason nRecCount = nStartRec - 1 If Not rs.Eof Then rs.MoveFirst rs.Move nStartRec - 1 End If nRecActual = 0 Do While (Not rs.Eof) And (nRecCount < nStopRec) nRecCount = nRecCount + 1 If CLng(nRecCount) >= CLng(nStartRec) Then nRecActual = nRecActual + 1 x_csn = rs("csn") x_type = rs("type") x_status = rs("status") x_issue = rs("issue") x_card_size = rs("card_size") x_expiry_date = rs("expiry_date") x_issued_date = rs("issued_date") x_issued_at = rs("issued_at") x_issuer = rs("issuer") x_reissued = rs("reissued") x_hot = rs("hot") x_id = rs("id") If sExport = "xml" Then Set oXmlRec = oXmlDoc.createElement("record") Call oXmlTbl.appendChild(oXmlRec) ' Field csn Set oXmlFld = oXmlDoc.createElement("csn") sTmp = x_csn if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field type Set oXmlFld = oXmlDoc.createElement("type") sTmp = x_type if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field status Set oXmlFld = oXmlDoc.createElement("status") sTmp = x_status if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field issue Set oXmlFld = oXmlDoc.createElement("issue") sTmp = x_issue if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field card_size Set oXmlFld = oXmlDoc.createElement("card_size") sTmp = x_card_size if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field expiry_date Set oXmlFld = oXmlDoc.createElement("expiry_date") sTmp = x_expiry_date if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field issued_date Set oXmlFld = oXmlDoc.createElement("issued_date") sTmp = x_issued_date if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field issued_at Set oXmlFld = oXmlDoc.createElement("issued_at") sTmp = x_issued_at if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field issuer Set oXmlFld = oXmlDoc.createElement("issuer") sTmp = x_issuer if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field reissued Set oXmlFld = oXmlDoc.createElement("reissued") sTmp = x_reissued if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field hot Set oXmlFld = oXmlDoc.createElement("hot") sTmp = x_hot if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) ' Field id Set oXmlFld = oXmlDoc.createElement("id") sTmp = x_id if IsNull(sTmp) then sTmp = "" oXmlFld.Text = sTmp Call oXmlRec.AppendChild(oXmlFld) Set oXmlRec = Nothing End If End If rs.MoveNext Loop ' Close recordset and connection rs.Close Set rs = Nothing If sExport = "xml" Then Response.Write "" & vbcrlf Response.Write oXmlTbl.xml Set oXmlTbl = Nothing Set oXmlDoc = Nothing End If End Sub %>