uma duvida minha é necessario usar este Option Explicit afinal pra que ele server???

Ola pessoal avaliem o portoflio que eu e mais o pessoal do meu trampo fez
eu fiz a programação em asp, my sql e etc....

http://www.vejacomoefacil.com.br

eu sei disso mais tera outras variaveis q eu terei q declarar entende
e ae como eu faço??

e como eu vou fazer isto??

ola pessoal

estou com uma dificuldade no asp.net, no asp eu sempre utiliza uma variavel que se chama caminho, o caminho tem a url do site, exemplo caminho = "http://www.teste.com".
Agora no asp.net como eu faço pra declarar variaveis, e esta variavel caminho eu quero declarar uma vez so e que eu posso usar em todas as paginas do meu site ok
brigadao galera

eu queria saber como eu faço para chamar a função

vlw

eu tenho que mudar o input o meu form???
e como ficariam??

salve gente blz...

bom pessoal eu fiz um sisteminha de usuario que se pode inserir, apagar, atualizar e apagar varios com checkbox vc seleciona o checkbox e clica no botao excluir certo
como eu faço uma validação tipo se nao tiver nenhum checkbox seleciona quando eu clicar no botao excluir ele mostrar o alert vc tera que selecione pelo menos um cadastro para poder excluir sendo que o botao excluir é do type button??

vlw

ola klaus tem como vc explicar melhor sou meio leigo em javascript e outra pergunta tem como fazer esta validação por campo exemplo depois q eu digite a hora e pular para o outro campo ele faz a validação

deu certo aki vlw mano

galera eu tenho uma pagina de um site que inclusive é a pagina inicial ela executa mta coisa tem mais de 1000 linhas de scripts + os includes e as vezes quando eu vou acessar apareçer o erro de time out

Timeout expired

/Default.asp, line 373
e vai mudando de linha 

ja mudei o meu session.timeout = 999

e mesmo assim ele da uns panes, o que eu posso fazer para garantir que esta pagina vai ser aberta totalmente???.....

bom ae tb depende de vc, vc vai querer a opção server o client??

e uma dica depois que vc instalar o sql 2000, instale o sp 3 dele blz...

ola galera tudo blz??

bom eu to com um site de anuncio de carros certo e na index eu coloquei 20 anuncios, bom eu queria fazer um select que aparece um anuncio de cliente a cada refresh tipo se eu tenho 20 clientes e cada cliente tem 20 anuncios entao eu queria que aparece 1 anuncio de cada um por refresh alguem sabe montar isto em baixo esta o meu atual select

Select Top 10 D.CodCliente, D.CodAnuncio, D.Veiculo, D.Marca, D.Ano, D.Cor, D.Valor, C.CPF, C.Logo, F.Anexo1 "_
& "		From Anuncio_Dados D, Cadastro_Cliente C, Anuncio_Fotos F "_
& "	  Where D.Statu = 'Ativo' "_
& "		 And C.CodCliente = D.CodCliente "_
& "		 And D.CodAnuncio = F.CodAnuncio "_
& "		 And Novo = 'Nao' "_
& "		 And D.Capa = 'Sim' "_
& "	  Order By NewId()

preciso de uma luz pessoal e urgente ainda vlw

os relacionamentos esta tudo certo e tem uma tabela que fica os anuncios sim

e se eu uso a clausula Distinct, ele fica com conflito com Order By NewId()
pq meu order by esta randominco e agora

salve pessoal blz??

seguinte eu tenho um sistema de administração e ele tem a pagina pai e o iframe no iframe contem todos os dados certo....

ae eu coloquei uma verificação se a sessao acabar ele expira e redirenciona para o login.asp so que esta verificação esta na pagina do iframe, ou seja quando ele faz o rederencionamento traz o login na iframe e nao na pagina pai como eu faço para ele jogar esta pagina na pagina pai???

consegui é assim:

<%
If Session("Usuario") = "" Then
	Response.Write("<script>window.open(""login.asp"",""_parent"")</script>")
	Response.End()
End If
%>

ola pessoal td bem???

bom eu pessoal eu fiz um formulario de acessorios de carro e é tudo por checkbox
tipo o cliente vai selecionar os acessorios que tem no carro tipo air bug, freio abs, ar-condicionando e ect
mais como eu vou recuperar estes valores e gravar no banco
ja que estou fazendo assim:

<%
Do  While Not Rs.EOF
%>
<td width="22%"><%=Rs("Acenome")%>
<input type="checkbox" name="<%=Rs("AceCod")%>" value="ON"></td>
<%
Rs.MoveNext
Loop
%>

me ajudem galera to no desespero
pq eu recupero as variaveis de form assim:

nome = Trim(Request.form("nome"))

mais como eu to puxando de um loop naum sei como recuperar todas e agora???

bah eu fiz um jeito aqui e deu certo do jeito que eu queria naum meu caso seria mto ruim

ficar criando campos ou tabelas

