Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Fiz uma página, mas qdo vou acessá-la na internet aparece faltando colunas e a pagina não faz conexão com o BD.<html><head><title>Gerência de Mudanças</title><meta name="Autor" content="Renata M"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"></head><body background="fundo.gif" bgproperties="fixed" leftmargin="30"><p><img src="barra_foto3.jpg" width="117" height="43"><strong><font face="Verdana"><small> Infra-Estrutura</small> <small><small><font color="#008080">-------------------------------Gerência de Mudanças</font></small></small></font></strong></p><table border="0" width="99%"> <tr> <td width="100%"><form method="get" action="envio1.asp"> <div align="left"><p> <img src="bolinha.gif" width="11" height="11" alt="bolinha.gif (844 bytes)"> <font color="#FF0000" face="Verdana"><small>Obrigatório preenchimento de todos os campos</small></font></p> </div><table border="0" width="100"> <table border="0" width="466"> <tr> <td width="144"><small><font face="Verdana"><b>Data:</b></font></small></td> <td width="308"><input type="text" name="Data" size="12"> <font face="Verdana" color="#FF0000"><small><small>(Campo obrigatório)</small></small></font></td> <tr> <td width="144"><small><font face="Verdana"><b>Analista:</b></font></small></td> <td width="308"><select name="analista" size="1"> <option value="Selecionar analista">Selecionar analista</option> <%Set conn = Server.CreateObject("ADODB.Connection")conn.connectionString="provider=Microsoft.jet.OLEDB.4.0;DATA SOURCE=Y:\csunet\servicos\G_Mudancas\cadmudancas.asp\BD_g_mudancas.mdb"conn.Open "g_mudancas"q ="select distinct cod_Analista, analista from analista"set tab = conn.execute(q)while not tab.EOF%> <option value="<%= tab("analista").value%>"><%= tab("analista").value%></option><%tab.movenextwendtab.closeSet tab = nothing%> </select></td> </tr> <tr> <td width="144"><small><font face="Verdana"><b>Area:</b></font></small></td> <td width="308"><select name="area" size="1"> <option value="Selecionar area">Selecionar area</option><% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "g_mudancas"q ="select distinct codArea, area from area"set tab = conn.execute(q)while not tab.EOF%> <option value="<%= tab("area").value%>"><%= tab("area").value%></option><%tab.movenextwendtab.closeSet tab = nothing%> </select></td> </tr> </table> <table border="0" width="100%" height="194"> <tr> <td width="18%" height="25"><small><font face="Verdana"><b>Ambiente:</b></font></small></td> <td width="82%" height="25"><select name="Ambiente" size="1"> <option value="Selecionar Ambiente">Selecionar Ambiente</option><%rem Set conn = Server.CreateObject("ADODB.Connection")rem conn.Open "g_mudancas"q ="select distinct codAmbiente, Ambiente from Ambiente"set tab = conn.execute(q)while not tab.EOF%> <option value="<%= tab("Ambiente").value%>"><%= tab("Ambiente").value%></option><%tab.movenextwendtab.closeSet tab = nothing%> </select></td> </tr> <tr> <td width="18%" height="34"><small><font face="Verdana"><b>Software/Hardware envolvido:</b></font></small></td> <td width="82%" height="34"><input type="text" name="Software/Hardware envolvido" size="42"> <font face="Verdana" color="#FF0000"><small></small></font></td> </tr> <tr> <td width="18%" height="123"><small><font face="Verdana"><b>Motivo da Alteração:</b></font></small></td> <td width="82%" height="123"> <font face="Verdana" color="#FF0000"><small><textarea rows="4" name="S1" cols="36"></textarea></small></font></td> </tr> </table> <p> <input type="submit" value="Enviar" name="Enviar"> <input type="reset" value="Limpar" name="Limpar"></p> </form></table></body>
Carregando comentários...
