Tipo.. novamente venho pedir ajuda a vocês.. Com relação ao cadastro de fotos.. Eu já fiz de tudo e to parado na parte de cadastro do álbum.. ta loco nem cheguei ainda na parte de cadastro/upload de fotos
Bom meu problema é o seguinte.. Tenho um formulário na página Inserir.asp direcionada para insert.asp, onde seria inserido no BD. O problema que não esta inserindo.. quando rodo o site, ele chega na página insert e para.. fica tudo branco sem funcionar.
Também tem a parte de exclusão.. Quando mando excluir ele da erro e não exclui..
Pessoal... peço ajuda pois já estou ficando loco com o site e não tenho a mínima idéia de como fazer
Vow coloca o código para vocês entender..
Inserir.asp
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Teste</title>
</head>
<body>
<p>Inserir</p>
<script language="javascript">
function valida_campo() {
<!--
var nome = document.form.nome.value
if (nome==""){
alert("Entre com seu nome!");
document.form.nome.focus()
return false
}
}
//-->
</script>
<form method="POST" action="insert.asp" name="form" onsubmit="return valida_campo()">
<input type="text" name="nome" size="20">
<input type="submit" value="Incluir" name="enviar" onBlur="nome()">
</form>
</body>
</html>
Insert.asp
<%
'Força a declaração de todas as variáveis
Option Explicit
'Não deixa informações no Cache
Response.Expires = 0
'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, nome, telefone, email, comentario, foto
'Atrubuição dos valores as respectivas variáveis
nome = Request.Form("nome")
'Cria o objeto RecordSet e atribui a variável
Set objConn = Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO Album (nome) VALUES ('"&nome&"')"
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing
'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
if err = 0 Then
'Redireciona o usuário caso não tenha ocorrido erro na transação
response.redirect "ok.asp"
end if
%>
Excluir.asp
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nova pagina 1</title>
</head>
<body>
<%
Response.Expires = 0
Dim objConn, objRs
'Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
'Seleciona da tabela contato
Set ObjRs = objConn.Execute("SELECT * FROM Album")
%>
<p>Excluir</p>
<p> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<%While Not objRS.EOF %>
<tr>
<td width="100%"><a href="confirma.asp?id=<%Response.write objRS("id")%>"><%Response.write objRS("nome")%></a> </td>
</tr>
<%
'Move para o próximo registro
objRS.MoveNext
Wend
Set objRs = Nothing
Set objConn = Nothing
%>
</table>
<p><a href="index.asp">Voltar</a></p>
</body>
</html>
Confirma.asp
<meta http-equiv="Content-Language" content="pt-br">
<form action="confirma.asp" method="post">
<%
AlbumID = Request.QueryString("id")
Response.Expires = 0
Dim objConn, objRs, stringSQL
'Conectando com o banco de dados pneu.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("teste.mdb")
Set info = objConn.Execute("SELECT * FROM Album where id="&AlbumID)
%>
</form>
<%Response.write info("nome")%> <p> </p>
<%Response.write info("id")%>
<% stringSQL = "DELETE * FROM Album WHERE id="&AlbumID&""
objConn.Execute(stringSQL)
objConn.close
Set objConn = Nothing
response.redirect "index.asp"
%>
Pessoal... para vocês verem o que está acontecendo.. CLIKA AKI NO MEU SITE .. ae podem fazer o teste de inclusão/exclusão..
Espero que possam me ajudar..
Aguardo resposta..
Anderson Possamai
