fucking "se esperaba 1"

[zangano]

Creo que da flojera ver el código completo..pero bueno, ahora me ayudas, jeje xDDD

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString = connectionStr


'Se ingresa consulta nueva
objRs.Open "SELECT * from consultas", objConn, 3, 3
objRs.AddNew
objRS("ticket") = ucase(GetRefNumber)
objRS("departamento") = FormatStr(Trim(Request.Form("depto")))
objRs.Update
objRs.Close

'Se actualiza el número de consultas del departamento seleccionado
LINEA 118>>>>>>>>>>>>> objRs.Open "SELECT * from departamentos WHERE d_nombre = " & Request.Form("depto"), objConn, 3, 3
objRs("d_cantidad") = objRs("d_cantidad") + 1
objRs.Update
objRs.Close

objConn.Close
Set objRs = Nothing
Set objConn = Nothing




_____


En fin, así es el código de la página, le quite algunas líneas irrelevantes para no hacerlo fastidiar mas a los ojos del lector jeje.


Salu2 y gracias al que guste colaborar