error al enviar formulario, too few parameters

[Gaby_Corr]

Código:

Dim objCDOMail      
Dim cuerpo
Dim var				
Dim cn,rs
Dim nfolio,rsc,ccn
		
  Set cn = Server.CreateObject("ADODB.Connection")
  set rs = Server.Createobject("ADODB.RecordSet")
  cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("\db\"+"regproyectos.mdb") & ";" & "PWD="
  squery = "SELECT  MAX(folio) as maximo  FROM proyectos"
  rs.open squery,cn
  numfolio =  rs.fields("maximo")
  nfolio =  numfolio + 1 
  
  response.write(nfolio)
  rs.Close
  Set rs = Nothing	
  cn.Close
  Set cn = nothing
  
  Set ccn = Server.CreateObject("ADODB.Connection")
  set rsc = Server.Createobject("ADODB.RecordSet")
  ccn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" &  server.mappath("\db\"+"regproyectos.mdb") & ";" & "PWD="
  squeryc ="Select folio, nombre from proyectos where folio = numfolio "
  rsc.open squeryc,ccn
  response.write(numfolio)

Explico que es lo que deseo hacer(tengo un formulario y al darle enviar hago esto):

1. con squery, quiero traerme el valor maximo que hay en mi tabla para poder usar ese numero yagregar el consecutivo

2. vuelvo a abrir la conexion por q no estoy segura que pueda hacer lo siguente con el squery, así que vuelvo a generar otro squeryc para seleccionar los datos que quiero de mi tabla


Este codigo lo hice para ver si tomaba ciertos valores pero me marca un error que es esto en la linea que esta en rojo:

ERROR
-------------------------
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/registro/enviarfrmpro.asp, line 30


Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)

Page:
POST 291 bytes to /registro/enviarfrmpro.asp

POST Data:
tiproy=Casas&nombre0=&direccion0=&telefono0=&email 0=&nombre1=&direccion1=&telefono1=&email1=&textare a=&etapa=Planeaci%F3n&porciento=100%25&firstinput= 2007%2F08%2F01&secondinput=2007%2F08%2F01&thirdinp . . .
-------------------------