ADO/Function Confusion

[John Shaw]

Hi, I'm baffled and frustrated.

I'm working on an export process from my web server to our mainframe.
I can't get the function below to work within the export process.
When I strip it out and runit by itself(see below), it works. In the
file where I need it to work, it doesn't. I'm sure the values are
being passed. The function seems to choke on the rstMain.Open line.
It won't do a response.write after that.

I assume something in the rest of my code is interfering. Can you
suggest things that might cause this problem? Thanks

John


<%
Dim intRecordCount
Dim strAS400File
Dim strOrder_ID

strOrder_ID = "00078275"
strAS400File = "TEST"
intRecordCount = Check_Header_RecordCount("",strOrder_ID)
Response.write("Header intRecordCount: " & intRecordCount & "<br>")
%>

<%
Function Check_Header_RecordCount(strShipTo, strAS400_ID)

Dim rstMain
set rstMain = CreateObject("ADODB.Recordset")
rstMain.CursorLocation = 3
rstMain.Open "SELECT * FROM " & strAS400File & ".IHWEBHUP WHERE
CF05AB='" & strShipTo & "' AND ORD#AB='" & strAS400_ID &"'", _
"DATABASE=IBMDA400.DataSource.1;UID=TESTUSER;PWD=T EST;DSN=TESTDSN"

Check_Header_RecordCount = rstMain.RecordCount

rstMain.close

End Function
%>

[McKirahan]

"John Shaw" <jmshaw@weir.net> wrote in message
news:91422298.0310200727.3b11b003@posting.google.c om...

> Hi, I'm baffled and frustrated.
>
> I'm working on an export process from my web server to our mainframe.
> I can't get the function below to work within the export process.
> When I strip it out and runit by itself(see below), it works. In the
> file where I need it to work, it doesn't. I'm sure the values are
> being passed. The function seems to choke on the rstMain.Open line.
> It won't do a response.write after that.
>
> I assume something in the rest of my code is interfering. Can you
> suggest things that might cause this problem? Thanks
>
> John
>
>
> <%
> Dim intRecordCount
> Dim strAS400File
> Dim strOrder_ID
>
> strOrder_ID = "00078275"
> strAS400File = "TEST"
> intRecordCount = Check_Header_RecordCount("",strOrder_ID)
> Response.write("Header intRecordCount: " & intRecordCount & "<br>")
> %>
>
> <%
> Function Check_Header_RecordCount(strShipTo, strAS400_ID)
>
> Dim rstMain
> set rstMain = CreateObject("ADODB.Recordset")
> rstMain.CursorLocation = 3
> rstMain.Open "SELECT * FROM " & strAS400File & ".IHWEBHUP WHERE
> CF05AB='" & strShipTo & "' AND ORD#AB='" & strAS400_ID &"'", _
> "DATABASE=IBMDA400.DataSource.1;UID=TESTUSER;PWD=T EST;DSN=TESTDSN"
>
> Check_Header_RecordCount = rstMain.RecordCount
>
> rstMain.close
>
> End Function
> %>

This is just a variation of your code -- does it work?

<% Option Explicit
Dim strAS400File
strAS400File = "TEST"
Dim strOrder_ID
strOrder_ID = "00078275"
Dim intRecordCount
intRecordCount = Check_Header_RecordCount("",strOrder_ID)
Response.Write("<br> Header intRecordCount: " & intRecordCount)

Function Check_Header_RecordCount(strShipTo, strAS400_ID)
Const adOpenStatic = 3
Dim strDSN
strDSN =
"DATABASE=IBMDA400.DataSource.1;UID=TESTUSER;PWD=T EST;DSN=TESTDSN"
Dim intRST
intRST = -1
Dim strSQL
strSQL = "SELECT * FROM " & strAS400File & ".IHWEBHUP
strSQL = strSQL & " WHERE CF05AB = '" & strShipTo & "'"
strSQL = strSQL & " AND ORD#AB = '" & strAS400_ID & "'"
Response.Write("<br> strSQL = " & strSQL)
Dim objRST
Set objRST = CreateObject("ADODB.Recordset")
objRST.Open strSQL, strDSN, adOpenStatic
intRST = objRST.RecordCount
objRST.Close
Set objRST = Nothing
Response.Write("<br> intRST = " & intRST)
Check_Header_RecordCount = intRST
End Function
%>

