There have been 52 items by invictus (Search limited from 26/04/2023)
Posted by
on 28/08/2003, 15:09
in
ASP
set usuariosDB = server.CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../dados/almanaque.mdb")
usuariosDB.Open ConStr
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn
Posted by
on 21/11/2003, 15:14
in
HTML, CSS e Metodologias
Posted by
on 24/11/2003, 14:13
in
HTML, CSS e Metodologias
<iframe id="exemplo"></iframe>
<iframe
id="exemplo"
name = "conteudo"
height = "266"
width = "563"
frameborder = "0"
src = "entrada.htm"> </iframe>
<script language="JavaScript"
var area = location.search.slice(1);
document.getElementById("exemplo").src = area + ".htm";
</script>
Posted by
on 24/11/2003, 14:35
in
HTML, CSS e Metodologias
<area shape="rect" coords="202,48,231,62" href="index2.htm?perfil">
<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>
Posted by
on 25/11/2003, 12:50
in
HTML, CSS e Metodologias
Posted by
on 07/08/2003, 16:15
in
ASP
Posted by
on 20/08/2003, 17:20
in
HTML, CSS e Metodologias
Posted by
on 09/06/2003, 14:34
in
ASP
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/newsletter/mail.asp, line 36
Posted by
on 09/06/2003, 15:13
in
ASP
Posted by
on 11/06/2003, 13:37
in
ASP
siiiim! valeu!
Posted by
on 10/06/2003, 13:32
in
ASP
Server.MapPath() error 'ASP 0171 : 80004005'
Missing Path
/cons.asp, line 4
The Path parameter must be specified for the MapPath method.
<!--#include file="config.asp"-->
<%
Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(dados)
ConexaoAberta = FALSE
Sub AbreConexao()
if not ConexaoAberta then
Conexao.Open ConStr
ConexaoAberta = True
end if
end sub
Sub FechaConexao()
if ConexaoAberta then
Conexao.close
ConexaoAberta = False
end if
end sub
Function ValidaEmail(email)
Dim totCaracteres,Caractere
totCaracteres = Len(email)
for I = 1 to totcaracteres
Caractere = Mid(email,I,1)
if Caractere = "@" then
validaEmail = "Verdadeiro"
exit for
else
ValidaEmail = "Falso"
End If
Next
End Function
%>
Posted by
on 14/04/2003, 00:58
in
PHP
Posted by
on 15/04/2003, 01:03
in
PHP
Posted by
on 17/04/2003, 01:43
in
PHP
Posted by
on 16/09/2003, 20:58
in
PHP
nao conseguiu executar instrução INSERT
Posted by
on 11/09/2003, 12:41
in
PHP
<?php
//????? -esta dando pau
$txtCodLivro = trim($txtCodLivro);
$txtCodCat = trim($txtCodCat);
$txtTitulo = trim($txtTitulo);
$txtAutor = trim($txtAutor);
$txtNPaginas = trim($txtNPaginas);
$txtFormato = trim($txtFormato);
$txtPreco = trim($txtPreco);
$txtResenha = trim($txtResenha);
$txtCapa = trim($txtCapa);
$txtDtLanc = trim($txtAno) + trim($txtMes) + trim($txtDia);
//abre conexao (abreconexao.inc nao funcionou coloquei .php)
include "abreconexao.php";
//cria sentença sql de inclusao
$sqlINS = "insert into livros ";
$sqlINS = $sqlINS . "(codLivro, codCat, titulo, autor, npaginas, formato, preco, resenha, dtLanc, capa) ";
$sqlINS = $sqlINS . "values ('$txtCodLivro', ";
$sqlINS = $sqlINS . "'$txtCodCat', ";
$sqlINS = $sqlINS . "'$txtTitulo', ";
$sqlINS = $sqlINS . "'$txtAutor', ";
$sqlINS = $sqlINS . "'$txtNPaginas', ";
$sqlINS = $sqlINS . "'$txtFormato', ";
$sqlINS = $sqlINS . "'$txtPreco', ";
$sqlINS = $sqlINS . "'$txtResenha', ";
$sqlINS = $sqlINS . "'$txtDtLanc', ";
$sqlINS = $sqlINS . "'$txtCapa')";
//carrega registros selecionados
$rs = mysql_query($sqlINS, $conexao) or die ("nao conseguiu executar instrução INSERT");
$numRegistros = mysql_num_rows($rs)
?>
o livro <?php echo $txtTitulo; ?> foi incluido com sucesso<br><br>
<a href="cap10lab11.htm">clique para inserir novo livro</a>
<?php
mysql_close($conexao);
?>
Notice: Undefined variable: txtCodLivro in C:\serieweb\php\cap10lab11.php on line 4
Notice: Undefined variable: txtCodCat in C:\serieweb\php\cap10lab11.php on line 5
Notice: Undefined variable: txtTitulo in C:\serieweb\php\cap10lab11.php on line 6
Notice: Undefined variable: txtAutor in C:\serieweb\php\cap10lab11.php on line 7
Notice: Undefined variable: txtNPaginas in C:\serieweb\php\cap10lab11.php on line 8
Notice: Undefined variable: txtFormato in C:\serieweb\php\cap10lab11.php on line 9
Notice: Undefined variable: txtPreco in C:\serieweb\php\cap10lab11.php on line 10
Notice: Undefined variable: txtResenha in C:\serieweb\php\cap10lab11.php on line 11
Notice: Undefined variable: txtCapa in C:\serieweb\php\cap10lab11.php on line 12
Notice: Undefined variable: txtAno in C:\serieweb\php\cap10lab11.php on line 13
Notice: Undefined variable: txtMes in C:\serieweb\php\cap10lab11.php on line 13
Notice: Undefined variable: txtDia in C:\serieweb\php\cap10lab11.php on line 13
nao conseguiu executar instrução INSERT
Posted by
on 11/09/2003, 13:32
in
PHP
Posted by
on 22/08/2003, 13:42
in
ASP
Posted by
on 09/09/2003, 13:29
in
PHP
Posted by
on 21/08/2003, 17:25
in
ASP
<%@ language="vbscript" %>
<!--#include file="../usuarios/adovbs.inc"-->
<%
p_dia = Request.Form("p_dia")
p_mes = Request.Form("p_mes")
set usuariosDB = server.CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../dados/almanaque.mdb")
usuariosDB.Open ConStr
sqlText = "select * From tododiadata Where his_month='"& p_mes &"' and his_day='"& p_dia &"'"
set tddiaset = usuariosDB.Execute(sqlText)
while not tddiaset.EOF
Response.Write tddiaset("his_link")
tddiaset.MoveNext
wend
tddiaset.Close
set tddiaset = Nothing
usuariosDB.close
set usuariosDB = Nothing
%>
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.
Posted by
on 10/07/2003, 16:55
in
ASP
<%
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>
Posted by
on 11/06/2003, 13:54
in
ASP
<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>
Posted by
on 05/06/2003, 15:03
in
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 %>
Posted by
on 11/07/2003, 14:00
in
ASP
Posted by
on 03/06/2003, 14:18
in
ASP
