Ir para conteúdo
Fórum Script Brasil

Hormonas

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que Hormonas postou

  1. Hormonas

    ASP Dois menus

    Boas pessoal, sou novo por aqui, e venho já tentar tirar dúvidas :/ Bem, estou a fazer um progrma em ASP. Estrutura: -> o programa vai a base de dados e ve que tipos de maquinas existem -> o utilizador escolhe a maquina -> o programa vai a base de dados e ve os modelos disponiveis para esse tipo de maquina -> o utilizador escolhe o modelo -> o programa vai a Base de dados e ve o numero de paletes disponiveis para uma maquina do tipo e com o modelo escolhidos antes Tentei mas não consigo por a dar com JavaScript ... da me erro xmlHTTP, tentei correr um servidor em python ocorriam duas coisas: 1º sempre que acedia a um ficheiro asp via javascript o ficheiro não executava, ao invés, imprimia o codigo asp na pagina 2º se eu tentasse aceder ao ficheiro asp diretamente (pelo seu url) o browser fazia me download do ficheiro e não executava Por esse motivo, o programa foi feito todo em asp, se tiverem alguma coisa a dizer força, gostava de aprender mais aqui esta o codigo: main.asp <!DOCTYPE html> <html> <head> <link href="mystyle.css" rel="stylesheet" type="text/css"/> <script src="javascript/jquery-1.11.3.min.js"></script> </head> <body> <!--Inicialization, ...--> <% dim modelo, tipo, palete tipo="" modelo="" palete="" dim perguntas(20) Set conn = Server.CreateObject("ADODB.Connection") Set conn2 = Server.CreateObject("ADODB.Connection") conn_string = "Provider=sqloledb;Server=INF0148\SQLEXPRESS;Database=#####;Uid=####;Pwd=###########" conn.commandTimeout = 60 conn.Open conn_string Set rs = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") function options(value, data, select_id) Response.Write ("<option value=""" & value & """") if request.form(select_id) = value then Response.Write ("selected") end if Response.Write(">" & data & "</option>") end function %> <div id="main"> <!--Escolhe tipo de Maquina--> <form method="post"> <select name="maq" id="maq" onchange="this.form.submit()"> <option value="">Tipo de Maquina:</option> <% conn.close conn.Open conn_string rs.Open "SELECT DISTINCT Tipo FROM modelos", conn do until rs.EOF for each x in rs.Fields options x.value, x.value, "maq" next rs.MoveNext loop %> </select> </form> <%tipo=Request.Form("maq")%> <!--Escolhe Modelo--> <form method="form"> <select name="modelo" id="modelo" onchange="this.form.submit()"> <option value="">Modelo:</option> <% conn.close conn.Open conn_string rs.Open "SELECT DISTINCT Modelo FROM modelos WHERE Tipo='"&tipo&"'", conn do until rs.EOF for each x in rs.Fields options x.value, x.value, "modelo" next rs.MoveNext loop modelo=Request.Form("modelo") %> </select> </form> <!--Numero de Paletes--> <form method="post"> <% conn.close conn.Open conn_string rs.Open "SELECT N_Paletes FROM Modelos WHERE Tipo='"&tipo&"' AND Modelo='"&modelo&"'", conn dim temp temp=0 do until rs.EOF for each x in rs.Fields if not IsNull(x.value) then if temp=0 then response.write("<select name=paletes id=paletes onchange=""this.form.submit()"";>") response.write("<option value="">Numero de Paletes:</option>") temp=1 end if options x.value, x.value, "paletes" end if next rs.MoveNext loop paletes=Request.Form("paletes") %> </form> </div> </body> </html> Problema? ele carrega bem os tipos de maquinas... quando eu escolho a maquina ele carrega bem os modelos... quando escolho o modelo, vai tudo ao ar. alguma ajuda?:) Obrigada pela atençao!
×
×
  • Criar Novo...