[John Shaw]

"McKirahan" <News@McKirahan.com> wrote in message news:<koUkb.597276$Oz4.592267@rwcrnsc54>...

> "John Shaw" <jmshaw@weir.net> wrote in message
> news:91422298.0310200727.3b11b003@posting.google.c om...

> > Hi, I'm baffled and frustrated.
> >
> > I'm working on an export process from my web server to our mainframe.
> > I can't get the function below to work within the export process.
> > When I strip it out and runit by itself(see below), it works. In the
> > file where I need it to work, it doesn't. I'm sure the values are
> > being passed. The function seems to choke on the rstMain.Open line.
> > It won't do a response.write after that.
> >
> > I assume something in the rest of my code is interfering. Can you
> > suggest things that might cause this problem? Thanks
> >
> > John
> >
> >
> > <%
> > Dim intRecordCount
> > Dim strAS400File
> > Dim strOrder_ID
> >
> > strOrder_ID = "00078275"
> > strAS400File = "TEST"
> > intRecordCount = Check_Header_RecordCount("",strOrder_ID)
> > Response.write("Header intRecordCount: " & intRecordCount & "<br>")
> > %>
> >
> > <%
> > Function Check_Header_RecordCount(strShipTo, strAS400_ID)
> >
> > Dim rstMain
> > set rstMain = CreateObject("ADODB.Recordset")
> > rstMain.CursorLocation = 3
> > rstMain.Open "SELECT * FROM " & strAS400File & ".IHWEBHUP WHERE
> > CF05AB='" & strShipTo & "' AND ORD#AB='" & strAS400_ID &"'", _
> > "DATABASE=IBMDA400.DataSource.1;UID=TESTUSER;PWD=T EST;DSN=TESTDSN"
> >
> > Check_Header_RecordCount = rstMain.RecordCount
> >
> > rstMain.close
> >
> > End Function
> > %>

>
> This is just a variation of your code -- does it work?
>
> <% Option Explicit
> Dim strAS400File
> strAS400File = "TEST"
> Dim strOrder_ID
> strOrder_ID = "00078275"
> Dim intRecordCount
> intRecordCount = Check_Header_RecordCount("",strOrder_ID)
> Response.Write("<br> Header intRecordCount: " & intRecordCount)
>
> Function Check_Header_RecordCount(strShipTo, strAS400_ID)
> Const adOpenStatic = 3
> Dim strDSN
> strDSN =
> "DATABASE=IBMDA400.DataSource.1;UID=TESTUSER;PWD=T EST;DSN=TESTDSN"
> Dim intRST
> intRST = -1
> Dim strSQL
> strSQL = "SELECT * FROM " & strAS400File & ".IHWEBHUP
> strSQL = strSQL & " WHERE CF05AB = '" & strShipTo & "'"
> strSQL = strSQL & " AND ORD#AB = '" & strAS400_ID & "'"
> Response.Write("<br> strSQL = " & strSQL)
> Dim objRST
> Set objRST = CreateObject("ADODB.Recordset")
> objRST.Open strSQL, strDSN, adOpenStatic
> intRST = objRST.RecordCount
> objRST.Close
> Set objRST = Nothing
> Response.Write("<br> intRST = " & intRST)
> Check_Header_RecordCount = intRST
> End Function
> %>

Nope, this is what I get.

strSQL = SELECT * FROM TEST.IHWEBHUP WHERE CF05AB = '' AND ORD#AB = '00078275'
intRST = -1
Header intRecordCount: -1

[McKirahan]

"John Shaw" <jmshaw@weir.net> wrote in message
news:91422298.0310201914.2f84c93d@posting.google.c om...

