Foros > ASP: inventario en asp

Responder Mensaje >

  1. piter

    Mensajes [1] - Enviado el Jueves 10 de Enero de 2008 a las 17:57hs

    estoy haciendo un inventario que me de altas,bajas y modificaciones de marcas, modelos y dispositivos este es mi codigo me pueden orientar de que me falta soy nuevo en esto gracias.





    La fecha actual es <%=date()%>

    <%
    'hora actual
    Dim hora
    hora = Hour(Time())
    If hora > 6 and hora < 11 then
    Response.Write ("

    Buenos Dias, son las: " & Time())
    ElseIf hora > 12 and hora < 18 then
    Response.Write ("
    Buenas Tardes, son las: "& Time())
    ElseIf hora > 19 and hora < 24 then
    Response.Write ("
    Buenas Noches, son las: "& Time())
    ElseIf hora >= 0 and hora < 7 then
    Response.Write ("
    Buenas Noches, son las: "& Time())
    End If
    %>
    <%
    'detectar el idioma de nuestros usuarios
    Dim pais, idioma
    pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
    idioma = Left(pais, 2)
    select case idioma
    case "es"
    idioma = "
    En Espa?ol: Bienvenido a nuestra pagina web"
    case "pt"
    idioma = "
    En Portugu?s Bem-vindo a nostra pagina web"
    case "en"
    idioma = "
    En Ingl?s: Welcome to your pages web"
    end select
    response.write idioma
    %>
    <%
    'contador de visitas a la pagina
    Application.Lock
    Application("visitas") = Application("visitas")+1
    Application.Unlock %>


    Eres el visitante numero<%= Application("visitas") %>
    <%
    'activacion de la pagina
    if trim(Session("ActivoAlm"))<>"SI" then
    Response.Write("")
    end if
    %>


    <%
    dim pagina
    dim marco
    dim rs
    dim marcamodelo
    dim marcadispositivo
    dim modelodispositivo
    dim tipodispositivo
    pagina="indexad.asp"
    marco="_parent"

    if trim(Request.Form("tipoequipo")) <>"" then
    tipoequipo=Request.Form("tipoequipo")
    end if

    if trim(Request.Form ("id_marca")) <>"" then
    id_marca=Request.Form("id_marca")
    end if

    if trim(Request.Form("marca")) <>"" then
    tipomarca=Request.Form("marca")
    end if

    if trim(Request.Form("modelos") )<>"" then
    tipomod=Request.Form("modelos")
    end if

    if trim(Request.Form("marcamodelo") )<>"" then
    marcamon=Request.Form("marcamodelo")
    if marcamodelo=0 then
    marcamodelo=tipomarca
    end if

    else
    marcamodelo=tipomarca
    end if
    if trim(Request.Form ("descripcion"))<>""then
    descripcion=Request.Form("descripcion")
    end if

    if trim(Request.Form("dispositivo") )<>"" then
    dispositivo=Request.Form("dispositivo")
    end if

    if trim(Request.Form("modelodispositivo"))<>""then
    modelodispositivo=Request.Form("modelodispositivo")
    end if

    if trim(Request.Form("marcadispositivo"))<>"" then
    marcadispositivo=Request.Form("marcadispositivo")
    end if

    if trim(Request.form("numeroserie"))<>"" then
    numeroserie=Request.Form("numeroserie")
    end if

    if trim(Request.Form("tipodispositivo"))<>"" then
    tipodispositivo=Request.Form("tipodispositivo")
    end if

    if trim(Request.Form("causa"))<>"" then
    causa=Request.Form("causa")
    end if

    if trim(Request.Form("comentarios"))<>""then
    comentarios=Request.Form("comentarios")
    end if

    if trim(Request.Form("espplataforma")) <>"" then
    DatosForma=split(Request.Form("espplataforma"),",")
    end if
    tipoinventario=0

    if trim(Request.Form("asignacion")) <>"" then
    idasignacion=trim(Request.Form("asignacion"))
    end if
    if trim(Request.Form("funcion")) <>"" then
    idfuncion=trim(Request.Form("funcion"))
    end if
    if trim(Request.Form("uso")) <>"" then
    iduso=trim(Request.Form("uso"))
    end if
    %>








    INVENTARIO
    DE EQUIPO



















    MARCAS



    ID_MARCA
    <%
    'conexion con la base de datos
    sqltxt="select id_marca from marca order by id_marca"
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn
    %>

    <%
    rs.close
    set rs = nothing
    %>



    MARCA
    <%
    sqltxt="select marca from marca order by marca"
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn
    %>

    <%
    rs.close
    set rs = nothing
    %>

    ACTIVO

    MODELOS


    MODELO:

    <%
    sqltxt="select * FROM modelo order by modelo"
    set rs=createobject("ADODB.Recordset")
    'abrir la base de datos
    rs.open sqltxt,Conn

    %>

    <%
    rs.close
    set rs = nothing
    %>




    MARCA:
    <%
    sqltxt="select marca from modelo order by modelo"
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn
    %>

    <%
    rs.close
    set rs = nothing
    %>

    DESCRIPCION:

























    <%
    sqltxt="select * FROM dispositivo order by modelo"
    'conexion con la base de datos
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn
    %>

    <%
    rs.close
    set rs = nothing
    %>
    MODELO
    <%
    sqltxt="select modelo from dispositivo order by modelo"
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn
    %>


    <%
    rs.close
    set rs = nothing
    %>


     


    MARCA
    <%
    sqltxt="select marca from dispositivo order by marca"
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn

    %>

    <%
    rs.close
    set rs = nothing
    %>
    NUMERO.SERIE


    DESCRIPCION





     


    TIPOS DE DISPOSITIVOS


    TIPO_ DISPOSITIVO
    <%

    sqltxt="select tipo_dispositivo from tipodispo"
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn
    %>

    <%
    rs.close
    set rs = nothing
    %>
    CAUSA
    <%
    sqltxt="select causa from tipodispo order by causa"
    set rs=createobject("ADODB.Recordset")
    rs.open sqltxt,Conn

    %>

    <%
    rs.close
    set rs = nothing
    %>


    COMENTARIOS

     



    CENTRO DE
    PROCESAMIENTO DE DATOS





responder

Para poder responder a este tema tenes que ingresar. Si no tenes una cuenta podes registrarse gratis..

FOROS

publicidad