HiLiteR 1.1 "" Report a Bug | Recommend a feature | Ask a question | Submit a site

<html>
<head>
    <title>HiLiteR</title>
</head>
<body>

<!--
    HiLiteR Test File
-->

<%

    'The Code provided here is just for testing HiLiteR
        
    response.buffer = false

    sConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Persist Security Info=False;Data Source=" & _
    Server.MapPath("data.mdb")

    'Pre-create connection and recordset objects
    set conn = Server.CreateObject("ADODB.Connection")
    set rs = Server.CreateObject("ADODB.Recordset")

    conn.open sConn
    set rs.ActiveConnection = conn
    rs.CursorType = adOpenStatic

    sSQL = "SELECT Name, Number FROM TestTable WHERE ID = 11"
    rs.Open sSQL,,,adCmdTable

    if rs.RecordCount > 0 then
        sName = rs("Name")
        rs("Number") = 192
        rs.Update
    end if

    rs.close
    conn.close
    set rs = nothing
    set conn = nothing

%>

</body>




<% Response.Cookies("mt")("pagetitle") = "" : Server.Execute("/stats/track.asp") %>



<% Response.Cookies("mt")("pagetitle") = "" : Server.Execute("/stats/track.asp") %>



<% Response.Cookies("mt")("pagetitle") = "" : Server.Execute("/stats/track.asp") %>
</html>

Processing time: 0.05 seconds.

Visit 2eNetWorX for more OpenSource VB and ASP Projects.