Ir para conteúdo

POWERED BY:

Arquivado

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

cidadao_cane

produtos não fic em BD, e sim em session

Por , em ASP Clássico

Recommended Posts

cidadao_cane    0

cidadao_cane
Postado

Ola,como fazer para enviar o produtos de pedido/orçamento para o e-mail?Os produtos são armazenados numa session e não em BD.funciona assim: o cliente faz uma busca por produtos e ao clicar sobre o produto gera-se um orçamento, que tem também o formulário para preenchimento dos dados. O cliente clica em enviar e os dados e os produtos deveriam chegar no meu e-mail. Os dados do cliente chega, mas os produtos não.Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

cidadao_cane    0

cidadao_cane
Postado

Olá cogumelo,

 

Aí vai o código. Cara to precisando demais resolver isso. Me ajuda nessa.

são dois codigos:

 

Este recebe os produtos clicados pelo cliente

 

<%

function fselect(db,query)

dim rs

set con=server.createObject("adodb.connection")

con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\accounts\terra\produtos\produtos.mdb"

'con.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\terragrande\produtos\produtos.mdb"

 

 

set rs=server.createObject("adodb.recordset")

 

rs.CursorLocation= 3 ' adUseClient

 

rs.open query,con

 

set fselect=rs

 

set rs.activeconnection=nothing

 

set fselect=rs

con.close

set con=nothing

 

end function

 

'--------------------------------------

sub showProductDetails(id)

dim rs

set rs=fselect(Application("Product"),"select * from items where id=" & id)

while not rs.eof

if rs.bof then break

response.write "<td align=center><font size=2 face=monospaced><b>" & rs("name") & "</b></font></td>"

response.write "<td align=center><a href=""foto.asp?id=" & id & """><font color=blue><acronym title=Foto-não-disponível>Ver imagem</acronym></font></a></td>"

response.write "<td align=center><font size=2 face=monospaced><b>" & "</b></font></td>"

rs.moveNext

wend

 

rs.close

set rs=nothing

end sub

 

'------------------------------------------

sub showProductCount(idp)

dim rs

set rs=fselect(Application("Product"),"select count1 from basket where idp=" & idp & " and ids='" & Session.SessionID & "'" )

while not rs.eof

if rs.bof then break

response.write "<td align=center><input type=text name=count" & idp & " size=10 maxlength=10 value=""" & rs(0) & """></td><input type=hidden name=pid value=" & idp & ">"

rs.moveNext

wend

 

rs.close

set rs=nothing

end sub

 

'------------------------------------------

sub showTotalCost()

dim total,rs,rs1

total=0

set rs=fselect(Application("Product"),"select items.price,basket.count1 from basket,items where ids='" & Session.SessionID & "' and idp=items.id" )

while not rs.eof

if rs.bof then break

total=total+rs(0)*rs(1)

rs.moveNext

wend

 

rs.close

set rs=nothing

response.write total

end sub

%>

<html>

<head>

<!--#include file="../includes/inc_top.asp"-->

<!--link type="text/css" rel="stylesheet" href="stil.css" -->

<style>

A:link {

COLOR: blue; FONT-FAMILY: Tahoma, Arial, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; TEXT-DECORATION: none

}

A:visited {

COLOR: #ffffff; FONT-FAMILY: Tahoma, Arial, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; TEXT-DECORATION: none

}

A:hover{

COLOR: #CCFFFF; FONT-FAMILY: Tahoma, Arial, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; TEXT-DECORATION: none

}

A:active {

COLOR: #ffffff; FONT-FAMILY: Tahoma, Arial, sans-serif; FONT-SIZE: 8pt; FONT-WEIGHT: normal; TEXT-DECORATION: none

}

 

</style>

<script language="vb script:history.go(-1)"><font color="#0000CC" size="2"><<<

Continuar >>></font></a> </td>

</tr>

</table>

<br>

<br>

<form action="atualizar.asp" method=post>

<table align=center width=90% border=1>

<tr bgcolor=#f0f0f0>

<td align=center><b>Nome</b></td><td></td><td align=center><b>Preço</b></td><td align=center><b>Quant</b></td><td></td>

</tr>

<%

count=0

set rs=fselect(Application("Product"),"select idp from basket where ids='" & Session.SessionID & "'")

while not rs.eof

if rs.bof then break

response.write "<tr>"

showProductDetails rs("idp")

showProductCount rs("idp")

response.write "<td align=center><a href=""deleteFromBasket.asp?id=" & rs("idp") & """><font color=blue>Apagar</font></a></td>"

