Olá pessoal

por favor alguem poderia me explicar como eu faço paar preencher um drop down conforme o anterior??

fazer essa consulta na base eu sei mais e sem a base
alguem pode me explicar por favor

desde ja obrigado..

e ai pessoal boa tarde..

gostaria de saber como eu faço para recuperar o valor de um RadioButton ou checkbox quando eles esão checados

pois queria por exmplo que quando o chekbox estivesse chekado (por exmplo)

if "& request.Form("nome do checkbox")&" = checked then response.Write("Sim") else response.Write("Não") end if

mais ou menos isso...pois dessa forma não deu certo e tentei varias maneiras mais eu acho a sintaxe certa ...

obrigado pela atenção galeraaa

e ai galera.........

Pessoal gostaria de saber com faço para dar um select apenas no ultimo registro de minha tabela


set query= conn.execute("select * from Minha_Tabela ")

Depois declaro assim...

<td>
<%=query("Nome_do Campo")%>
</td>

Só que ele me traz apenas o 1ºregistro cadastrado , quando na veradade tenho que mostrar apenas o último registro a ser cadastrado

alguém pode me dar uma força??

desde de já agradeçooo

cara é isso sim cara mais tudo bem criar a barra não é problema o problema é faze-la rolar automaticamentetenho esse codigo aqui

<script language=JavaScript>
<!--
var position = 0;
function scroller() {
if (position != 320) {
position++;
scroll(0,position);
clearTimeout(timer);
var timer = setTimeout("scroller()",3); timer;
}
else
{
location.replace("#");
}
}
//-->
</SCRIPT>

voce pode usar a Função Hint mais não aparece em baixo e sim em baixo(como no windows) se quiser tenho um modelo aqui


qualquer coisa é só falar lzzz

E Ai Pessoal !!!

galera gostaria de saber se existe alguma função (já ouvir falar) para que quando criar rolagem essa rolagem se desloque automaticamente.

Pois tenho varios registros listados e e existe uma função Hint , porém qdo chega ao ultimo registro o hint que aparece com um texto nao da pra le , por isso preciso que a rolagem se desloque automaticamente qdo criada

obrigado galera até mais.................

valeu cara era isso mesmo Foi um vacilo da minha parte não visualizar onde eu colocaria isso mais Obrigado mesmo cara

Eis aki o código completo(caso alguém tenha dúvida também)

<%

id=request.QueryString("cliente")
RS = ""

Set RS = Server.CreateObject("adodb.recordset")



RS.PageSize = 1


SQL = "select * From Clientesfone where cliente = '"& id &"' "

RS.Open SQL,Conn,3,3

IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF



set RS2 = conn.execute("select * From Tipostelefone where Tipotelefone = ' "& RS("Tipotelefone") &" '")

%>
<LINK href="css/style.css" type=text/css rel=stylesheet>

<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">

<table width="98%">

<tr>
<td>
<a href="dadosgerais.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_dados.gif" border="0"></a>&nbsp;
<a href="enderecos.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_enderecos.gif" border="0"></a>&nbsp;
</td>

<td width="17%" align="right">
<a href="java script:history.go(-1)"><img src="imagens/aba_voltar.gif" border="0"></a>
</td>

</tr>
</table>

<table width="98%">

<tr>
<td align="center" bgcolor="#336699" height="16"><font color="#EFFF00" size="2" face="Verdana"><b>Telefones</b></font></td>
</tr>

</table>


<table width="98%">

<tr class="label">
<td>Tipo de Telefone</td>
</tr>

<tr class="dados">

<%do while not RS2.eof%>
<td>
<%response.write RS2("descricao")%>
</td>
</tr>
<%RS2.movenext
loop%>

</table>

<table width="98%">

<tr class="label">
<td>Ddd</td>
<td>Telefone</td>
<td>Ramal</td>
</tr>

