<%@LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% 'session("porautorizar")= "catalogo.asp" 'if session("autorizacion")<>1 then 'response.redirect "control.asp" 'end if %> CGC Mirasi MEXICO Catalogo Productos
Home

Geotécnia, Construcción y Geosinteticos

Catalogo de Productos

[ Home ][ Conozcanos ][ Objetivo y Misión ][ Contáctenos ]

 [ Ubicación ][ Solicite una Solución ] [ Productos ]
<% if trim(Request.Querystring("varhtm3"))="" and trim(Request.Querystring("varhtm6")) = "" then Response.Write(". LISTA DE TODOS LOS PRODUCTOS") ELSE Response.Write(". LISTA DE PRODUCTOS " & Trim(Request.Querystring("varhtm3")) & " " & Trim(Request.Querystring("varhtm6"))) END IF %>
 
     
<% Dim dbobj01, dbtbl01, dbstr01 Dim gendata Dim coorde Dim vartmp01 Dim vartmp02 Dim vartmp03 Dim varcamp1 Dim varcamp2 Dim varcamp3 Dim varcamp4 Dim varcamp5 Dim varcamp6 Dim varcamp7 Dim varcamp8 Dim varcamp9 Dim varcamp10 Dim varcamp11 Dim varcamp12 Dim varcamp13 Dim varcamp14 Dim varcamp15 Dim varcamp16 Dim varcamp17 Dim varcamp18 Dim varcamp19 Dim varstr01 Dim varstr02 Dim varstr03 Dim varnum01 Dim varnum02 Dim varnum03 Dim varnum04 Dim varerror Dim vmoneda Dim vdisp Dim varfiltros Dim varley01 Dim varley02 Dim varley03 Dim varley04 Dim PaginaActual Dim PaginasTotales Dim TamPagina Dim CuantosRegistros Dim dbtbl11 Dim dbtbl12 Dim dbtbl13 Dim dbtbl14 Dim dbtbl15 Dim dbstr11 Dim dbstr12 Dim dbstr13 Dim dbstr14 Dim dbstr15 Dim sqMarca Dim sqGenero Dim sqTipo Dim sqUso Dim sqCaracteristica Dim strConn TamPagina=10 if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if set dbobj01 = Server.CreateObject("ADODB.Connection") set dbtbl01 = Server.CreateObject("ADODB.Recordset") set dbtbl11 = Server.CreateObject("ADODB.Recordset") set dbtbl12 = Server.CreateObject("ADODB.Recordset") set dbtbl13 = Server.CreateObject("ADODB.Recordset") set dbtbl14 = Server.CreateObject("ADODB.Recordset") set dbtbl15 = Server.CreateObject("ADODB.Recordset") ' para MDB 'dbobj01.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("BD/base.mdb") 'para MySQL strConn = "DRIVER={MySQL ODBC 3.51 Driver}; Server=localhost; Database=cgcmir35_base; UID=cgcmir35_david; PWD=0301165" dbobj01.Open strConn dbstr01="SELECT * FROM maestro ORDER BY Tipo" 'dbstr01="SELECT * FROM maestro GROUP BY Tipo" dbstr11="SELECT * FROM marca ORDER BY Descrip" dbstr12="SELECT * FROM genero ORDER BY Descrip" dbstr13="SELECT * FROM tipo ORDER BY Descrip" dbstr14="SELECT * FROM uso ORDER BY Descrip" dbstr15="SELECT * FROM caracteristica ORDER BY Descrip" dbtbl01.PageSize=TamPagina dbtbl01.CacheSize=TamPagina dbtbl01.Open dbstr01, dbobj01, 1, 2 dbtbl11.Open dbstr11, dbobj01, 1, 2 dbtbl12.Open dbstr12, dbobj01, 1, 2 dbtbl13.Open dbstr12, dbobj01, 1, 2 dbtbl14.Open dbstr12, dbobj01, 1, 2 dbtbl15.Open dbstr12, dbobj01, 1, 2 sqMarca = "SELECT * FROM marca" sqGenero = "SELECT * FROM genero" sqTipo = "SELECT * FROM tipo" sqUso = "SELECT * FROM uso" sqCaracteristica = "SELECT * FROM caracteristica" Set dbtbl11 = dbobj01.Execute(sqMarca) Set dbtbl12 = dbobj01.Execute(sqGenero) Set dbtbl13 = dbobj01.Execute(sqTipo) Set dbtbl14 = dbobj01.Execute(sqUso) Set dbtbl15 = dbobj01.Execute(sqCaracteristica) varnum01=0 varerror=0 varcamp1 = Trim(Request.Form("varhtm1")) varcamp2 = Trim(Request.Form("varhtm2")) varcamp3 = Trim(Request.Querystring("varhtm3")) varcamp4 = Trim(Request.Form("varhtm4")) varcamp5 = Trim(Request.Form("varhtm5")) varcamp6 = Trim(Request.Querystring("varhtm6")) varcamp7 = Trim(Request.Form("varhtm7")) varcamp8 = Trim(Request.Form("varhtm8")) varcamp9 = Trim(Request.Form("varhtm9")) varcamp10 = Trim(Request.Form("varhtm10")) varcamp15 = Trim(Request.Form("varhtm11")) varcamp16 = Trim(Request.Form("varhtm12")) varcamp11 = Trim(Request.Form("varhtmf1")) varcamp12 = Trim(Request.Form("varhtmf2")) varcamp13 = Trim(Request.Form("varhtmf3")) varcamp14 = Trim(Request.Form("varhtmf4")) varcamp17 = Trim(Request.Form("varhtmf5")) varcamp18 = Trim(Request.Form("varhtmf6")) varcamp19 = Trim(Request.Form("varhtm13")) varstr03 = Trim(Request.Form("varhtmb01")) & Trim(Request.Form("varhtmb02")) & Trim(Request.Form("varhtmb03")) if varcamp3 <> "" then varstr03 = "Buscar" end if select case varstr03 Case "Buscar" ibusca Case "Guardar" varnum03=0 vartmp03 = varcamp1 iagrega varcamp1 = vartmp03 ibusca Case "Eliminar" if len(varcamp2)>0 then iniborra else varstr03 = "Eliminar" varnum01 = 2 varerror = 2 varstr02 = "ID" end if end select if varstr03 <> "" then select case varerror case 0 vartmp02 = "Ok" case 1 vartmp02 = "Fue completada la accion" case 2 vartmp02 = "Debe responder para el campo " & varstr02 & " Cancelada la accion" case 3 vartmp02 = "No Existen registros. Cancelada la accion" case 4 vartmp02 = "No Existen registros suficientes. Cancelada la accion" case 5 vartmp02 = "No existe imposible" end select select case varnum01 case 0 vartmp02 = vartmp02 & " Mostrar" case 1 vartmp02 = vartmp02 & " Guardar" case 2 vartmp02 = vartmp02 & " Eliminar registro" & varnum04 case 3 vartmp02 = vartmp02 & " Buscar" end select end if varnum02 = dbtbl01.RecordCount Formulario PintarTabla if varnum01 = 3 then dbtbl01.Filter = "" limpiar sub ibusca () varnum01=3 if dbtbl01.recordcount > 1 then if len(varcamp1)>0 then varstr01= dbtbl01.Fields(1).Name & " like '" & varcamp1 & "*'" else varstr01="" end if if len(varcamp3)>0 then if len(varstr01)>0 then varstr01=varstr01 & " AND " & dbtbl01.Fields(2).Name & " like '" & varcamp3 & "*'" else varstr01= dbtbl01.Fields(2).Name & " like '" & varcamp3 & "*'" end if end if if len(varcamp4)>0 then if len(varstr01)>0 then varstr01=varstr01 & " AND " & dbtbl01.Fields(3).Name & " like '" & varcamp4 & "*'" else varstr01= dbtbl01.Fields(3).Name & " like '" & varcamp4 & "*'" end if end if if len(varcamp5)>0 then if len(varstr01)>0 then varstr01=varstr01 & " AND " & dbtbl01.Fields(4).Name & " like '" & varcamp5 & "*'" else varstr01= dbtbl01.Fields(4).Name & " like '" & varcamp5 & "*'" end if end if if len(varcamp6)>0 then if len(varstr01)>0 then varstr01=varstr01 & " AND " & dbtbl01.Fields(5).Name & " like '" & varcamp6 & "*'" else varstr01= dbtbl01.Fields(5).Name & " like '" & varcamp6 & "*'" end if end if if len(varcamp8)>0 then varcamp8 = replace(varcamp8,"'","") if len(varstr01)>0 then varstr01=varstr01 & " AND " & dbtbl01.Fields(9).Name & " like '*" & varcamp8 & "*'" else varstr01= dbtbl01.Fields(9).Name & " like '*" & varcamp8 & "*'" end if end if if len(varcamp9)>0 then varcamp9 = replace(varcamp9,"'","") if len(varstr01)>0 then varstr01=varstr01 & " AND " & dbtbl01.Fields(10).Name & " like '*" & varcamp9 & "*'" else varstr01= dbtbl01.Fields(10).Name & " like '*" & varcamp9 & "*'" end if end if dbtbl01.Filter = varstr01 else varerror=4 end if end sub sub iagrega () varnum01=1 varnum03=0 if len(varcamp1)=0 then varnum03=1 if len(varcamp3)=0 and varnum03=0 then varnum03=2 if len(varcamp4)=0 and varnum03=0 then varnum03=3 if len(varcamp5)=0 and varnum03=0 then varnum03=4 if len(varcamp6)=0 and varnum03=0 then varnum03=5 if len(varcamp7)=0 and varnum03=0 then varnum03=6 if len(varcamp8)=0 and varnum03=0 then varnum03=7 if len(varcamp9)=0 and varnum03=0 then varnum03=8 if len(varcamp10)=0 and varnum03=0 then varnum03=9 if len(varcamp15)=0 and varnum03=0 then varnum03=10 if len(varcamp16)=0 and varnum03=0 then varnum03=11 if len(varcamp19)=0 and varnum03=0 then varnum03=13 if len(varcamp2)>0 then dbtbl01.MoveFirst dbtbl01.Find dbtbl01.Fields(0).Name & " ='" & trim(varcamp2) & "'" if dbtbl01.fields(0).value = clng(varcamp2) then varnum04 = dbtbl01.Fields("Id") else varnum03 = 12 end if else if varnum03=0 then dbtbl01.AddNew end if if varnum03=0 then dbtbl01.Fields(1)=varcamp1 dbtbl01.Fields(2)=varcamp3 dbtbl01.Fields(3)=varcamp4 dbtbl01.Fields(4)=varcamp5 dbtbl01.Fields(5)=varcamp6 dbtbl01.Fields(6)=Date 'dbtbl01.Fields(7) = session("elusuario") 'dbtbl01.Fields(7) = Request.ServerVariables("REMOTE_ADDR") dbtbl01.Fields(8)=varcamp7 dbtbl01.Fields(9)=varcamp8 dbtbl01.Fields(10)=varcamp9 dbtbl01.Fields(11)=varcamp10 dbtbl01.Fields(12)=varcamp15 dbtbl01.Fields(13)=varcamp16 dbtbl01.Fields(14)=varcamp19 dbtbl01.Update varnum04 = dbtbl01.Fields("Id") varcamp1="" varcamp3="" varcamp4="" 'varcamp5="" varcamp6="" varcamp7="" varcamp8="" varcamp9="" varcamp10="" varcamp15="" varcamp16="" varcamp19="" else select case varnum03 case 1 varstr02=dbtbl01.Fields(1).Name case 2 varstr02=dbtbl01.Fields(2).Name case 3 varstr02=dbtbl01.Fields(3).Name case 4 varstr02=dbtbl01.Fields(4).Name case 5 varstr02=dbtbl01.Fields(5).Name case 6 varstr02=dbtbl01.Fields(8).Name case 7 varstr02=dbtbl01.Fields(9).Name case 8 varstr02=dbtbl01.Fields(10).Name case 9 varstr02=dbtbl01.Fields(11).Name case 10 varstr02=dbtbl01.Fields(12).Name case 11 varstr02=dbtbl01.Fields(13).Name case 12 varstr02=dbtbl01.Fields(0).Name case 13 varstr02=dbtbl01.Fields(14).Name end select varerror=2 end if if dbtbl01.recordcount > 0 then dbtbl01.MoveFirst end if end sub sub iniborra () varnum01=2 if dbtbl01.recordcount > 0 then dbtbl01.MoveFirst dbtbl01.Find dbtbl01.Fields(0).Name & " ='" & trim(varcamp2) & "'" if dbtbl01.EOF = false then if dbtbl01.fields(0).value = clng(varcamp2) then varnum04 = dbtbl01.Fields("Id") dbtbl01.Delete dbtbl01.Update end if else varerror=5 end if if dbtbl01.recordcount > 0 then dbtbl01.MoveFirst end if else varerror=3 end if end sub sub limpiar () dbobj01.Close set dbobj01 = nothing end sub Sub PintarTabla () dim objfs dim verifimg if CInt(Request.Querystring("pagina")) > 0 then varfiltros = Request.Querystring("filtro") dbtbl01.Filter = varfiltros varstr01 = varfiltros end if PaginasTotales=dbtbl01.PageCount if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if if PaginasTotales=0 then Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("
No se encontraron resultados.
" & vbCrlf ) else dbtbl01.AbsolutePage=PaginaActual CuantosRegistros=0 Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) if varstr03 <> "" or CInt(Request.Querystring("pagina")) > 0 then if varnum01 <> 2 then do while not dbtbl01.EOF and CuantosRegistros < TamPagina Set objfs = CreateObject("Scripting.FileSystemObject") if objfs.FileExists("cat/imgcat/" & dbtbl01.Fields(0) & ".jpg") then verifimg = dbtbl01.Fields(0) else verifimg = "00" end if Gendata = dbtbl01.Fields(0) gendata = gendata & "','" & dbtbl01.Fields(1) gendata = gendata & "','" & dbtbl01.Fields(2) gendata = gendata & "','" & dbtbl01.Fields(3) gendata = gendata & "','" & dbtbl01.Fields(4) gendata = gendata & "','" & dbtbl01.Fields(5) gendata = gendata & "','" & dbtbl01.Fields(8) gendata = gendata & "','" & dbtbl01.Fields(9) gendata = gendata & "','" & dbtbl01.Fields(10) gendata = gendata & "','" & dbtbl01.Fields(11) gendata = gendata & "','" & dbtbl01.Fields(12) gendata = gendata & "','" & formatnumber(dbtbl01.Fields(13),2) gendata = gendata & "','" & dbtbl01.Fields(14) & "'" coorde=coorde+16 Response.Write("" & vbCrlf ) Response.Write("" ) Response.Write("" ) Response.Write("" ) 'select case dbtbl01.Fields(11) ' case 0 ' vdisp = "No" ' case 1 ' vdisp = "Si" 'end select 'Response.Write("" ) 'select case dbtbl01.Fields(12) ' case 1 ' vmoneda = "MEX." ' case 2 ' vmoneda = "USD" 'end select 'Response.Write("" ) 'Response.Write("" ) Response.Write("" & vbCrlf ) CuantosRegistros=CuantosRegistros+1 dbtbl01.MoveNext loop end if else Response.Write("" & vbCrlf ) end if Response.Write("
" & dbtbl01.Fields(0).Name & "" & dbtbl01.Fields(9).Name & "" & dbtbl01.Fields(10).Name & "
" & dbtbl01.Fields(0) & "" & dbtbl01.Fields(9) & "" & dbtbl01.Fields(10) & "" & vdisp & "" & vmoneda & "" & formatnumber(dbtbl01.Fields(13),2) & "
") varley01 = "" & vartmp02 & " Registros Encontrados:" & dbtbl01.recordcount & "   " varley02 = "Pagina " & PaginaActual & " de " & PaginasTotales & "   " if PaginaActual > 1 then varley03 = "10 Anteriores   " end if if PaginaActual < PaginasTotales and CuantosRegistros > 1 then varley04 = "10 Siguientes" end if ' Cabecera Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("" & vbCrlf ) Response.Write("
" & varley01 & "" & varley02 & "" & varley03 & "" & varley04 & "
" & vbCrlf ) 'Descriptivo Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("
" & vbCrlf) 'Foto Response.Write("" & vbCrlf) Response.Write("
" & vbCrlf) end if End Sub Sub Formulario() Response.Write("
" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'response.write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) 'Aqui va la linea de abajo 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) 'Esta linea va arriba Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) Response.Write("" & vbCrlf) Response.Write("
" & vbCrlf) 'response.write("" & vbCrlf) 'response.write("" & vbCrlf) 'response.write("

Catalogo de Productos y " & vbCrlf) 'response.write("precios" & vbCrlf) 'response.write("

" & vbCrlf) 'response.write("" & vbCrlf) 'response.write("No. Parte:
" & vbCrlf) 'response.write("" & vbCrlf) 'response.write("Descripcion:
" & vbCrlf) 'response.write("" & vbCrlf) 'response.write("
" & vbCrlf) 'response.write("" & vbCrlf) 'response.write("
" & vbCrlf) Response.Write("
" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("" & vbCrlf) 'Response.Write("") 'Response.Write("" & vbCrlf) 'Response.Write("
" & vbCrlf) End Sub %>

.