Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<% Server.ScriptTimeout = 1000 %>
<html>
<%
Dim DB, rsEFF
cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
cst = cst & server.mappath("Block Status TZT.mdb")
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open cst
Set rsEFF = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM BOM_1 BOM "
rsEFF.Open SQL,DB,1,2
do while not rsEFF.EOF
'stuff
rsEFF.MoveNext
loop
......