Hi
Can anyone please help as I am going nuts This script fails and I
cannot get it to work in any fashion.
I have the following simple code
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head> </head>
<body>
<%
Dim Parent
Dim BomSet
Dim SelectString
Dim conn
Set conn = Server.CreateObject ("ADODB.Connection")
conn.Open "Provider = Mapics; User ID = XXXXXX ;Password =
XXXXXX;"
Parent = "NEW3WTFB3-1"
Set BomSet = Server.CreateObject("ADODB.Recordset")
SelectString = "Select PINBR, USRS1, CINBR, QTYPR From
AMFLIBA.PStruc WHERE Pinbr = "'" & Parent & "'"
With BomSet
.CursorType = 0
.CursorLocation = 2
.LockType = 1
Open SelectString
End With
While not BomSet.Eof
Response.Write Parent & " - " &
BomSet.Fields.Item("Cinbr").Value
BomSet.MoveNext()
Wend
BomSet.Close
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
-------------------------------------------------------------------
The error displayed at run time is
ADODB.Connection error '800a0e7a'
Provider cannot be found. It may not be properly installed.
/DundeeMIS/BOMXplosion.asp, line 12
-------------------------------------------------------------------
The actual line is
conn.Open "Provider = Mapics; User ID = XXXXXX ;Password =
XXXXXX;"
The provider Maipcs is one we use for other applications ie using
Delphi, Lotusscript etc
I have also tried providing the connection data directly (dsnless
connection)
Data Source = "xxx.xxx.xxx.xxx"
Provider = "IBMDA400.DataSource.1"
Password = "XXXXXX"
User ID = "XXXXXX"
Protection Level = None
Initial Catalog = "MAPMODF"
Transport Product = "Client Access"
SSL = "DEFAULT"
Force Translate = 65535
Cursor Sensitivity = 3
but that does not work either
Anyone have any ideas?
Thanks in advance
Iain
