Ver Mensaje Individual
  #38 (permalink)  
Antiguo 02/01/2009, 06:59
Avatar de Adler
Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: asp subir archivos o foto

Hola

Inserta este script en un archivo con el nombre prueba.asp e insertalo en el mismo directorio en el que está buscarmultiple.asp. Edita la ruta hacia tu bd.

Cita:
<%
control = Request.QueryString("c")
IFcontrol = "" then
%>
<form action="prueba.asp" method="get">
<input name="tmultiple" type="text" id="tmultiple" value="Buscar"/>
<input name="c" type="text" value="1"/>
<input type="submit" name="button3" id="button3" value="Buscar" />
</form>
<%
ELSE
texto = Replace(Request.QueryString("tmultiple"), "'", "&#39")

set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./XXX.mdb"))
set tabla = Server.CreateObject("ADODB.Recordset")

ssql = "Select * from PELICULAS where Interpretes like '" & tmultiple & "%' ORDER by " &_
"Anio,Titulo asc"
tabla.Open ssql,conexion,adopenstatic,adcmdtext
if not tabla.eof then
Response.write Replace(tabla.fields("Interprete"), "&#39", "'")
else
Response.write "No Existe"
end if

tabla.Close
set tabla=nothing
conexion.Close
set conexion=nothing
END IF
%>
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />