invictus's Content

#164278 Criar Testes Em Javascript

Posted by invictus on 07/08/2003, 17:19 in HTML, CSS e Metodologias

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?

#184188 O Melhor Livro De Php Onde Eu Posso Aprender Muito

Posted by invictus on 09/09/2003, 13:29 in PHP

eu estou usando o FAÇA UM SITE - PHP, e estou gostando, é bem didatico pra quem ta começando e tem exemplos praticos já que vc faz os exercicios construindo um site.

Posted Image

só não tem mto sobre sql, vc usa um bco de dados ja pronto para construir o site-exercicio.

#117291 Mudanças No Chacal Mail

Posted by invictus on 11/06/2003, 13:54 in ASP

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

<script LANGUAGE = "JavaScript">



</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

#112863 Mudanças No Chacal Mail

Posted by invictus on 05/06/2003, 15:03 in ASP

rapaz, nem funcionou..

aqui esta o codigo de mail.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..

#111604 Mudanças No Chacal Mail

Posted by invictus on 03/06/2003, 14:18 in ASP

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?

#184191 Problemas Com Variaveis Numa Form

Posted by invictus on 09/09/2003, 13:32 in PHP

opa , funcionou , valeu!

#183508 Problemas Com Variaveis Numa Form

Posted by invictus on 08/09/2003, 01:00 in PHP

pessoal , estou com problemas para consultar um bco dados, tenho uma pg de pesquisa html:

<html>
<head>
<title> acessando dados</title>
</head>
<body>
<b>pesquisa por titulo:</b> <br>
<form method="post" action="cap9lab51.php">
titulo: <input type="text" name="txtTitulo">
<input type="submit" value="pesquisar" name="perq">
</form>
</body>
</html>

e a pg php:

<?php

//abre conexao (abreconexao.inc nao funcionou coloquei .php)
include "abreconexao.php";

//cria sentença sql
$sql = "select categorias.nomecat, livros.codlivro, livros.titulo, livros.autor, livros.preco ";
$sql = $sql . "from categorias ";
$sql = $sql . "inner join livros ";
$sql = $sql . "on categorias.codcat = livros.codcat ";
$sql = $sql . "where livros.titulo like '%$txtTitulo%' ";

//carrega registros selecionados
$rs = mysql_query($sql, $conexao) or die ("nao conseguiu efetuar consulta");

?>

<b>livros da editora<br><br></b>
<table width="700" border="1">

<?php
while ($linha = mysql_fetch_array($rs))
{
$codlivro = $linha["codlivro"];
$titulo = $linha["titulo"];
$preco = $linha["preco"];
$autor = $linha["autor"];
$nomecat = $linha["nomecat"];
?>

<td valign="top"><?php echo $codlivro; ?></td>
<td valign="top"><?php echo $titulo; ?></td>
<td valign="top"><?php echo $autor; ?></td>
<td valign="top"><?php echo $nomecat; ?></td>
<td valign="top"><?php printf ("%.2f", $preco); ?></td>
</tr>

<?php
}
mysql_free_result($rs);
mysql_close($conexao);
?>

soh que a resposta q obtenho ao pesquisar é:

Notice: Undefined variable: txtTitulo in C:\serieweb\php\cap9lab51.php on line 12

isto é , o php nao consegue achar a variavel que vem na form. alguem tem ideia do que posso fazer pra arrumar?

#118640 Data No Formanto Dd/mm/yyyy

Posted by invictus on 13/06/2003, 16:58 in ASP

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

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

#129612 Conexão

Posted by invictus on 26/06/2003, 16:39 in ASP

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??

#118012 Sistema De Noticias | Uma Para Cada Dia Do Mes

Posted by invictus on 12/06/2003, 15:00 in ASP

hmm nao consegui, aki ta o codigo:

<%
'abre a conexão com banco de dados
Set noticiasDB = Server.CreateObject("ADODB.Connection")
noticiasDB.Open "DBQ=" & Server.MapPath("tab-noticias.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

data = 1
sql = "SELECT * FROM tab-noticias WHERE data_exib='"&data&"'"
Set rs = noticiasDB.Execute(sql)
%>
<%=rs("txt")%>

e o erro que deu:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na cláusula FROM.

/almanaque/noticias.asp, line 13

#117415 Sistema De Noticias | Uma Para Cada Dia Do Mes

Posted by invictus on 11/06/2003, 16:31 in ASP

preciso fazer o index de uma pg da seguinte maneira:

a cada dia do mes deve ser mostrado uma noticia diferente (não é só txt e sim txt+img+dentro duma pq tabela)

alguem tem ideia de como fazer?

pensei em criar uma ssi para cada dia, mas como chamá-las?

#171224 Código Para Notícias

Posted by invictus on 18/08/2003, 17:29 in ASP

menino, tem uns scripts prontos por ae, vc pode tentar ajustar algum às suas necessidades..

aqui tem um link com alguns..

http://www.wmonline....ia=postnoticias

#92855 Validar Formulario

Posted by invictus on 06/05/2003, 01:58 in ASP

blz, eu consegui em javascript

#91086 Validar Formulario

Posted by invictus on 04/05/2003, 02:24 in ASP

tenho um formulario pra alimentar um banco de dados e esta funcionando direito. Mas quero saber como fazer pra impedir que o usuario deixe um campo em branco. Para não aparecer uns erros do tipo:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Driver ODBC para Microsoft Access] O campo 'veget.endereco' não pode ser uma seqüência de caracteres de comprimento zero.

