mas vem cá, tem que ter un cabeçalho pro javascript funcionar? tipo:

<script LANGUAGE = "JavaScript">

<!--
function abre(palavra)
{
window.open(palavra,'gloss','toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no,copyhistory=no,width=500,height=500');
}
// -->

</script>

pq eu coloquei como vc falou, o redirect funciono mas nao abriu a pop up. Existe já a pg obrigado.asp, está td no mesmo diretorio

rapaz, nem funcionou..

aqui esta o codigo de mail.asp

<!--#include file="cons.asp"-->


<% If Request.Form("acao") = "OK" Then
  set Dicionario = CreateObject("scripting.dictionary")
  i = 0
  if Request.Form("email")="" then
    Dicionario.add i, "É obrigatorio preencher o email!"
    i = i+1
  end if
  Validar = ValidaEmail(request.form("email"))
  If Validar = "Falso" then
  Dicionario.add i, "E-Mail preenchido incorretamente!"
  i = i+1
  end if
AbreConexao
Sql = "SELECT email FROM dados WHERE email = '" & Request.form("email")  & "'"
set Rs =Conexao.Execute(Sql)
If not Rs.Eof then
Dicionario.add i, "E-Mail já cadastrado!"
i= i+1
end if
FechaConexao
  Vet = Dicionario.items
  if Dicionario.Count<>0 then
    Response.Write "<center><font face=verdana size=1 color=red>"
    Response.Write "Verifique isso:<br>"
    for i = 0 to Dicionario.Count - 1
    Response.Write vet(i) & "<br>"
    next
    Response.Write "</font></center>"
else
AbreConexao
Sql = "INSERT INTO dados (email) "
Sql = Sql & "VALUES('" & Request.Form("email") & "')"
Conexao.Execute(Sql)
FechaConexao
%>
     
<p><img src="../images/logo-almanaque.gif" width="284" height="98"></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Obrigado por se
  cadastrar!</font>
     
<p><a href="../index.asp"><img src="../images/mao_esq.jpg" width="65" height="31" border="0"></a></p> 
  <% End If %>
  <% Else
  set Dicionario = CreateObject("scripting.dictionary")
  i = 0
  if Request.Form("email")="" then
    Dicionario.add i, "É obrigatorio preencher o email!"
    i = i+1
  end if
AbreConexao
Sql = "SELECT email FROM dados WHERE email = '" & Request.form("email")  & "'"
set Rs =Conexao.Execute(Sql)
If Rs.Eof then
Dicionario.add i, "E-Mail não cadastrado!"
i= i+1
end if
FechaConexao
  Vet = Dicionario.items
  if Dicionario.Count<>0 then
    Response.Write "<center><font face=verdana size=1 color=red>"
    Response.Write "Verifique isso:<br>"
    for i = 0 to Dicionario.Count - 1
    Response.Write vet(i) & "<br>"
    next
    Response.Write "</font></center>"
else
AbreConexao
Sql = "DELETE * FROM dados WHERE email = '" & Request.form("email")  & "'"
Conexao.Execute(Sql)
FechaConexao %>
Email <%=Request.form("email")%> deletado com sucesso!
<% end if %>
<% end if %>

na parte roxa é onde tentei colocar o codigo que vc me deu mas nao rolou..

quero que o arquivo mail.asp, que é onde aparece a frase "obrigado por se cadastrar" apareça numa popup, e não no explorer


alguem sabe os codigos em javascript pra fazer isso?

Estou armazenando o site num provedor (q nao aceita php) e os scrips no lycos.

O que preciso é um script que apenas compute os votos e mostre os resultados, todos que achei armazenam as perguntas tbm, o que não serve pra mim, pois o formulario vai estar no provedor nao-php. Ele vai disparar a partir de <form action="http://www.............p/enquete.php">

Se alguem tiver um script q compute apenas respostas me diga, senao vou tentar mudar um aqui.

Estou armazenando o site num provedor (q nao aceita php) e os scrips no lycos.

O que preciso é um script que apenas compute os votos e mostre os resultados, todos que achei armazenam as perguntas tbm, o que não serve pra mim, pois o formulario vai estar no provedor nao-php. Ele vai disparar a partir de <form action="http://www.............p/enquete.php">

Se alguem tiver um script q compute apenas respostas me diga, senao vou tentar mudar um aqui.

funcionou meu amigo, valeu!

rapaz, nao entendi umas coisas:

essa parte vai dentro do index 2?

<iframe id="exemplo"></iframe>

