Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

Insert into de produtos ao mdb

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Tenho estes script e naun quer dar ceto !!!!!

Como devo fazer para dar certo ...

 

Este script é do ( insert.asp )

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>SISTEMA DE UPLOAD DE QUALQUER ARQUIVO</title>
</head>
<body>

  <form method=POST ENCTYPE="multipart/form-data" action="../cadastro/cad.asp">
	<table>
	  <col width="64" span="3" style="width:48pt">
	  <tr height="17" style="height:12.75pt">
		<td height="17" width="64" style="height:12.75pt;width:48pt"><font size="1" face="Verdana">Nome:</font></td>
		<td width="64" style="width:48pt"><input type="text" name="txtnome" size="20" style="font-family: Verdana; font-size: 10 px; border-style: solid; border-width: 1px"></td>
		<td width="64" style="width:48pt"></td>
	  </tr>
	  <tr height="17" style="height:12.75pt">
		<td height="17" style="height:12.75pt"><font size="1" face="Verdana">Imagem:</font></td>
		<td> <input type="file" name="File1" size="20" style="font-family: Verdana; font-size: 10 px; border-style: solid; border-width: 1px"></td>
		<td></td>
	  </tr>
	  <tr height="17" style="height:12.75pt">
		<td height="17" style="height:12.75pt"><font size="1" face="Verdana">Valor:</font></td>
		<td><input type="text" name="txtpreco" size="20" style="font-family: Verdana; font-size: 10 px; border-style: solid; border-width: 1px"></td>
		<td></td>
	  </tr>
	  <tr height="17" style="height:12.75pt">
		<td height="17" style="height:12.75pt"><font size="1" face="Verdana">Descrição:</font></td>
		<td></td>
		<td></td>
	  </tr>
	  <tr height="17" style="height:12.75pt">
		<td height="17" style="height:12.75pt" colspan="3"><textarea rows="6" name="txtdescricao" cols="46" style="font-family: Verdana; font-size: 10 px; border-style: solid; border-width: 1px"></textarea></td>
	  </tr>
	  <tr height="17" style="height:12.75pt">
		<td height="17" style="height:12.75pt"></td>
		<td></td>
		<td></td>
	  </tr>
	  <tr height="17" style="height:12.75pt">
		<td height="17" style="height:12.75pt"></td>
		<td>
	<input type="submit" Name="Action" value="Adicionar produto">
		</td>
		<td></td>
	  </tr>
	</table>
	<br>
  </form>
</body></HTML>

<!---#INCLUDE FILE="upload.inc" --->

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields
  Set Fields = GetUpload()

'ALTERE A PASTA CHAMADA "imgs" PELA PASTA QUE VOCÊ QUER DEIXAR AS IMGENS 
'LEMBRANDO QUE DEVE ESTAR NO MESMO DIRETORIO DAS PAGINAS UPLOAD.ASP E UPLOAD.INC
'DEIXE A BARRA "/" - PARA USAR NO SEU SITE
'DEIXE A BARRA "\" - PARA USAR NA SUA INTRANET

  FilePath = Server.MapPath("Produtos") & "/" & Fields("File1").FileName
  Fields("File1").Value.SaveAs FilePath
End If

%>

enviar para o mdb ( cadastrar.asp )

<!--#include file="conexao.asp"-->
<% 
Dim conexao
Nome = Request.form("txtNome")
Descricao = Request.form("txtDescricao")
Preco = Request.form("txtPreco")
Imgs = Request.form("txtImgs")
data = day(date)&"/"&month(date)&"/"&year(date) 'aqui a data que foi efetuado o cadastro do Produto.


'aqui é inserido tudo na base
strInsert = " Insert into produtos "
strInsert = strInsert & "(nome, descricao, preco, imgs, data)"
strInsert = strInsert + "VALUES ('" + Nome + "',"
strInsert = strInsert + "'" + descricao + "',"
strInsert = strInsert + "'" + preco + "',"
strInsert = strInsert + "'" + imgs + "',"
strInsert = strInsert + "'" + data + "')"
'é aberta a conexao'
Call abreConexao
Set rsInsert = conexao.Execute(strInsert) 
'é fechada a conexao
Call fechaConexao
Set rsInsert = Nothing


Response.redirect("registrar.asp") 'redireciona para uma página que avise que a chave de ativação foi enviada no e-mail do destinatário. 

on error resume next
if Err.number <> 0 then
					Call Erro("Já existe um usuário cadastrado com esse nome","Err.description")
				end if

'no caso de haver um erro, pode se fazer uma página "aviso.asp" avisando do erro com um "meta refresh redirect de 8 segundos, mais ou menos", logo em seguida redirecionando para o cadastro.asp		

'If err.number <> 0 then
'Response.redirect("aviso.asp")
'end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

você não pode usar request.form quando o enctype do form é multpart

pelo visto você quer fazer upload, tente assim:

 

Fields.form("txtNome")

(não esqueça de trocar os outros request.form)

 

outro detalhe, o on error resume next deve estar acima da execução desejada, no caso retire onde está atualmente e coloque acima da função abreConexao

 

mais uma dica. não precisa usar assim

data = day(date)&"/"&month(date)&"/"&year(date)

simplesmente faça

data = date()

 

porém recomendo usar uma função para formatar a data já que no access você deve enviar a data nbo formato americano para gravar corretamente. No subform de scripts prontos tem diversas funções de formatação de data. Se procurar no forum também encontrará muitas informações

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

você não pode usar request.form quando o enctype do form é multpart

pelo visto você quer fazer upload, tente assim:

 

Fields.form("txtNome")

(não esqueça de trocar os outros request.form)

 

outro detalhe, o on error resume next deve estar acima da execução desejada, no caso retire onde está atualmente e coloque acima da função abreConexao

 

mais uma dica. não precisa usar assim

data = day(date)&"/"&month(date)&"/"&year(date)

simplesmente faça

data = date()

 

porém recomendo usar uma função para formatar a data já que no access você deve enviar a data nbo formato americano para gravar corretamente. No subform de scripts prontos tem diversas funções de formatação de data. Se procurar no forum também encontrará muitas informações

Ola, jonathandj boa noite...

 

cara fiz do jeito q você falou e mesmo assim deu erro, gostaria de saber se você tem ai um pronto ?????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

em qual deu erro?

http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito