VB Code:
<script language="VBScript">
Dim i, iCount
Sub Add_Item
Dim aiForm
Set aiForm = Document.Forms("addItem")
If (aiForm.SKU_Prefix.value = "") Then
MsgBox("Enter Valid Vendor Prefix")
Else
Dim rs, SQLText, conn, connStr
Set conn = CreateObject("ADODB.Connection")
SQLText = "SELECT * FROM schoolItems WHERE MfgPre = '" & aiForm.SKU_Prefix.value & "'"
connStr = "c:\Data\test.mdb"
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = connStr
.open
End With
Set rs = CreateObject("ADODB.RecordSet")
rs.open SQLText, conn, 0, 1
If Not rs.EOF Then
Do Until rs.EOF
iCount = iCount + 1
rs.MoveNext
Loop
End If
rs.MoveFirst
iCount = iCount - 1
i = 0
ReDim iNum(iCount), iPfx(iCount)
If Not rs.EOF Then
Do Until rs.EOF
iNum(i) = rs("ItemNum")
iPfx(i) = rs("MfgPre")
i = i + 1
rs.MoveNext
Loop
End If
rs.close
conn.close
i = 0
startAdd i,iCount,iNum,iPfx
End If
End Sub
Function startAdd(i,iCount,iNum,iPfx)
Do Until i = iCount
Add_Now i,iCount,iNum,iPfx
Exit Do
Loop
End Function
Function Add_Now(i,iCount,iNum,iPfx)
Dim iPass, x
ReDim xNum(iCount),xPfx(iCount)
For Each x In iNum
xNum(iCount)=iNum(iCount)
xPfx(iCount)=xPfx(iCount)
Next
'Set MyForm = window.parent.topFrame.document.addItem
If i <= iCount Then
'MyForm.SKU_Prefix.value = xPfx
'MyForm.SKU_ItemNumber.value = xNum
'MyForm.method = "Post"
'MyForm.target = window.parent.mainFrame
'MyForm.Submit()
MsgBox(iPfx(i) + iNum(i))
i = i + 1
'iPass = i & "," & iCount & "," & xNum & "," & xPfx
'window.setTimeout "startAdd " & iPass & " ", 2000, "VBScript"
startAdd i,iCount,iNum,iPfx
End If
End Function
</script>
*****************************************************
VB Code:
window.setTimeout "'startAdd " & i & "," & iCount & "," & iNum & "," & iPfx & " ' ", 2000
window.setTimeout "'startAdd " & i & "," & iCount & "," & iNum & "," & iPfx & "'", 2000
window.setTimeout "'startAdd " & i & "," & iCount & "," & iNum & "," & iPfx & "'" , 2000
window.setTimeout "startAdd " & i & "," & iCount & "," & iNum & "," & iPfx , 2000
window.setTimeout "startAdd " & i & "," & iCount & "," & iNum & "," & iPfx, 2000
window.setTimeout "'startAdd " + i + "," + iCount + "," + iNum + "," + iPfx + "'" , 2000
window.setTimeout "'startAdd( " + i + "," + iCount + "," + iNum + "," + iPfx + "' )" , 2000
window.setTimeout "'startAdd(" + i + "," + iCount + "," + iNum + "," + iPfx + "')" , 2000
window.setTimeout "startAdd " + i + "," + iCount + "," + iNum + "," + iPfx + " ", 3000
window.setTimeout "startAdd " & i & "," & iCount & "," & iNum & "," & iPfx & " ", 3000
window.setTimeout "startAdd(" & i & "," & iCount & "," & iNum & "," & iPfx & ")", 3000
*****************************************************