[Resolvido] select combobox

[david dias 0]

Ea galera estou aqui da novo agora gostaria de saber como é q eu pego os nomes das pastas criado com o comando

e coloco em um select ou comobobx

<%		
nome = request.form("nome")
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
objFS.CreateFolder(Server.MapPath(nome))
Response.Write "A categoria foi criada com sucesso"
			
%>

 

esse comando crias pastas

[hargon 64]

<select name="pastas">

<%

Dim fso, pasta, interna

 

Set fso= Server.CreateObject("Scripting.FileSystemObject")

Set pasta = fso2.GetFolder(Server.MapPath("../"))

 

For Each interna In pasta.SubFolders

Response.Write "<option value="" & interna.Name & "">" & interna.Name & " - " & interna.Path & "</option>"

Next

 

Set pasta = Nothing

Set fso= Nothing

%>

</select>

[david dias 0]

po beleza mais não ta aparecendo o butão de upload e de criar categorias eu coloquei assim

 

<TABLE CELLSPACING=0 CELLPADDING=3 BORDER=1>
			<TR>
				<TD BGCOLOR="#FFA500">File:</TD>
				<TD BGCOLOR="#FFA500"><INPUT TYPE=FILE SIZE=30 NAME="THEFILE"></TD>
			</TR>
			<TD BGCOLOR="#FFA500">Descrição:</TD>
			<TD BGCOLOR="#FFA500"><INPUT TYPE=TEXT SIZE=30 NAME="Description"></TD><TR>
			<TD BGCOLOR="#FFA500" VALIGN="TOP">Categoria: </TD>
			<TD BGCOLOR="#FFA500" VALIGN="TOP">
			<select name="pastas">
			<% 
			Dim fso, pasta, interna 
			Set fso= Server.CreateObject("Scripting.FileSystemObject")
			Set pasta = fso2.GetFolder(Server.MapPath("../"))
			For Each interna In pasta.SubFolders    
			Response.Write "<option value="" & interna.Name & "">" & interna.Name & " -                          "interna.Path & "</option>"
			Next
			Set pasta = Nothing
			Set fso= Nothing 
			%>
			</select>
			<input type="button" value="Add categoria" onclick="popup();">
			</TD><TR>		
			<TD COLSPAN=2 BGCOLOR="#FFA500"><INPUT TYPE=SUBMIT VALUE="Upload"></TD>
			</TD>
		</TABLE>