#145837 Sistema De Combo

Posted by invictus on 15/07/2003, 14:40 in ASP

preciso de um sistema de consulta por combo, são dois combos:

DIA DO MES MESES DO ANO

já tenho o bco de dado. quando não tiver determinado dia de deteminado mes, redirecionar para uma página do tipo "em contrução"

alguem se habilita?

#146606 Sistema De Combo

Posted by invictus on 16/07/2003, 17:53 in ASP

tem esse sistema:

http://forum.wmonlin...=21697&hl=combo

é bem parecido, o que eu preciso é mais simples até, pois não precisa de refresh

#105411 Ez Publish

Posted by invictus on 25/05/2003, 00:13 in PHP

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

#159022 Usando Msde, Não Reconhece Função Date

Posted by invictus on 31/07/2003, 17:42 in ASP

uso o terra e sei lá por que eles não aceitam bco dados MDB.

tranferi para o MSDE, só que agora um script meu não funciona, aparece o seguinte problema:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]'date' is not a recognized function name.

/testartododia.asp, line 68

está dando pau na hora que executa isto aqui:

SQL = "SELECT his_type, his_year, his_title, his_desc, his_image, his_link FROM tododiadata WHERE his_day = datepart('d', date()) AND his_month = datepart('m', date()) ORDER BY his_type, his_year "

set rsGlobal = connGlobal.execute(SQL)

ou seja, preciso saber a data do sistema para chamar o respectivo registro

alguém já passou por isso? Tem idéia do que eu posso fazer?

#171221 Quero Que Apareça Uma Caixa De Mensagem....

Posted by invictus on 18/08/2003, 17:26 in ASP

pra aparecer essa caixa de mensagem tem que ser em javascript, eu nao sei exatamente se tem como o javascript acessar bco de dados, mas vc pode buscar essa informação na sessão de javascript :ok:

#190997 Problemas No Select

Posted by invictus on 19/09/2003, 16:45 in ASP

u-hu, funcionou, valeu!

#190960 Problemas No Select

Posted by invictus on 19/09/2003, 15:56 in ASP

tenho esta pagina de formulario:

<form method="post" action="tddia/tddia_search.asp">
<div align="center"><span class="conteudo">Dia:</span>
<select name="p_dia" class="conteudo">
<option value="0">__</option>
<option value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<span class="conteudo">Mês:</span>
<select name="p_mes" class="conteudo">
<option value="0">_________</option>
<option value="1">Janeiro</option>
<option value="2">Fevereiro</option>
<option value="3">Março</option>
<option value="4">Abril</option>
<option value="5">Maio</option>
<option value="6">Junho</option>
<option value="7">Julho</option>
<option value="8">Agosto</option>
<option value="9">Setembro</option>
<option value="10">Outubro</option>
<option value="11">Novembro</option>
<option value="12">Dezembro</option>
</select>
<input type="submit" value="OK" class="bodytxt" style="border-style: solid; border-width: 1; background-color: ffffcc" name="submit">
</div>
</form>

e esta pg para busca:

<%
p_dia = Request.Form("p_dia")
p_mes = Request.Form("p_mes")

set usuariosDB = server.createObject("ADODB.Connection")
usuariosDB.open "almanaque"

sql = "select tododiadata.his_month, "
sql = sql & "tododiadata.his_link "
sql = sql & "From tododiadata "
sql = sql & "Where tododiadata.his_month = '"& p_mes &"'"

set tddiaset = usuariosDB.Execute(sql)

while not tddiaset.EOF
Response.Write tddiaset("his_link")
tddiaset.MoveNext
wend

tddiaset.Close
set tddiaset = Nothing

usuariosDB.close
set usuariosDB = Nothing

%>

está acontecendo este erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/almanaque/tddia/tddia_search.asp, line 15

alguem tem ideia de como posso resolver?

#171594 Criar Tabela Com O Bco De Dados

Posted by invictus on 19/08/2003, 12:38 in ASP

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

#171244 Criar Tabela Com O Bco De Dados

Posted by invictus on 18/08/2003, 18:02 in ASP

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
%>

#210133 Modificando Uma Enquete

Posted by invictus on 16/10/2003, 12:23 in PHP

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.

#209404 Modificando Uma Enquete

Posted by invictus on 15/10/2003, 14:40 in PHP