Procesar asp
<%
'Creamos las variables a usar
Dim Nom_Dominio, Ext_Dominio, FecCreacion1_Dominio, FecCreacion2_Dominio, ProDom_Dominio, ProHos_Dominio
Dim Consulta, Ordenar
'Recogemos los datos del formulario Busqueda.asp
Dominio = request.form("cboDominio")
Nom_Dominio=trim(request.form("txtNomDominio"))
Ext_Dominio=request.form("cboExtension")
FecExpiracion1_Dominio=request.form("FechaExpiraci on1")
FecExpiracion2_Dominio=request.form("FechaExpiraci on2")
ProDom_Dominio=request.form("cboProveedorDominio")
ProHos_Dominio=request.form("cboProveedorServidor" )
Ordenar =request.form("cboOrdenar")
Columna1=request.form("optNombre")
'Creamos los parametros de la consulta
Consulta="SELECT * FROM Dominios WHERE"
Criterio1="Dominio_Nombre LIKE '%" & Nom_Dominio & "%'"
Criterio2="and Dominio_Extension='"& Ext_Dominio & "'"
Criterio3="and Dominio_FechaExpiracion BETWEEN #" & FecExpiracion1_Dominio & "# and #" & FecExpiracion2_Dominio & "#"
Criterio4="and Dominio_Proveedor='"& ProDom_Dominio &"'"
Criterio5="and Dominio_Hosting='"& ProHos_Dominio &"'"
if Dominio="Todos" and Ext_Dominio = "Todas" and ProDom_Dominio = "Todos" and ProHos_Dominio = "Todos" then
SQL= "SELECT * FROM Dominios"
else
if Ext_Dominio = "Todas" and ProDom_Dominio = "Todos" and ProHos_Dominio = "Todos" then
SQL= Consulta & " " & Criterio1 & " " & Criterio3 & " " & "ORDER BY" & " " & Ordenar
else
if Ext_Dominio = "Todas" and ProDom_Dominio = "Todos" then
SQL= Consulta & " " & Criterio1 & " " & Criterio3 & " " & Criterio5 & " " & "ORDER BY" & " " & Ordenar
else
if Ext_Dominio = "Todas" and ProHos_Dominio = "Todos" then
SQL = Consulta & " " & Criterio1 & " " & Criterio3 & " " & Criterio4 & " " & "ORDER BY" & " " & Ordenar
else
if ProDom_Dominio= "Todos" and ProHos_Dominio = "Todos" then
SQL = Consulta & " " & Criterio1 & " " & Criterio2 & " " & Criterio3 & " " & "ORDER BY" & " " & Ordenar
else
if ProHos_Dominio = "Todos" then
SQL = Consulta & " " & Criterio1 & " " & Criterio2 & " " & Criterio3 & " " & Criterio4 & " " & "ORDER BY" & " " & Ordenar
else
if ProDom_Dominio = "Todos" then
SQL = Consulta & " " & Criterio1 & " " & Criterio2 & " " & Criterio3 & " " & Criterio5 & " " & "ORDER BY" & " " & Ordenar
else
if Ext_Dominio ="Todas" then
SQL = Consulta & " " & Criterio1 & " " & Criterio3 & " " & Criterio4 & " " & Criterio5 & " " & "ORDER BY" & " " & Ordenar
else
SQL = Consulta & " " & Criterio1 & " " & Criterio2 & " " & Criterio4 & " " & Criterio5 & " " & "ORDER BY" & " " & Ordenar
end if
end if
end if
end if
end if
end if
end if
end if
Set cn = server.createobject("ADODB.Connection")
Set rs = server.createobject("ADODB.Recordset")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\WebServers\Databases\Dominios.md b"
rs.open SQL, cn
%>
