/beta/admin/kid_dbtest.asp

http://github.com/khaneh/Orders · ASP · 73 lines · 63 code · 5 blank · 5 comment · 3 complexity · 03e80e5359a769562e50fa1e8f8b8a2b MD5 · raw file 

    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1256"%>

    2. 

  2. <HTML>

    3. 

  3. <HEAD>

    4. 

  4. <meta http-equiv="Content-Type" content="text/html; charset=windows-1256">

    5. 

  5. <meta http-equiv="Content-Language" content="fa">

    6. 

  6. <style>

    7. 

  7. 	Table { font-family:tahoma; font-size: 9pt;}

    8. 

  8. </style>

    9. 

  9. <TITLE>Test</TITLE>

    10. 

  10. </HEAD>

    11. 

  11. <BODY>

    12. 

  12. <%

    13. 

  13.     ' Open connection

    14. 

  14. '	strCnxn = "DRIVER={SQL Server};SERVER=(local);DATABASE=sefareshat;UID=sefadmin; PWD=5tgb;"

    15. 

  15. strCnxn = "Provider=SQLNCLI10.1;Persist Security Info=False;User ID=sefadmin;Initial Catalog=sefareshat;Data Source=(local);PWD=5tgb;"

    16. 

  16.     Set Cnxn = Server.CreateObject("ADODB.Connection")

    17. 

  17.     Cnxn.Open strCnxn

    18. 

  18.     

    19. 

  19.     ' Open compound recordset

    20. 

  20.     Set rstCompound = Server.CreateObject("ADODB.Recordset")

    21. 

  21.     SQLCompound = "exec proc_Test"

    22. 

  22.     rstCompound.Open SQLCompound, Cnxn, 3 'adOpenStatic

    23. 

  23.     

    24. 

  24.     ' Display results from each SELECT statement

    25. 

  25.     errCount = 0

    26. 

  26.     catCount = 0

    27. 

  27. 	allCats	= 0

    28. 

  28. 	errCatName =""

    29. 

  29. 	errCatCount=0

    30. 

  30. 	Dim errCatNames (50)

    31. 

  31. 	Dim errCatCounts (50)

    32. 

  32. 	startTime = timer

    33. 

  33.     Do Until rstCompound Is Nothing

    34. 

  34.         if rstCompound.EOF then

    35. 

  35. 			response.write " :: <FONT COLOR='green'>OK</FONT><br>"

    36. 

  36.         else

    37. 

  37. 			if isnumeric(rstCompound.Fields(0)) then

    38. 

  38. 				response.write "<FONT COLOR='red'>"

    39. 

  39. 				catCount = catCount + 1

    40. 

  40. 				errCatNames(catCount) = errCatName

    41. 

  41. 				errCatCount=0

    42. 

  42. 				Do Until rstCompound.EOF

    43. 

  43. 					errCount = errCount + 1

    44. 

  44. 					errCatCount = errCatCount + 1

    45. 

  45. 					response.write "<br>" & rstCompound.Fields(0) 

    46. 

  46. 					rstCompound.MoveNext

    47. 

  47. 				Loop

    48. 

  48. 				errCatCounts(catCount) = errCatCount

    49. 

  49. 				response.write "<br></FONT>"

    50. 

  50. 			else

    51. 

  51. 				allCats = allCats + 1

    52. 

  52. 				errCatName =	rstCompound.Fields(0)

    53. 

  53. 				response.write "<br>" & errCatName 

    54. 

  54. 			end if

    55. 

  55.         end if

    56. 

  56.         Set rstCompound = rstCompound.NextRecordset

    57. 

  57.     Loop

    58. 

  58.    

    59. 

  59.     ' clean up

    60. 

  60.     Cnxn.Close

    61. 

  61.     Set rstCompound = Nothing

    62. 

  62.     Set Cnxn = Nothing

    63. 

  63. 

    64. 

  64. 	response.write "<br><hr><hr>"

    65. 

  65. 	for i = 1 to catCount

    66. 

  66. 		response.write errCatNames(i) & ": " & chr(9) & errCatCounts(i) & "<br>"

    67. 

  67. 	Next 

    68. 

  68. 

    69. 

  69. 	endTime = timer

    70. 

  70. 	response.write "<hr><hr>End <br>"& errCount & " Errors Found in "& catCount & " Categories (Out of "& allCats & " Cat.s)<br>Operation took " & endTime - startTime & " secconds."

    71. 

  71. %>

    72. 

  72. </BODY>

    73. 

  73. </HTML>
    74.