Jump to content
Fórum Script Brasil
  • 0

ASP Dois menus


Hormonas
 Share

Question

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!

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.7k
×
×
  • Create New...