Ir para conteúdo

POWERED BY:

Arquivado

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

kadix

insert

Por , em ASP Clássico

Recommended Posts

kadix    0

kadix
Postado

Oi pessoalto em cacos! ;) eu fiz tudo de novo pela 4ª vez e pelo jeito to errando pela 4ª vez também porque continua não inserindo os dados do meu pedido no BD.E o pior nao acusa nenhum erro, mas quando vou verificar no BD, cadê???nao tem nada na tabela pedidos.alguma alma caridosa, pelo amor de Deus me ajuda a resolver isto?====================================================<title>Orçamento Online</title><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><p> </p><table width=75% border=0 align="center" cellpadding="0" cellspacing="0"><tr width=100%><td width=100% valign=top><h2 align="right"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif"><strong>Registrar Pedido</strong></font></h2></td></tr><%Dim usuario,senha,cadastro_link,chk_usuario,temp,arrTemp,lista_pedid,pgmt_tipos,chk_cpfcnpj,pgmt_cfgIf IsEmpty(Session("usuario_id")) OR Session("usuario_id") = "" Then %> <tr width=100%> <td width=100%><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Você precisa fazer o Login antes de fechar o pedido <br> Clique <a href="login.asp?pagina=fecharpedido.asp">aqui</a> para ativar a sua conta <% If Not cadastro_link = "N" Then Response.Write "ou<br>Clique <a href=""cadastro.asp?pagina=fecharpedido.asp"">aqui</a> se você ainda não se cadastrou em nossa loja." End If %> </font></div></td> </tr> <%End If'Orçamento vazio?If (IsEmpty(Session("car_prod_id")) OR Not IsArray(Session("car_prod_id"))) AND Not IsEmpty(Session("usuario_id")) Then %> <tr width=100%> <td width=100%><font color=red> <h4 align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Orçamento Vazio</strong></font></h4> </font></td> </tr><tr width=100%> <td width=100%><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Por favor, selecione os produtos que deseja comprar antes de fechar o pedido</font></div></td> </tr> <% End If'Carrinho com produtos e usuário logadoIf Not IsEmpty(Session("car_prod_id")) AND Not IsEmpty(Session("usuario_id")) AND IsArray(Session("car_prod_id")) Then If IsEmpty(Request.QueryString("acao")) OR (Request.QueryString("acao") = "cadastrar" AND IsEmpty(Request.QueryString("pgmt_id"))) Then %> <tr width=100%><td width=100% valign=top><MM:BeginLock translatorClass="MM_SSI" type="ssi_comment" orig="%3C!--#include file=%22msgprecompra.inc%22--%3E" fileRef="msgprecompra.inc" depFiles="file:///C|/Inetpub/wwwroot/mk/msgprecompra.inc"><p></p><MM:EndLock></td></tr> <tr width=100%> <td width=100% style="text-align:center"> <h4><font size="2" face="Arial, Helvetica, sans-serif"><strong>Escolha a forma do orçamento para <i>Concluir </i></strong></font></h4> <strong><font size="2" face="Arial, Helvetica, sans-serif"> <% set pgmt_tipos = mkDB.Execute("SELECT * FROM pgmt_tipos WHERE ativado = 'S'") If pgmt_tipos.EOF Then Response.Write "Não existe nenhuma forma de pagamento disponível no momento." Else While Not pgmt_tipos.EOF %>  [<a href="fecharpedido.asp?acao=cadastrar&pgmt_id=<%=pgmt_tipos("id")%>"><%=pgmt_tipos("dados")%></a>]  <% pgmt_tipos.MoveNext Wend End If %> </font></strong> </td> </tr> <% End If If Not IsEmpty(Request.QueryString("acao")) AND Request.QueryString("acao") = "cadastrar" Then 'Login OK, gravando pedido Dim ped_id,ped_data_ped,ped_status,ped_user_id,ped_prod_id,ped_prod_quant set lista_pedid = mkDB.Execute("SELECT * FROM pedidos ORDER BY ped_id DESC") If lista_pedid.EOF Then ped_id = 1 Else ped_id = lista_pedid("ped_id") + 1 End If ped_data_ped = Now ped_status = 1 ped_user_id = Session("usuario_id") 'Lendo informações do pedido Dim ped_prod_atual,ped_grava,loop1 For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) arrTemp = Split(Session("car_prod_id")(loop1),"&") ped_prod_id = arrTemp(1) set ped_prod_atual = mkDB.Execute("SELECT * FROM produtos WHERE id="& ped_prod_id &" AND disp='S'") arrTemp = Split(Session("car_prod_id")(loop1),"&") ped_prod_quant = arrTemp(2) 'Grava Pedido set pgmt_tipos = mkDB.Execute("SELECT * FROM pgmt_tipos WHERE ativado = 'S' AND id = " & Request.QueryString("pgmt_id")) If pgmt_tipos.EOF Then %> <tr width=100%><td width=100% style="text-align:center"><h4><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif">A forma do orçamento escolhida é inválida.</font></h4> <br> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Clique <a href="fecharpedido.asp">aqui</a> para voltar e escolher uma forma do orçamento válida.</font></td> </tr> <% Response.End Else pgmt_cfg = pgmt_tipos("cfg") Select Case pgmt_cfg Case "via_fax" set chk_cpfcnpj = mkDB.Execute("SELECT cpfcnpj FROM clientes WHERE id = " & ped_user_id) If IsNull(chk_cpfcnpj("cpfcnpj")) OR chk_cpfcnpj("cpfcnpj") = "" OR chk_cpfcnpj("cpfcnpj") = " " Then %> <tr width=100%> <td width=100% style="text-align:center"> </td> </tr></table> <div align="center"> <% Response.End Else mkDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_quant,pgmt_id) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & ped_prod_quant & "," & Request.QueryString("pgmt_id") & ")") End If Case "msg_pgmt" mkDB.Execute("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_quant,pgmt_id) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & ped_prod_quant & "," & Request.QueryString("pgmt_id") & ")") End Select End If Next Session("car_prod_id") = "" %></div><tr width=100%> <td width=100%><h3 align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Orçamento Enviado com Sucesso</strong></font></h3></td></tr><tr width=100%> <td width=100%><h4 align="center"><strong><font size="2" face="Arial, Helvetica, sans-serif">Todos produtos selecionados foram removidos.</font></strong></h4></td></tr><tr width=100%> <td><h4 align="center"><strong><font size="2" face="Arial, Helvetica, sans-serif">O número do seu pedido é <i><font color="#FF0000"><%=ped_id%></font></i></font></strong></h4></td></tr><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"> <font face="Verdana, Arial, Helvetica, sans-serif"> <font size="1"> </font></font></font> </div><tr width=100%> <td> </td></tr><tr width=100%> <td> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <MM:BeginLock translatorClass="MM_SSI" type="ssi_comment" orig="%3C!--#include file=%22msgpedfechado.inc%22--%3E" fileRef="msgpedfechado.inc" depFiles="file:///C|/Inetpub/wwwroot/mk/msgpedfechado.inc"><p>Por favor, anote-o em um local seguro.<br><p>Você pode verificar o seu pedido a qualquer momento.<br>Para isso clique <a href="status.asp?pedido=<%=ped_id%>">aqui</a> ou no link Checar Pedido.</p><MM:EndLock> </font></div> </font></td></tr><div align="center"></font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%End IfEnd If%>==========================================

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rafael Abad    0

Rafael Abad
Postado

Coloca asp simples antes das comprastas, ta sem, e outra, da um response.write para ver o a sua instrução SQL.mkDB.Execute ("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_quant,pgmt_id) values (" & ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_user_id & "," & ped_prod_id & "," & ped_prod_quant & "," & Request.QueryString("pgmt_id") & ")")mkDB.Execute ("INSERT INTO pedidos(ped_id,data_ped,status,user_id,prod_id,prod_quant,pgmt_id) values ('" & ped_id & "','" & ped_data_ped & "','" & ped_status & "','" & ped_user_id & "','" & ped_prod_id & "','" & ped_prod_quant & "','" & Request.QueryString("pgmt_id") & "')")Caso n funcionemeu icq é 66933597T+Rafael Abad

Compartilhar este post

Link para o post
Compartilhar em outros sites

kadix    0

kadix
Postado

Oi meninosAgora funcionou!to tão feliz :D Vocês são uns amores, obrigada mesmo fiz o que o Rafael falou e deu certo agora.bjos

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