/beta/AR/xml2.asp
ASP | 22 lines | 21 code | 1 blank | 0 comment | 2 complexity | 3b6910bb3e3b436a292fa44144581a94 MD5 | raw file
1<%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%> 2<!--#include file="../config.asp" --> 3<% 4InvItemID=request("id") 5if isNumeric(InvItemID) then 6 InvItemID=clng(InvItemID) 7else 8 InvItemID=0 9end if 10sql="SELECT replace(Name,'ی',N'�') as name,type,isnull(fee,0) as fee,hasVat FROM InvoiceItems WHERE (ID='" & InvItemID &"') AND (Enabled=1)" 11set rs=Conn.Execute(sql) 12if (request("id")="") then 13 response.write escape ("��� ����" ) 14elseif (rs.EOF) then 15 response.write escape ("�� ���� ��� ���" ) 16else 17 response.write escape( rs("name") & "#" & rs("type") & "#" & rs("fee") & "#" & rs("hasVat")) 18end if 19 20rs.close() 21conn.close() 22%>