[Ted k' 126]

veja se aparece agora:

 

<TABLE CELLSPACING="0" CELLPADDING="3" BORDER="1">
<TR>
<TD BGCOLOR="#FFA500">File:</TD>
<TD BGCOLOR="#FFA500"><INPUT TYPE="FILE" SIZE="30" NAME="THEFILE"></TD>
</TR>
<TD BGCOLOR="#FFA500">Descrição:</TD>
<TD BGCOLOR="#FFA500"><INPUT TYPE="TEXT" SIZE="30" NAME="Description"></TD><TR>
<TD BGCOLOR="#FFA500" VALIGN="TOP">Categoria: </TD>
<TD BGCOLOR="#FFA500" VALIGN="TOP">
<select name="pastas">
<% 
Dim fso, pasta, interna 
Set fso= Server.CreateObject("Scripting.FileSystemObject")
Set pasta = fso2.GetFolder(Server.MapPath("../"))
For Each interna In pasta.SubFolders    
Response.Write "<option value=""" & interna.Name & """>" & interna.Name & interna.Path & "</option>"
Next
Set pasta = Nothing
Set fso= Nothing 
%>
</select>
<input type="button" value="Add categoria" onclick="popup();">
</TD><TR>               
<TD COLSPAN="2" BGCOLOR="#FFA500"><INPUT TYPE="SUBMIT" VALUE="Upload"></TD>
</TD>
</TABLE>

[david dias 0]

pô meu camarada ainda não estar aparecendo

[Ted k' 126]

a cara não é ASP, é as tabelas, faltam fechar algumas tags... reparei, veja ai!

 

<TABLE CELLSPACING="0" CELLPADDING="3" BORDER="1">
<TR>
	<TD BGCOLOR="#FFA500">File:</TD>
	<TD BGCOLOR="#FFA500"><INPUT TYPE="FILE" SIZE="30" NAME="THEFILE"></TD>
</TR>
	<TD BGCOLOR="#FFA500">Descrição:</TD>
	<TD BGCOLOR="#FFA500"><INPUT TYPE="TEXT" SIZE="30" NAME="Description"></TD>
</TR>
<TR>
	<TD BGCOLOR="#FFA500" VALIGN="TOP">Categoria:</TD>
	<TD BGCOLOR="#FFA500" VALIGN="TOP">
    <select name="pastas">
    <% 
    Dim fso, pasta, interna 
    Set fso= Server.CreateObject("Scripting.FileSystemObject")
    Set pasta = fso2.GetFolder(Server.MapPath("../"))
    For Each interna In pasta.SubFolders    
    Response.Write "<option value=""" & interna.Name & """>" & interna.Name & interna.Path & "</option>"
    Next
    Set pasta = Nothing
    Set fso= Nothing 
    %>
    </select>
    <input type="button" value="Add categoria" onclick="popup();"></TD>
</TR>
<TR>
	<TD COLSPAN="2" BGCOLOR="#FFA500"><INPUT TYPE="SUBMIT" VALUE="Upload"></TD>
</TR>
</TABLE>

[david dias 0]

O meu amigo sinceramente não to conseguindo achar preciso de um olhar clinico vê ai pra min onde ta o erro esse ai é o cod

 

<FONT FACE="Arial" size="2">

<H4>Uploads de Documentação</h4>

<B>Selecione o arquivo , Informe a descrição e selecione a categoria.</B>
<P>
<TABLE CELLSPACING="0" CELLPADDING="3" BORDER="1">
<TR>
<TD BGCOLOR="#FFA500">File:</TD>
<TD BGCOLOR="#FFA500"><INPUT TYPE="FILE" SIZE="30" NAME="THEFILE"></TD>
</TR>
<TR>
<TD BGCOLOR="#FFA500">Descrição:</TD>
<TD BGCOLOR="#FFA500"><INPUT TYPE="TEXT" SIZE="30" NAME="Description"></TD>
</TR>
<TR>
<TD BGCOLOR="#FFA500" VALIGN="TOP">Categoria: </TD>
<TD BGCOLOR="#FFA500" VALIGN="TOP">
<select name="pastas">
<% 
	Dim fso, pasta, interna 
	Set fso= Server.CreateObject("Scripting.FileSystemObject")
	Set pasta = fso2.GetFolder(Server.MapPath("../"))
	For Each interna In pasta.SubFolders    
	Response.Write "<option value=""" & interna.Name & """>" & interna.Name & interna.Path & "</option>"
	Next
	Set pasta = Nothing
	Set fso= Nothing
 %>
 </select>
 <input type="button" value="Add categoria" onclick="popup();"></TD>
</TR>
 <TR> 
 <TD COLSPAN="2" BGCOLOR="#FFA500"><INPUT TYPE="SUBMIT" VALUE="Upload"></TD>
</TR>

</TABLE>
		
</FORM>
</FONT>
</BODY>
</HTML>

[Ted k' 126]

eu consigo ver... ou será que não estou entendendo

[david dias 0]

Cara é isso masmo por incrivel q pareça aqui não estou conseguindo ver eu uso o homesite para programa e no browser o home site aparece mais quando vou no servidor não aparece e digito o caminho não aparece.

[Ted k' 126]

deve ser o restante da sua pagina, algum conflito com HTML, tags não fechadas, melhor ir no fórum de HTML e postar o link de sua aplicação, pra a galera fazer mais analises!

[david dias 0]

Ha desculpa é no browser visualizador do homesite que consigo ver e no ie eu não consigo.

 

vlw obrigado.

[xanburzum 169]

estranho tenho a mesma visaun do ted k´, dá uma analisada no seu code, verifique se o caminho esta correto...

[david dias 0]

Fis os os testes de tudo quanto era jeito e só aparecia quando eu comentava os cod asp da pagina

[xanburzum 169]

olha este exemplo:

 

<% 
Dim fso, f, f1, fc ,diretorio

diretorio = "c:\inetpub\wwwroot"      'Aqui o diretório principal 
Set fso = CreateObject("Scripting.FileSystemObject") 

   IF fso.FolderExists(diretorio) Then 
      Set f = fso.GetFolder(diretorio) 
      '----------------------------------------------- 
      ' lista os subdiretórios do diretório principal 
      '----------------------------------------------- 
      response.write "<select><br>" 
      For Each Item in f.Subfolders 
         response.write "<option value="& item.Name &">"& item.Name &"</option><br>" 
      Next 
      response.write "</select>" 
   End IF 

%>

[david dias 0]

Valeu meu camara coloque esse cod e funcionou perfeitamente vlw.

[xanburzum 169]

beleza...