<tr class="dados">
<td><%response.write RS("ddd")%></td>
<td><%response.write RS("telefone")%></td>
<td><%response.write RS("ramal")%></td>
</tr>
</table>

<table width="98%">

<tr class="label">
<td>Contato</td>
</tr>

<tr class="dados">
<td><%response.write RS("contato")%></td>
</tr>



<tr>

<td align="center">
</table>

</div>
</body>


<%

RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<div id="Layer1" style="position:absolute; left:45%; top:280px; height:px; z-index:5">

<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>"><< Anterior</a>
</div>

<%
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>

<div id="Layer1" style="position:absolute; left:55%; top:280px; height:px; z-index:5">

<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima >></a>
</div>

<%
END IF
%>

e ai camarão

como vc me disse o codigo é esse mais quero aprender como se faz também blzzz

obrigadom pela ajuda caras...


<%

id=request.QueryString("cliente")
RS = ""

Set RS = Server.CreateObject("adodb.recordset")



RS.PageSize = 1


SQL = "select * From Clientesender where cliente = '"& id &"' "

RS.Open SQL,Conn,3,3

IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF



set RS2 = conn.execute("select * From TiposEndereco where TipoEndereco = ' "& RS("TipoEndereco") &" '")

%>


<body>

<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">

AQUI FICAM AS TABELAS ONDE MOSTRO OS DADOS

</DIV>

</BODY>
.................................AQUIE ESTAO OS BOTOES..........................

<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>">Anterior</a> -

<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima</a>


<%

RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<%
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<%
END IF
%>

e ai galera


se eu estiver no 1º registro nao pode aparecer o botao de anterioralguém pode me ajudar ???

estou usando recordeset para fazer essa paginação

obrigado galera!!

pessoal eu tnho essa determinada instrução...

set rsquery3 = conn.execute("select * from coberturas where cobertura = '"& rsquery("cobertura") &"' ")


existem 30 coberturas

existem muitas coberturas mais tem duas que eu não posso mostrar a número 22 e 25

obrigado gente

mais nao sei onde fica esse target e quial a meria certa de se colocar

please obrigado

caras fiquei sabendo que uas um tal de "search"

eu tenho um site com tres frames

-topo
-corpo
-menu_esquerdo

eu quero saber como eu faço para que o conteudo apareça no corpo quando eu clicar tanto nos botoes que encontran-se no topo e tanto os botoes que aparecem no meu esquerdo alguém pode me ajudra?????

valeu cara

era isso mesmo

obrigado pela ajuda Valeu!!!!!!!!!!!!!!!!!!!!

ei ai galera\!!!!!

pessaol eu tenho que listar uma tabela o BD mais ela contem com muiro campos em um só registro, e eu tenho que listar centenas de registro na tela ...gostaria d saber como deixar uma linha de cada cor , para não confundir os dados de um registro com o outro sem puderem me ajudar eu agradeço

Obrigado pela atenção galera @!!!!!!

Abraço!!!!!!!!!

e ai pessoal!!!!!!

caras eu tenho uma tabela que é preenchida com um loop movenext.

só que existem muitos registros e tenho que dividir em 3 colunas

tentei mais nada do que eu fiz deu certo ..... em 1ºlugar..tem como fazer isso??

valeu galera!!!!!!!!! o codigo é esse a seguir:

<table width="98%">

<tr class="label">
<td>Coberturas</td>
</tr>

<tr>

<%do while not rsquery.eof%>
<%set rsquery3 = conn.execute("select * from coberturas where cobertura = '"& rsquery("cobertura") &"'")%>

<td><a class="linkmenuglobal" href="Do_Coberturas.asp?cobertura=<%=rsquery("cobertura")%>&cliente=<%=request.QueryString("cliente")%>&documento=<%=request.QueryString("documento")%>&seqendosso=<%=request.QueryString("seqendosso")%>" onmouseover="<%buscar(rsquery("cobertura"))%>" onmouseout="kill()" ><%=rsquery3("descricao")%></a></font></td>
</tr>
<%rsquery.movenext
loop%>
</table>

