HEX

File: D:/web/hyperflight/! bs3/mysqltest.asp
<%Option Explicit%>
<!--#include file="dbfunctions.asp"-->
<!--#include file="apputils.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<%DisableCache ' 18/02/10 %>
<title>MySQL Test <%=Now%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>

<body>
<div>

<%
  HTMLBodyEnd

  Dim i, LValue, LRandomInt
  For i = 1 to 1000
    'LRandomInt = RandomInteger(1000000, 2000000)
   ' LRandomInt = RandomInteger(1, 2000)
    'DebugLog -1, "Test in mysqltest.asp - random no " & LRandomInt
    DebugLog -1, "Test in mysqltest.asp - i = " & i
'    LValue = GetSQLValueAsString("SELECT ProductID FROM products WHERE ProductID = " & i) 
  Next

  Dim LTimeTaken
  LTimeTaken = GetTimer
  Response.Write LTimeTaken

%>
<br><br><table><tr><td><%=Now%></td></tr></table>
</div>

</body>
</html>
<%Finalise%>