'Verifico qual é a acao
'aqui ser a parte depois que o cara clicar no bt enviar
If Acao = "mudar" Then
   Dim c, i, A()
   c	= Request("total")
   ReDim A(c)
   For i = 0 to c
	   A(I) = Request("c" & I)
		   If A(I) = "" Then
			   Response.Write ""		
			Else
			   Response.Write(A(I) & "<br>")
			End If
	Next

'***************

Form tal....

<%
'Faco um select que ira mostrar pra mim o total de acessorios
SqlT = "Select Count(*) As Total "_
& "	   From Acessorio_Veiculo "_
& "	  Where AceTipo = '0' "_
& "		And AceStatu = '0' "
Set RsT = Conn.Execute(SqlT)
%>
<input type="hidden" name="total" value="<%=RsT("Total")%>">
<%
'Faço o um select que ira trazer pra mim todos os acessorios
Sql = "Select AceCod, AceNome "_
& "	  From Acessorio_Veiculo "_
& "	 Where AceTipo = '0' "_
& "	   And AceStatu = '0' " 
Set Rs = Conn.Execute(Sql)

ContadorX = 0
Do  While Not Rs.EOF
%>
<b><font size="2" face="Verdana"><%=Rs("Acenome")%>
</font></b><font face="Verdana" size="2">
<input name="c<%=ContadorX%>" type="checkbox" class="input_id" value="<%=Rs("AceCod")%>" 

style="font-weight: 700"></font><b><font size="2" face="Verdana">
</font></b>
<%
ContadorX = ContadorX + 1
Rs.MoveNext
Loop
%>

vlw mano funcionou assim depois de funçar um pouco

Rs.Open SQL,Conn,3,1

galera eu hospedava o meu site em um servidor e fiz uma paginação, ae eu mudei de servidor colocari no host location minha

paginação começou a dar erros oolha o codigo...

'faço o select
Sql = "Select * From Anuncio_Dados"

'Faço o comando para o recordset
Set Rs = Server.CreateObject("ADODB.Recordset")

'Começo a fazer a paginação esta parte eu vou colocar depois da query e antes do meu loop
if Rs.state = 1 then Rs.close
   Rs.Open Sql,conn,3,3
   'Verifico sem tem registro
   if not Rs.EOF then
	   Rs.PageSize = 10 'Quantidade de registros por pagina
	   IF Request.QueryString("pag")="" then 
		   intpag = 1 
		   p_inicial = 1
	   Else
		   IF cint(Request.QueryString("pag"))<1 then
			   intpag = 1
			   p_inicial = 1 
		   Else
			   IF cint(Request.QueryString("pag")) > Rs.PageCount then 
					 intpag = dados.PageCount 
				   p_inicial = 1
			   Else
				   intpag=Request.QueryString("pag")
			   End If
		   End If
	   End If
	   Rs.AbsolutePage = intpag
	   intrec=0

	   'Faço o Loop parte 2
	   While intrec < Rs.PageSize and not Rs.EOF
		  Response.Write(Rs("CodAnuncio") & "<br>")
		  Rs.MoveNext
 		  intrec=intrec+1		  
	   Wend

Esta é a parte do começo dele e ele esta dando confilto nesta linha

Rs.AbsolutePage = intpag

Erro:

ADODB.Recordset (0x800A0CB3)
O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de 

cursor selecionado.

o que sera que pode ser, problema é que no outro servidor funcionava.....

tem jeito sim se eu fizer isto:

img_alta.innerHTML = '<%="<a href=\'java script: deletar(""ex_alta25.asp?manual="&vImgAlta&""")\'>Excluir Imagem</a>"%> &nbsp;';

e naum precisava me lembrar como funciona asp ou javascript ok......

galera estou com problemas no inner html se eu usar meu codigo assim

img_alta.innerHTML = '<%="<a href=java script:deletar(""ex_alta25.asp"")>Excluir Imagem</a>"%>' + "&nbsp;";

Ele abre a pop up e blz, mais eu preciso deixar meu codigo assim:

img_alta.innerHTML = '<%="<a href=java script:deletar(""ex_alta25.asp?manual="&vImgAlta&""")>Excluir Imagem</a>"%>' + 

"&nbsp;";

So que ele nao abre a janela, pareçe ser problemas de aspas o que sera que eu posso fazer???

sem sucesso....o titulo ainda esta errado e no corpo do email veio escrito False...........
que negocio xatu heimmm

	Set Mailer = Server.CreateObject("Persits.MailSender")
	Mailer.Host = "host"
	Mailer.IsHTML = True
	Mailer.FromName   = reg("nome")
	'Mailer.From = dados("email_cad")
	Mailer.AddAddress email
	'Mailer.AddCC mailz
	'Mailer.AddBcc = mailz
	Mailer.CharSet = 2	
	Mailer.Subject = "Ativação de Cadastro"
	Mailer.Body = Mensagem
	Mailer.Send

é assim que tem que ficar pq o ativação ainda esta apareçendo ativagco
o mais doido é que quando eu clico em responder no outlook o assunto fica certinho so na caixa de entrada que fica errado o que fazer??