esta es la pagina
http://www.inmovista.com/abuscar/busalquilar.asp
pero navegando dando unos click pora aqui y por alla ,, y regresas a la pagina y si funciona normalmente que podria ser ,,
eset mensaje me sale cuando no funciona
---------------------------------
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
la linea esta con este simbolo
------------------------
este es el codigo
<form action="busalquilar.asp" method="post">
<select name="SelectTipo" >
<option>Seleccione Tipo de Inmueble</option>
<option value="Casas">Casas</option>
<option value="Departamentos">Departamentos</option>
<option value="LocalesOficinas">Locales y Oficinas</option>
<option value="Propiedades">Propiedades</option>
<option value="Cuartos">Cuartos</option>
<option value="Playas">Playas</option>
<option value="Terrenos">Terrenos</option>
</select>
<input type="submit" name="Submit" value="Buscar">
</form></td>
</tr>
</table>
<%Dim connStr
Set oConn=Server.CreateObject("ADODB.Connection")
filePath = Server.MapPath("fichero.mdb")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +filePath)
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
ofrecimiento="Alquilar"
tipo=request("SelectTipo")
rs.Open "select * from inmuebles Where Tipo='" & tipo & "' AND Ofrecimiento='" & ofrecimiento & "' order by [Distrito] asc", oConn, 3, 4If Not rs.EOF Then
response.Write "<span class=textubicar>"
Response.Write "No. de Inmuebles : " & rs.RecordCount
response.Write "</span>"
Response.Write "<table align=center border=1 width=610 bordercolor=#FFFfff cellpadding=0 cellspacing=0 class=anunbortab>"
Response.Write "<tr class=anuntemafondo><td width=80>"
Response.Write "Detalles"
response.Write "</td>"
response.Write "<td width=51>"
response.Write "Distrito"
response.Write "</td>"
response.Write "<td width=63>"
response.Write "Area m2"
response.Write "</td>"
response.Write "<td width=38>"
response.Write "Dorm"
response.Write "</td>"
response.Write "<td width=39>"
response.Write "Baños"
response.Write "</td>"
response.Write "<td width=61>"
response.Write "Cocheras"
response.Write "</td>"
response.Write "<td width=71>"
response.Write "Us$ Precio"
response.Write "</td>"
response.Write "<td width=189>"
response.Write "Anunciante"
response.Write "</td>"
Response.Write "</tr>"
While Not rs.EOF
Response.Write "<tr><td height=39>"
response.Write "<a href=" & rs("LinkDetalles") & ">"
Response.Write "<IMG SRC="""&RS("Detalles")&""" border=0 alt=Detalles>"
response.Write "</a>"
response.Write "<br>Codigo:"
response.write rs("Codigo")
Response.Write "</td><td height=39>"
Response.Write rs("Distrito")
response.Write "</td><td height=39>"
response.Write "At:"
Response.Write rs("At")
response.Write "<br>"
response.Write "Ac:"
response.Write rs("Ac")& "</td><td height=39>"
Response.Write rs("Dorm") & "</td><td height=39>"
Response.Write rs("Baños") & "</td><td height=39>"
Response.Write rs("Cocheras") & "</td><td height=39>"
Response.Write rs("Precio") & "</td><td height=39>"
Response.Write rs("Anunciante")
response.write "<form action=/asp/mailasp.asp method=post target=_blank >"
response.write "<input type=hidden name=Anunciante value='"&rs("Anunciante")&"'>"
response.write "<input type=hidden name=Mail value='" & rs("Mail")&"'>"
response.write "<input type=hidden name=Codigo value='"&rs("Codigo")&"'>"
response.write "<input type=hidden name=Distrito value='"&rs("Distrito")&"'>"
response.write "<input type=hidden name=Ofrecimiento value='"&rs("Ofrecimiento")&"'>"
response.write "<input type=hidden name=Precio value='"&rs("Precio")&"'>"
response.write "<input type=submit value=" & rs("Mail")&" >"
response.write "</form>"
Response.Write "</td></tr>"
rs.MoveNext
Wend
Response.Write "</table>"
Else
Response.Write "Por favor Seleccione en tipo de inmueble. Gracias."
End If
rs.Close
Set rs = Nothing
%>
por agradeceria su ayuda .. please