sendo assim eu tiro a src? (minha iframe:

<iframe
id="exemplo" 
name =  "conteudo"
height = "266"
width = "563"
frameborder = "0"
src = "entrada.htm"> </iframe>

e esse, vai em q arquivo?

<script language="JavaScript"
  var area =  location.search.slice(1);
  document.getElementById("exemplo").src = area + ".htm";
</script>

desculpe a ignorancia, é que testei aqui de alguns jeitos mas não deu certo

nao está indo, não sei o que esta errado:

index:

<area shape="rect" coords="202,48,231,62" href="index2.htm?perfil">

index2:

<head>
<script language="JavaScript">
  var area =  location.search.slice(1);
  document.getElementById("exemplo").src = area + ".htm";
</script>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<iframe
id="exemplo" 
name =  "conteudo"
height = "266"
width = "563"
frameborder = "0">
</iframe>

</body>
</html>

Estou com um problema, coloco essa img para ilustrar.



tenho a pagina index com alguns links. Esses links devem abrir a pagina index2 com sua respectiva iframe.

A pagina index2 tem os links para abrir dentro da iframe e estão funcionando OK, mas queria que a index pudesse abrir direto

alguem sabe se o win ME usa o IIS ou o PWS?

no cd do win me nao veio nenhum deles

eu ja tentei a brinkster e a websamba, nao achei nenhuma boa, a que eu me dei melhor foi essa:

http://www.1asphost.com/

cade td mundo? preciso saber issooo

ae leandro, dá pra vc postar os campos do bco de dados que vc usou e o formulario usado? to com dificuldades em substituir os campos...

<%
Dim con, data_source
data_source = "driver=MySQL;server=127.0.0.1;uid=root;pwd=;database=teste"
Set con = Server.CreateObject("ADODB.Connection")
con.cursorlocation = 3
con.Open data_source
Response.Buffer = False
estado = request("estado")
sql = "select * from estados order by descricao"
set rs = con.execute(sql)
%>
<html>
<head></head>
<body>
<form name="form1" method="post">
<select name="estado" onchange="window.navigate('index.asp?estado='+form1.estado.value)">
<option value="SELECIONE">Selecione o estado</option>
<% while not rs.eof %>
<option value="<%=rs("id")%>"> <%=rs("descricao")%> </option>
<%
rs.movenext
wend %>
</select>
<%
if estado = "" then
%>
<select name="cidade">
<option value="SELECIONE">Selecione a cidade</option>
</select>
<% else
sqlcid = "select * from cidades where idestado = '" &estado& "'"
set rs1 = con.execute(sqlcid)
%>
<select name="cidade">
<option value="SELECIONE">Selecione a cidade</option>
<% while not rs1.eof %>
<option value="<%=rs1("id")%>"> <%=rs1("descricao")%> </option>
<%
rs1.movenext
wend %>
</select>
<% end if %>

</form>
</body>
</html>

estou tentando instalar o ez publish aqui mas tá dando erros, alguém aqui usa pra eu pedir um help?

não sei se ajuda mas tem esse codigo pronto:

http://www.codigoliv...ngid=1&catid=15

valeu ao pessoal que respondeu, esse da dominio achei poucas horas mesmo (só 14). esse bit-net parece bom, e o preço tbm.. vi no senac e tá 700 paus por 60 hs!

vou dar uma olhada no script brasil tbm..

mais sugestões eu agradeço

estou querendo entrar em um curso, alguém tem algum pra me indicar fora impacta, senac?

valeu foxn, se o pessoal souber mais mande ae,

preciso criar um teste parecido com este:

http://www.alito.kit...te/loucura.html

só que no meu teste eu tenho 8 perguntas com 4 opcoes cada. Cada resposta certa vale um ponto e a resposta varia de acordo com a pontuação:
1 a 2 = ruim
3 a 4 = medio
5 a 8 = bom

alguem tem sugestoes de como fazer?

abra o link contido na palavra revista ou clique aqui:


http://capricho.abri...es.html#familia

alguém tem ideia de como fazer testes iguais ao dessa revista?

revista

meu funcionar funciona, mas sei lá por que a 1ª coluna do meu bco de dados foi "comida", isto é, não aparece

tenho um bco de dados em access e preciso que seus registros sejam mostrados dentro de uma tabela.

tentei esse mas nao deu certo:

<%
      'abre a conexão com banco de dados
  set usuariosDB = server.CreateObject("ADODB.CONNECTION")
  conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../dados/almanaque.mdb")
      usuariosDB.Open ConStr
 
      set tableSet = Server.CreateObject("ADODB.RecordSet")
    tableSet.Open "tododiadata", usuariosDB, adOpenForwardOnly, adLockOptimistic, adCmdTable
%>
      <TR>           
<%      p_numberOfColumns = tableSet.fields.Count
        for x = 0 to (p_numberOfColumns - 1)  %>
            <TH><%= tableSet.Fields(x).Name %></TH>
<%      next  %>
    </TR>

<%    while not tableSet.EOF    %>
        <TR>
       
       
<%            for col = 1 to (p_numberofColumns-1)
%>                  <TD>
                      <%= tableSet.fields(col).Value %>
                        </TD>
<%            next  %>
        </TR>
<%        tableSet.MoveNext
      wend
    tableSet.Close
%>

  </TABLE>
  <br>
 
<% 

  usuariosDB.Close
    set usuariosDB = Nothing
end if
%>

estou fazendo algo parecido mas é para inserir em 2 tabelas:

<%



    p_nome = Request.Form("p_nome")
    p_sexo = Request.Form("p_sexo")
    p_cidade = Request.Form("p_cidade")
    p_estado = Request.Form("p_estado")
    p_emeio = Request.Form("p_emeio")
 
    set usuarios1DB = server.CreateObject("ADODB.CONNECTION")
    usuarios1DB.Open "usuarios"

        theSQL = "insert into dados "
        theSQL = theSQL & "(nome, sexo, cidade, estado, "
        theSQL = theSQL & "emeio)"
        theSQL = theSQL & " values ('"&p_nome&"', '"&p_sexo&"', '"
        theSQL = theSQL & p_cidade&"', '"&p_estado&"', '"&p_emeio&"')"


        usuarios1DB.Execute(theSQL)

        usuarios1DB.close
        set usuarios1DB = Nothing

        set usuarios2DB = server.CreateObject("ADODB.CONNECTION")
      usuarios2DB.Open "email"

      theSQL2 = "insert into dados "
        theSQL2 = theSQL & "(email)"
        theSQL2 = theSQL & " values ('"&p_emeio&"')"
     
        usuarios2DB.Execute(theSQL2)

        usuarios2DB.close
        set usuarios2DB = Nothing
%>

mas nao ta funcionando alguem tem algum ideia??

vc pode colocar o topo dentro de um ssi, ae criar um javascript popup que chame a pagina sem o ssi..

é o que pensei de primeira, espero q ajude