response.write "</tr>"

count=count+1

rs.moveNext

wend

rs.close

set rs=nothing

%>

<tr bgcolor=#f0f0f0>

<td colspan=3><font size=2 face=monospaced><b></b></font></td>

<td colspan=2><input type=submit value="Atualizar"></td>

</tr>

</table>

<input type=hidden name=pcount value=<%=count%>>

</form>

<%

if count>0 then

%>

<br>

<br>

<hr>

<table border="0" cellpadding="2"

width="100%">

<tr>

<td colspan="2" bgcolor="#000000"><b><font color="#FFFFFF"

size="1" face="verdana, arial, tahoma"><a name="dados">Dados</a>

pessoais: <font size="3">Marcados com </font></font><font face="verdana, arial, tahoma" size="3"><font

color="#FF0000">*</font></font> <font color="#FFFFFF" size="3">São

Necessários</font></b></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Nome:<font

color="#FF0000">*</font></font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="NOME" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Razão

Social:<font

color="#FF0000">*</font></font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="RAZAOSOCIAL" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Endereço:</font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="ENDERECO" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">C.G.C:</font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="CGC" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Insc:</font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="INSC" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Cep:</font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="CEP" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Cidade:<font

color="#FF0000">*</font></font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="CIDADE" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Estado:<font

color="#FF0000">*</font></font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="ESTADO" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">E-mail:<font

color="#FF0000">*</font></font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text"

size="40" name="EMAIL" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080">

</font></td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Telefone:<font

color="#FF0000">*</font></font></td>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">

<input type="text" size="40" name="TELEFONE" style="font-family: verdana; font-size: 8 pt; font-weight: bold; border: 2 solid #808080" value="">

</font></td>

</tr>

<tr>

<td colspan="2" bgcolor="#000000"><b><font color="#FFFFFF"

size="1" face="verdana, arial, tahoma">Dados do pagamento:</font></b></td>

</tr>

<tr>

<td bgcolor="#F0F0F0">Pedido/Orçamento</td>

<td bgcolor="#F0F0F0">

<select

name="PEDIDO" size="1">

<option value="Orçamento"><font face="verdana, arial, tahoma" size="1">Orçamento</font></option>

<option value="Pedido"><font face="verdana, arial, tahoma" size="1">Pedido</font></option>

</select>

</td>

</tr>

<tr>

<td bgcolor="#F0F0F0"><font face="verdana, arial, tahoma" size="1">Cobrança

bancaria:</font></td>

<td bgcolor="#F0F0F0">

<select

name="COBRANCA" size="1">

<option selected value="Banco do Brasil"><font face="verdana, arial, tahoma" size="1">Banco

do Brasil</font></option>

<option value="Bradesco"><font face="verdana, arial, tahoma" size="1">Bradesco</font></option>

</select>

</td>

</tr>

<tr>

<td colspan="2" bgcolor="#000000"><b><font color="#FFFFFF"

size="1" face="verdana, arial, tahoma">Algum comentário adicional:</font></b></td>

</tr>

<tr>

<td colspan="2"><font face="verdana, arial, tahoma" size="1">

<textarea name="OBS"

rows="6" cols="40"></textarea>

</font></td>

</tr>

</table>

<p>

<table align=center>

<tr><td colspan=2><b>Enviar orçamento</b></td></tr>

<tr>

<td><br>

<form action="postar.asp" method="post" name="paygate">

 

<input type=hidden value="<% showTotalCost%>" name="txt" >

<input type="submit" name="Submit" value="Enviar">

</form>

</td>

<td>  </td>

</tr>

</table>

<%

else

%>

<p align=center><b>Nenhum item no seu orçamento</b></p>

<br>

<a href="default.asp">Voltar</a>

<%

end if

%>

</body>

</html>

 

E este é o deveria enviar por e-mail

 

 

<%

function fselect(db,query)

dim rs

set con=server.createObject("adodb.connection")

con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\accounts\terra\loja\product.mdb"

' con.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\meus documentos\scripts\loja\ecommerce\product.mdb"

 