> "McKirahan" <News@McKirahan.com> wrote in message

news:<koUkb.597276$Oz4.592267@rwcrnsc54>...

> > "John Shaw" <jmshaw@weir.net> wrote in message
> > news:91422298.0310200727.3b11b003@posting.google.c om...

> > > Hi, I'm baffled and frustrated.
> > >
> > > I'm working on an export process from my web server to our mainframe.
> > > I can't get the function below to work within the export process.
> > > When I strip it out and runit by itself(see below), it works. In the
> > > file where I need it to work, it doesn't. I'm sure the values are
> > > being passed. The function seems to choke on the rstMain.Open line.
> > > It won't do a response.write after that.
> > >
> > > I assume something in the rest of my code is interfering. Can you
> > > suggest things that might cause this problem? Thanks
> > >
> > > John
> > >
> > >
> > > <%
> > > Dim intRecordCount
> > > Dim strAS400File
> > > Dim strOrder_ID
> > >
> > > strOrder_ID = "00078275"
> > > strAS400File = "TEST"
> > > intRecordCount = Check_Header_RecordCount("",strOrder_ID)
> > > Response.write("Header intRecordCount: " & intRecordCount & "<br>")
> > > %>
> > >
> > > <%
> > > Function Check_Header_RecordCount(strShipTo, strAS400_ID)
> > >
> > > Dim rstMain
> > > set rstMain = CreateObject("ADODB.Recordset")
> > > rstMain.CursorLocation = 3
> > > rstMain.Open "SELECT * FROM " & strAS400File & ".IHWEBHUP WHERE
> > > CF05AB='" & strShipTo & "' AND ORD#AB='" & strAS400_ID &"'", _
> > > "DATABASE=IBMDA400.DataSource.1;UID=TESTUSER;PWD=T EST;DSN=TESTDSN"
> > >
> > > Check_Header_RecordCount = rstMain.RecordCount
> > >
> > > rstMain.close
> > >
> > > End Function
> > > %>

> >
> > This is just a variation of your code -- does it work?
> >
> > <% Option Explicit
> > Dim strAS400File
> > strAS400File = "TEST"
> > Dim strOrder_ID
> > strOrder_ID = "00078275"
> > Dim intRecordCount
> > intRecordCount = Check_Header_RecordCount("",strOrder_ID)
> > Response.Write("<br> Header intRecordCount: " & intRecordCount)
> >
> > Function Check_Header_RecordCount(strShipTo, strAS400_ID)
> > Const adOpenStatic = 3
> > Dim strDSN
> > strDSN =
> > "DATABASE=IBMDA400.DataSource.1;UID=TESTUSER;PWD=T EST;DSN=TESTDSN"
> > Dim intRST
> > intRST = -1
> > Dim strSQL
> > strSQL = "SELECT * FROM " & strAS400File & ".IHWEBHUP
> > strSQL = strSQL & " WHERE CF05AB = '" & strShipTo & "'"
> > strSQL = strSQL & " AND ORD#AB = '" & strAS400_ID & "'"
> > Response.Write("<br> strSQL = " & strSQL)
> > Dim objRST
> > Set objRST = CreateObject("ADODB.Recordset")
> > objRST.Open strSQL, strDSN, adOpenStatic
> > intRST = objRST.RecordCount
> > objRST.Close
> > Set objRST = Nothing
> > Response.Write("<br> intRST = " & intRST)
> > Check_Header_RecordCount = intRST
> > End Function
> > %>

>
> Nope, this is what I get.
>
> strSQL = SELECT * FROM TEST.IHWEBHUP WHERE CF05AB = '' AND ORD#AB =

'00078275'

> intRST = -1
> Header intRecordCount: -1

Try enclosing ORD#AB in brackets; it may not like "#" : [ORD#AB]

Also, is ORD#AB numeric; if fo then remove the apostrophes:
SELECT * FROM TEST.IHWEBHUP WHERE CF05AB = '' AND ORD#AB = 00078275