s sobre cadastro ASP / Access

[Igormkt 0]

Estou com problemas ao efetuar um cadastro em banco de dados access e programação em ASP:

 

Quando clico no salvar ela abre a página que processa o cadastro porém fica em branco, não aparece a o tela de cadastro realizado com sucesso.

abaixo o formulário e o codigo de processo do cadastro.

 

O formulário está assim:

<%

Dim strURL	 
			 

Dim cnnSearch 
Dim rstSearch  
Dim strDBPath

Dim strSQL	
Dim strSearch  
	   	
strDBPath = "E:\home\escolinhadomax1\dados\joaopedro.mdb"
		
Const adUseClient = 3
	
	Set cnnSearch = Server.CreateObject("ADODB.Connection")
	
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT cod, num, descricao, Janeiro1, Janeiro2, Fevereiro1, Fevereiro2 FROM objetivos"

	Set rstSearch = cnnSearch.Execute(strSQL)
	'intContador = rstSearch.RecordCount
	
	%>
			  </p>
	  
	  </td>
	  </tr>
	  <table width="783" height="50" border="0" align="center">
		  <tr bgcolor="#0000CC">
			<td width="24"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Cod</font></strong></font></div></td>
			<td width="32"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Num</font></strong></font></div></td>
			<td width="412"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Descrição</font></strong></font></div></td>
			<td width="63"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Janeiro1</font></strong></font></div></td>
			<td width="72"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Janeiro2</font></strong></font></div></td>
			<td width="75"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Fevereiro1</font></strong></font></div></td>
			<td width="75"><div align="center"><strong><font face="Tahoma" size="2" color="#FFFF00"></font></strong><font color=royalblue face=Tahoma size=2><strong><font color="#FFFF00">Fevereiro2</font></strong></font></div></td>
		  </tr>
			<%
	Do While Not rstSearch.EOF 
	%>
		 <tr bgcolor="#E5E5E5">
		   <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("cod").Value %></font></div></td>
		   <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("num").Value %></font></div></td>
		   <td><div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("descricao").Value %></font></div></td>
		   <td><form method="post" action="insert_obj.asp" name="Form">
			 <div align="center">
			   <input name="Janeiro1" value="<%= rstSearch.Fields("Janeiro1").Value %>" size="2" />
			 </div>
		   </form></td>
		   <td><form method="post" action="insert_obj.asp" name="Form">
			 <div align="center">
			   <input name="Janeiro2" value="<%= rstSearch.Fields("Janeiro2").Value %>" size="2" />
			 </div>
		   </form></td>
		   <td><form method="post" action="insert_obj.asp" name="Form">
			 <div align="center">
			   <input name="Fevereiro1" value="<%= rstSearch.Fields("Fevereiro1").Value %>" size="2" />
			 </div>
		   </form></td>
		   <td><form method="post" action="insert_obj.asp" name="Form">
			 <div align="center">
			   <input name="Fevereiro2" value="<%= rstSearch.Fields("Fevereiro2").Value %>" size="2" />
			 </div>
		   </form></td>
		</tr>
 
	  <tr>
		  <p align="center">

		<%
			rstSearch.MoveNext
		Loop	
		%>	
	  </table>
			  <form method="post" action="insert_obj.asp" name="Form">
				<input type="submit" name="salvar" value="Salvar">
			</form>

E a página que efetua o cadastro está assim:

 

<%
Option Explicit
Response.Expires = 0

Dim objConn, objRs, strQuery, strConnection, cod, num, descricao, Janeiro1, Janeiro2, Fevereiro1, Fevereiro2, strDBPath
cod = server.htmlEncode(Request.Form("cod"))
num = server.htmlEncode(Request.Form("num"))
descricao = server.htmlEncode(Request.Form("descricao"))
Janeiro1 = server.htmlEncode(Request.Form("Janeiro1"))
Janeiro2 = server.htmlEncode(Request.Form("Janeiro2"))
Fevereiro1 = server.htmlEncode(Request.Form("Fevereiro1"))
Fevereiro2 = server.htmlEncode(Request.Form("Fevereiro2"))
Set objConn =  Server.CreateObject("ADODB.Connection") 
strDBPath = "E:\home\escolinhadomax1\dados\joaopedro.mdb"
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  & strDBPath & ";"

strQuery = "INSERT INTO objetivos (cod,num,descricao,Janeiro1,Janeiro2,Fevereiro1,Fevereiro2) VALUES ('"&cod&"','"&num&"','"&descricao&"','"&Janeiro1&"','"&Janeiro2&"','"&Fevereiro1&"'','"&Fevereiro2&"')"
On error Resume Next
Set ObjRs = objConn.Execute(strQuery)
objConn.close
Set objRs = Nothing
Set objConn = Nothing
if err = 0 Then
		response.Redirect "sucessosalvar.asp"
end if
%>

[DSerma 19]

So uma pergunta:

 

Por que você abre dois forms com a mesma action ?

 

você abre um no meio da pagina e um outro no final dela.

Esse do final nao possui nenhum elemento dentro dele...

 

Abraços...

[andreia_sp 1]

Provavelmente nao está caindo no if "if err = 0 Then", ou seja, está ocorrendo algum erro.

O ideal é ate você tratar isso caso o usuario tenha algum problema:

 

if err = 0 Then
response.Redirect "sucessosalvar.asp"
else
response.write "Ocorreu um problema, tente novamente"
end if

[Igormkt 0]

So uma pergunta:

 

Por que você abre dois forms com a mesma action ?

 

você abre um no meio da pagina e um outro no final dela.

Esse do final nao possui nenhum elemento dentro dele...

 

Abraços...

Vou corrigir isso, mas percebi também que estou tentando gravar vários registros de uma vez só.

você sabe como faço para gravar vários registro com apenas um clique.

Igor

 

Provavelmente nao está caindo no if "if err = 0 Then", ou seja, está ocorrendo algum erro.

O ideal é ate você tratar isso caso o usuario tenha algum problema:

 

if err = 0 Then
response.Redirect "sucessosalvar.asp"
else
response.write "Ocorreu um problema, tente novamente"
end if

Vou tentar isso, mas percebi também que estou tentando gravar vários registros de uma vez só.

você sabe como faço para gravar vários registro com apenas um clique.

 

Igor