set rs=server.createObject("adodb.recordset")

 

rs.CursorLocation= 3 ' adUseClient

 

rs.open query,con

 

set fselect=rs

 

set rs.activeconnection=nothing

 

set fselect=rs

con.close

set con=nothing

 

end function

 

'--------------------------------------

sub showProductDetails(id)

dim rs

set rs=fselect(Application("Product"),"select * from items where id=" & id)

while not rs.eof

if rs.bof then break

response.write "<td align=center><font size=2 face=monospaced><b>" & rs("name") & "</b></font></td>"

response.write "<td align=center><a href=""picture.asp?id=" & id & """><font color=blue>LARGER VIEW</font></a></td>"

response.write "<td align=center><font size=2 face=monospaced><b>" & rs("price") & "</b></font></td>"

rs.moveNext

wend

 

rs.close

set rs=nothing

end sub

 

'------------------------------------------

sub showProductCount(idp)

dim rs

set rs=fselect(Application("Product"),"select count1 from basket where idp=" & idp & " and ids='" & Session.SessionID & "'" )

while not rs.eof

if rs.bof then break

response.write "<td align=center><input type=text name=count" & idp & " size=3 maxlength=3 value=""" & rs(0) & """></td><input type=hidden name=pid value=" & idp & ">"

rs.moveNext

wend

 

rs.close

set rs=nothing

end sub

 

'------------------------------------------

sub showTotalCost()

dim total,rs,rs1

total=0

set rs=fselect(Application("Product"),"select items.price,basket.count1 from basket,items where ids='" & Session.SessionID & "' and idp=items.id" )

while not rs.eof

if rs.bof then break

total=total+rs(0)*rs(1)

rs.moveNext

wend

 

rs.close

set rs=nothing

response.write total

end sub

%>

 

<%

 

NOME = request("NOME")

RAZAO = request("RAZAOSOCIAL")

ENDERECO = request("ENDERECO")

CGC = request("CGC")

INSC = request("INSC")

CEP = request("CEP")

CIDADE = request("CIDADE")

ESTADO = request("ESTADO")

EMAIL = request("EMAIL")

TELEFONE = request("TELEFONE")

COBRANCA = request("COBRANCA")

CARTAO = request("CARTAO")

PROPRIETARIO = request("PROPRIETARIO")

NUMERO = request("NUMERO")

MES = request("MES")

ANO = request("ANO")

OBS = request("OBS")

VALIDADE = MES & "/" & ANO

strBody = strBody & "Nome : " & NOME & Chr(13) & Chr(10)

strBody = strBody & "Razão Social : " & RAZAO & Chr(13) & Chr(10)

strBody = strBody & "Endereço : " & ENDERECO & Chr(13) & Chr(10)

strBody = strBody & "C.G.C : " & CGC & Chr(13) & Chr(10)

strBody = strBody & "Inscr : " & INSC & Chr(13) & Chr(10)

strBody = strBody & "CEP : " & CEP & Chr(13) & Chr(10)

strBody = strBody & "Cidade : " & CIDADE & Chr(13) & Chr(10)

strBody = strBody & "Estado : " & ESTADO & Chr(13) & Chr(10)

strBody = strBody & "E-mail : " & EMAIL & Chr(13) & Chr(10)

strBody = strBody & "Telefone : " & TELEFONE & Chr(13) & Chr(10)

strBody = strBody & "Cobrança : " & COBRANCA & Chr(13) & Chr(10)

strBody = strBody & "Cartão de Crédito : " & CARTAO & Chr(13) & Chr(10)

strBody = strBody & "Número : " & NUMERO & Chr(13) & Chr(10)

strBody = strBody & "Validade : " & VALIDADE & Chr(13) & Chr(10)

 

mensagem = strBody

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "Terra"

Mailer.FromAddress = "terra@meuhost.com.br"

Mailer.RemoteHost = "mail.meuhost.com.br"

Mailer.AddRecipient "webmaster@meuhost.com.br", "webmaster@meuhost.com.br"

Mailer.Subject = "Compras on-line"

Mailer.BodyText = mensagem

if Mailer.SendMail then

response.redirect "sucesso.asp"

else

response.write "Erro ! Todos os campos são obrigatórios."

end if

%>

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