Olá Pessoal

Alguém poderia me dar uma dica de dimenssões de um NewsLetter (tamanho,cores etc.)

alguém poderia me dar um exemplo ou me indicar um exemplo do HTML para newsletter

Atenciosamente

Danilo(valeu gakeraaaaaaaaa)

eu estava usando mais se o cara for fazer outra consulta ele nao conssegue

ola pessoal!!!!!!

tenho q passar um parametro para uma detreminada paguna logo apos o usuário ter feito o login tenhoo isso aki......

cpf=request.form("campo_cpf")
set rsquery=conn.execute("select * nome,tel,cpf from Clientes where Cpf = '" & cpf &"' ")

if rsquery.EOF then
Response.Redirect ("login.asp?erro=1")
else

Response.Redirect ("menu.asp")

end if

só q tenho q passar um prametro para essa pagina chamada menu.asp(campo "nome")

tentei fazer dessa maneira "Response.Redirect("menu.asp?nome=rsquery("nome")...mas nao deu certo...
alguem pode dar-me uma força

obrigado gente

pq da esse erro pessoal nao entendi isso e nao sei o pq tb


Tipo de erro:
(0x80020009)
Exceção.
/fullseg/lista_clientes.asp, line 47


a linha 47 é essaaaaaaaa.................................


<% do while not rsquery.eof %>
<%
set rsquery2 = conn.execute("Select * from documentos where documento = '"& rsquery("documento") &"' ")
%>


<%
linha 47 set rsquery3 = conn.execute ("Select * from clientes where cliente = '"& rsquery2("cliente") & "' ")
%>

<%rsquery.movenext
loop%>


valeu galeraaa!!!!!!!!!!!!!!!!

obrigado mesmo cara após tatas tentativas encontrei o q eu qeuria com sua resposta muito obrigado caraaaaa
valeuuuuuu

ola pessoal naoestou consseguindo dar um response redirect passando 2 parametros de uma vez eu faço asim vejam......

id=request.querystring("exemplo")

id2=request.querystring("exemplo2")



Response.Redirect("pagina.asp?1ºparametro=" + id)

mas na verdade eu tenho q passar dois parametros ...

tentei de varias maneiras mais da pau na pagina alguem poderia me dizer como faço isso

passar dois parametros em um redirect

cara qdo tento incluir um registro no banco da esse erro

Key violation

Erro While Executing the Query
ERROR: cannot extend Documentos:Permission denied
Check free disk space

será q alguem sabe pq??
eu penssei e fosse por causa q o hd esta lotado mais tem muito espaço ainda...

me ajudemmmm meu sistema esta parado

obrigado!!!!!!!!!

Pessoal eu quero cadastrar o login de usuaáios ...

o usuario entra na pagina de login entao ele informa um dado dele q ja existe no banco (no caso produtor)

entao ele tem q cadastrar um login e uma senha

entao eu tenho q inserir esse login e essa senha de acordo com rg do fulano ...mas nao sei como é essa codigo para incluir com uma condição...tentei fazer desse jeito mas deu erro se sintaxe..

Response.Expires = 0

Dim Conn, objRs, strQuery, strConnection,produtor,login,senha
produtor = request.form("produtor")
login = Request.Form("login")
senha = Request.Form("senha")


strQuery = "INSERT INTO produtores (login,senha) VALUES ('"&login&"', '"&senha&"') where produtor = '"& produtor &"'"
Set ObjRs = Conn.Execute(strQuery)

alguem pode me ajudar por gentileza
obrigado

cara eu sei asp o q eu nao sei é flash hehehe

vou posta- lo aki ou melhor posso falar contigo amanha pela manha no msn?????
nao quero q faça para mim e sim q me explique

por favor

obrigado cara

eu sei cara ele vai carregar quais variaveis pois a pagina é .asp apenas os botoes sao swf certo?