Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Touche

Um

Por , em ASP Clássico

Recommended Posts

Touche    0

Touche
Postado

ae galera sou meio fudido em ASP e to kerendo fazer uma coisa simples...

 

Alguem pode me dizer onde coloco o if Rs.EOF nessa aplicação...

 

<%cnpath="DBQ=" & Server.MapPath("db/vendas.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath  Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource'Abre o RecordsetSet RS = Server.CreateObject( "ADODB.Recordset" )RS.ActiveConnection = connset rs=conn.execute("select * from Funcionarios where cod_funcionario="&request.querystring("cod_funcionario")&"")%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="css.css" rel="stylesheet" type="text/css"></head><body bgcolor="#FFFFFF" text="#000000"><p align="center"><strong><font color="#006699" size="4" face="Verdana, Arial, Helvetica, sans-serif">::   Perfil do Funcionário</font></strong></p><div align="center">  <table width="60%" border="0" cellpadding="0" cellspacing="1" bgcolor="#666666">    <tr>       <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">          <tr bgcolor="#EEEEEE">             <td width="22%" height="25"> <div align="left"><strong><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> Nome:</font></strong></div></td>            <td width="78%"><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs("nome_funcionario")%></font></td>          </tr>          <tr bgcolor="#DDDDDD">             <td height="25"> <div align="left"><strong><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> Email:</font></strong></div></td>            <td><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs("correio_eletronico")%></font></td>          </tr>          <tr bgcolor="#EEEEEE">             <td height="26"> <div align="left"><strong><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> Ramal:</font></strong></div></td>            <td><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs("ramal")%></font></td>          </tr>          <tr bgcolor="#DDDDDD">             <td height="22"> <div align="left"><strong><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> Telefone:</font></strong></div></td>            <td><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs("telefoneres")%></font></td>          </tr>          <tr bgcolor="#EEEEEE">             <td height="70"> <div align="left"><strong><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"> Observação:</font></strong></div></td>            <td><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs("obs")%></font></td>          </tr>        </table></td>    </tr>  </table></div><p align="center"><font color="#006699" size="4" face="Verdana, Arial, Helvetica, sans-serif"><strong>::   Vendas efetuadas por ele<br>  <%Set Conn2 = CreateObject("ADODB.CONNECTION")connx ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/vendas")Conn2.Open ConnxDim Nnotc, iNnotc = 2000000Set Conn = Server.CreateObject("adodb.connection")Conn.Open ConnxSql = "SELECT * FROM Venda where cod_funcionario="&request.querystring("cod_funcionario")&""Set Rs=Conn.Execute(Sql)	For i=1 to Nnotc%>  </strong></font></p><div align="center">  <table width="60%" border="0" cellspacing="0" cellpadding="1">    <tr>       <td bgcolor="#333333"> <table width="100%" border="0" cellspacing="0" cellpadding="1">          <tr bgcolor="EEEEEE">             <td width="22%" height="29"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Data               da Venda:</font></strong></td>            <td width="29%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rs("datadavenda")%></font></td>            <td width="21%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Preço               da Venda</strong></font></td>            <td width="28%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rs("precodavenda")%></font></td>          </tr>          <tr bgcolor="DDDDDD">             <td height="66"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Detalhe:</font></strong></td>            <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rs("detalhe")%></font></td>          </tr>          <tr bgcolor="EEEEEE">             <td height="25"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Núm.               do Bilhete:</font></strong></td>            <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rs("numkit")%></font></td>          </tr>          <tr bgcolor="DDDDDD">             <td height="26"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Código               da Cia:</font></strong></td>            <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rs("cod_cia")%></font></td>          </tr>          <tr bgcolor="EEEEEE">             <td height="54"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Obs:</font></strong></td>            <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rs("obs")%></font></td>          </tr>          <%   Sql = "SELECT * FROM Clientes where cod_cliente="& Rs("cod_cliente") &""Set RsC=Conn.Execute(Sql)          %>          <tr bgcolor="#CCCCCC">             <td height="27"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong></td>            <td colspan="3">               <div align="right"><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="detalhe_venda.asp?cod_venda=<%=rs("cod_venda")%>">+                 DETALHES da venda  </a></strong></font></div></td>          </tr>          <tr bgcolor="EEEEEE">             <td height="26"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Nome               do Cliente:</font></strong></td>            <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rsc("nome")%></font></td>          </tr>          <tr bgcolor="DDDDDD">             <td height="27"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Telefone:</font></strong></td>            <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rsc("telefone")%></font></td>          </tr>          <tr bgcolor="EEEEEE">             <td height="29"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Email:</font></strong></td>            <td colspan="3"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%=Rsc("email")%></font></td>          </tr>          <tr bgcolor="#CCCCCC">             <td height="27"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong></td>            <td colspan="3">               <div align="right"><font color="#006699" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="detalhe_cliente.asp?cod_cliente=<%=rsc("cod_cliente")%>">+                 DETALHES do cliente.  </a></strong></font></div></td>          </tr>        </table></td>    </tr>  </table>  <%Rs.MoveNextIf Rs.Eof Then Exit ForNextResponse.Write "</p>"Rs.CloseSet Rs=NothingConn2.CloseSet Conn2=Nothing%></div><p align="center"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="funcionarios.asp">::   Voltar ::</a></font></p></body></html>

eu saberia fazer se fosse 1 recordset so mais como sao 2 eu to perdido

 

desde ja eu agradeço http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Esse teste tem que ser feito anter de escrever os valoresEx<%=Rs("nome_funcionario")%><%=Rs("correio_eletronico")%><%=Rs("ramal")%><%=Rs("telefoneres")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito