pasar parametros

[Zeptimo]

quiero mandar traer info desde una bd de mysql a una web pero al ingresar los datos precionar el botob buscar no envia nada ni marca algun tipo de error



alguien me puede decir que estoy haciendo mal:

<%
dim strFecha1,strFecha2,intFecha1,intFecha2,strFechaHo y
dim lonRuta,TotalRegistros
TotalRegistros=0
lonRuta=0
strFechaHoy=date
Set objSesion = Server.CreateObject("libBase.classSesion")

if request.Form <> "" then
lonRuta=request.Form("cmbRutas")
strFecha1=request.form("FechaUno")
strFecha2=request.Form("FechaDos")
end if

if request.QueryString <> "" then
lonRuta=request.QueryString("pRuta")→→ ----parametro
strFecha1=request.QueryString("PFecha")→→----parametro
strFecha2=request.QueryString("PFechad")→→----parametro
end if
intFecha1= Mid(strFecha1, 7, 4) + Mid(strFecha1, 4, 2) + Mid(strFecha1, 1, 2)
intFecha2= Mid(strFecha2, 7, 4) + Mid(strFecha2, 4, 2) + Mid(strFecha2, 1, 2)

%>


paso parametros donde creo yo :

lonRuta = pRuta
intFecha1 = PFecha
intFecha2 = PFechad

strQuery ="exec sp_lam" & lonRuta& "," & objSesion.Comy(intFecha1) & "," & objSesion.Comy(intFecha2) & " "


que puedo hacer ..??



saludossssssssss