Select Case problem

[ncozzolino]

Here is my code:


curProcess=Request.QueryString("process")
Select Case curProcess

Case "2000"
curDepartment="AA"

Case "2100"
curDepartment="Admin"

Case "2200"
curDepartment="HR"

Case "2300"
curDepartment="IT"

Case "2400"
curDepartment="Tax"

Case "2500"
curDepartment="Misc" <----Line 249

End Select

strESQL = "SELECT * FROM qaTable WHERE qaDepartment= " & curDepartment

I get this error when I run it.

Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'qaDepartment='.
/drintranet/qainput.asp, line 249

Any ideas? Thanks in advance!

[ncozzolino]

Fixed that but now I have another problem.

Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/drintranet/qainput.asp, line 247


<%
curProcess=Request.QueryString("process")
Select Case curProcess
Case "2000"
curDepartment="AA"

Case "2100"
curDepartment="Admin"

Case "2200"
curDepartment="HR"

Case "2300"
curDepartment="IT"

Case "2400"
curDepartment="Tax"

Case "2500"
curDepartment="Misc"
End Select
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='c:\database\qa.mdb' ;Persist Security Info=False"
set dbEConn = Server.CreateObject("ADODB.Connection") <----Line 247
dbEConn.Open strConnect
Dim qaTbEdit
Dim strESQL
strESQL = "SELECT * FROM qaTable WHERE qaDepartment= " & curDepartment
Set qaTbEdit = Server.CreateObject("ADODB.Recordset")
qaTbEdit.Open strESQL, dbEConn, qaQuestion
If Not qaTbEdit.EOF Then
qaTbEdit.MoveFirst
%> <select name="qaSelectE"> <option></option> <% ' Loop through names
Do While Not qaTbEdit.EOF
Response.Write "<option>"
Response.Write Trim(qaTbEdit.Fields("qaQuestion"))
Response.Write "</option>" & vbCrLf
' Move to next record
qaTbEdit.MoveNext
Loop
%> </select> <%
End If

qaTbEdit.close
dbEConn.close

%> <input type="submit" name="qaEdit" value="Edit"> </form><hr>
<form name="myForm1" method="POST" action="indelete.asp"> <%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='c:\database\qa.mdb' ;Persist Security Info=False"
set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open strConnect
Dim qaTbInput
strSQL = "SELECT * FROM qaTable WHERE qaDepartment= " & curDepartment
Set qaTbInput = Server.CreateObject("ADODB.Recordset")
qaTbInput.Open strSQL, dbConn, qaQuestion
If Not qaTbInput.EOF Then
qaTbInput.MoveFirst
%> <select name="qaSelect"> <option></option> <% ' Loop through names
Do While Not qaTbInput.EOF
Response.Write "<option>"
Response.Write Trim(qaTbInput.Fields("qaQuestion"))
Response.Write "</option>" & vbCrLf
' Move to next record
qaTbInput.MoveNext
Loop
%> </select> <%
End If
qaTbInput.close
dbconn.close

%>