Opening recordset problem

[RickyP]

This code works:
Dim Conn
Dim rsType
Dim strType
Dim Count
Dim SQL

Set Conn = Server.CreateObject("ADODB.Connection&quot
Set rsType = Server.CreateObject("ADODB.Recordset&quot

Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\premfs7\sites\premium2\blossomhandbags\database\blossom.mdb;" & _
"Persist Security Info=False"
Conn.Open

strType = Request.QueryString("Type&quot'what did they click?
SQL = "SELECT ITEMMAST.Type, ITEMMAST.Fabric " & _
"FROM ITEMMAST " & _
"GROUP BY ITEMMAST.Type, ITEMMAST.Fabric " & _
"HAVING (((ITEMMAST.Type)='" & strType & "'));"

rsType.Open SQL, Conn, , , 0

Count = 0

===========================================================
THIS CODE DOESN'T, and I have no idea why. They are basically the same. The above code is first and it calls the below code when they click on a link.

Dim Conn
Dim rsAvailSize
Dim strType
Dim strFabric
Dim SQL

Set Conn = Server.CreateObject("ADODB.Connection&quot
Set rsAvailSize = Server.CreateObject("ADODB.Recordset&quot

Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\premfs7\sites\premium2\blossomhandbags\database\blossom.mdb;" & _
"Persist Security Info=False"
Conn.Open

strType = Request.QueryString("Type&quot'what did they click?
strFabric= Request.QueryString("Fabric&quot'what did they click?

SQL = "SELECT Size FROM ITEMMAST where Type ='" & strType & "';"

rsAvailSize.Open SQL, Conn, , , 0

 

[chmohan]

did u try runing the query against databse and seeing i u returned anything?
SELECT Size FROM ITEMMAST where Type = strType( some hardcoded value)

 

[RickyP]

Yeah. Both queries return values in Access. But the second one gives and internal error 500.