Ir para conteúdo
Fórum Script Brasil

marcelo

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    305

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que marcelo postou

  1. marcelo

    Tabela

    uma questão postou marcelo ASP

    Bem não sei se estou no forum certo mas queria saber como fazer esse tipo de tabela tipo pontilhada ex: ---------------------------------------------- Tem na pagina inicial do script brasil
  2. marcelo

    Duvida

    uma questão postou marcelo ASP

    Queria tirar só uma duvida. como faco para o meu banco de dados mostrar no navegador só os nomes comecados com "M". RS.Open "SELECT Nome,Enderenco,Estado,Cidade,Fone FROM Amigos WHERE Estado='são Paulo'AND Nome = ' Ex:Comecam com M ' Como faço isso ? ORDER BY Nome", Conn
  3. marcelo

    Facil Pra Quem Sabe

    uma questão postou marcelo ASP

    Tenho um codico aqui mas ta dando seguinte erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na cláusula FROM. CODE <%@language = VBScript %> <%Option Explicit%> <!-- #include virtual ="/adovbs.inc"--> <html> <body> <div align="center"><br> <% Response.Write("<font face=verdana size=3 color=#0000CC>" & Date() & "</font><BR>") Response.Write("<br>") Dim Conn, strConn, cBanco,RS Set Conn = Server.CreateObject("adodb.connection") cBanco = "C:\Inetpub\wwwroot\empresa.mdb" strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& cBanco &";" Conn.Open(strConn) Set RS = Server.CreateObject("adodb.Recordset") RS.Open "SELECT * FROM Amigos" , Conn, , , adCmdTable %><table border="0" cellpadding="1"0 cellspacing="2"> <tr> <td bgcolor="#CC9900"><div align="center"><b> <font size="2" face="Geneva, Arial, Helvetica, sans-serif">Nome</font> </b></div></td> <td bgcolor="#CC9900"><div align="center"><b> <font size="2" face="Geneva, Arial, Helvetica, sans-serif">Enderenco </font></b></div></td> <td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b> Cidade </b></font></div></td> <td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b> Estado </b></font></div></td> <td bgcolor="#CC9900"><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><b> Fone </b></font></div></td> </tr> <div align="center"> <% Do While Not RS.EOF Response.Write "<tr><td bgcolor='gold' width = '100' align='center'><Font Color='blue' size='1' face='verdana' "&"<b>"_ & RS ("Nome") & "</fonr></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Enderenco") & "</font></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Cidade") & "</font></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Estado") & "</FONT></td>" Response.Write "<td bgcolor='gold' width = '125' align='center'><Font Color='blue' size='1' face= 'verdana'"&"<b>" _ & RS ("Fone") & "</FONT></td></tr>" 'response.Write("<P><HR><P>") RS.MoveNext Loop RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> </div> <p><br> <br> </p></body> </table> </html>
  4. marcelo

    Funcoes

    uma questão postou marcelo ASP

    Ex: A funcao time() ou Date() ou Now() parece que essas funcoes tem fonte proprias acho que é arial. No meu site coloquei a funcao time() mas coloquei aquela famosa frase. "Boa tarde são 12:00" um exemplo. Só que "boa tarde são" ficou diferente da fonte da funcao. Tem como eu mudar a fonte da funcao para 12:00 Courier.
  5. marcelo

    Erro

    uma questão postou marcelo ASP

    Eu fiz um formulario.quando clico no botao enviar ele não passa as informacoes para a pagina asp. O codico 'e esse: formulario <html> <head> <title>Formulario de Pesquisa</title> </head> <body> <form method="post" action="sucesso.asp"> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome</font>:<br> <input type="text" name="TextNome" size ="39"> <br> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Enderen&ccedil;o:</font><br> <input type="text" name="TextEnderenco" size ="39"> <br> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:<br> <input type="text" name="TextEmail" size ="39"> <br> <br> <br> Voc&ecirc; est&aacute; em: <select name="SelEstado" size="1"> <option>Aracaju</option> <option>são Paulo</option> <option>Rio de Janeiro</option> <option>Fortaleza</option> <option>Tocantins</option> <option>Amapa</option> </select> </font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> . Sua opini&atilde;o sobre esse site:<br> <input type="radio" name="OptOpiniao" value="Ruim"> Ruim<br> <input type="radio" name="OptOpiniao" value="Regular"> Regular<br> <input type="radio" name="OptOpiniao" value="Bom"> Bom<br> <input type="radio" name="OptOpiniao" value="Otimo"> Otimo<br> <br> . De que maneira voc&ecirc; chegou at&eacute; n&oacute;s:<br> <input type="checkbox" name="chkRadio" > Radio<br> <input type="checkbox" name="chkTV" > TV<br> <input type="checkbox" name="chkJornal" > Jornal</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br> </font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Na sua opini&atilde;o o que poderiamos fazer para melhorar esse site:</font><br> <textarea name="TxaOpiniao" cols="40" rows="4"></textarea> <br> <br> <input type="submit" name="BtEnvia" value="Enviar Formulário"> </p> </form> </body> </html> Codico do asp <%@language = VBScript %> <%Option Explicit%> <% Response.Write "Nome: " Request("TxtNome") Response.Write "<br>" Response.Write "Enderenco: " Request("TxtEnderenco") Response.Write "<br>" Response.Write "E-mail: " Request("TxtEmail") Response.Write "<br>" Response.Write "Cidade: " Request("SelEstado") Response.Write "<br>" Response.Write "Opinião sobre o site: " Request("OptOpiniao") Response.Write "<br>" Response.Write "Radio:- " Request("chkRadio") Response.Write "<br>" Response.Write "TV:- " Request("chkTV") Response.Write "<br>" Response.Write "Jornal:- " Request("chkJornal") Response.Write "<br>" Response.Write "Opiniao Geral: " Request("") Response.Write "<br>" %> Agradeco muito se me responderem. Ass: Marcelo
×
×
  • Criar Novo...