|
|
|
| ChocoBis - Cascata de chocolate e Fonte de Chocolate |
|
|
| |
Imagine um delicioso morango mergulhado em uma cascata de chocolate morno derretido. A cascata de chocolate enchem os olhos, de dar água na boca e proporciona elegância e muito sabor aos seus eventos.
A ChocoBis é um buffet especialista em Cascata de Chocolate servido com frutas e guloseimas, marshmallow, waffles e tudo o que a sua imaginação e bom gosto sugerir. Aprecie está novidade em sua Festa ! |
|
 |
|
Casamento |
|
Debutante "15 anos" |
|
Aniversário Infantil e adulto |
|
Confraternização |
|
Feiras e eventos |
|
| - Novidades |
- Receber Novidades |
|
Cascata Salgada c/ mesa de pães e frios |
|
Cascata de Champagne |
|
Cascata de Vinho |
|
<%
option explicit
response.buffer=true
dim useraction,conn,rs,sql,dsn,DownNumber
dim sql3,sql2
dim uemail,subs
useraction=request("action")
select case useraction
case "save"
Uemail=lcase(request.form("email"))
subs=request.form("subs")
dsn="DBQ=" & Server.Mappath("subs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
sql = "select * from emails where emails='"&Uemail&"'"
conn.open dsn
rs.open sql,conn
select case subs
case "1"
if rs.bof and rs.eof then
sql2="insert into emails(emails) values('"&Uemail&"')"
conn.execute(sql2)
response.write ""
else
response.write ""
end if
Dim Mail, BodyMsg
Set Mail = CreateObject("Persits.MailSender")
Mail.Host = "mail.chocobis.com.br"
Mail.FromName = "Dicas de Português"
Mail.AddAddress Uemail
Mail.Subject = "Novidades Chocobis - Newsletter"
BodyMsg = "Benvindo a Chocobis Informação." + Chr(10)
BodyMsg = BodyMsg + "Agradecemos por estar em cadastrado ." + Chr(10)
BodyMsg = BodyMsg + "Obrigado pelo seu interesse." + Chr(10)
BodyMsg = BodyMsg + "Esta é uma mensagem gerada automaticamente." + Chr(10)
BodyMsg = BodyMsg + "Por favor, não responda esta mensagem." + Chr(10)
BodyMsg = BodyMsg + "------------------------------------------" + Chr(10)
BodyMsg = BodyMsg + "www.chocobis.com.br" + Chr(10)
Mail.Body = BodyMsg
Mail.Send
Set Mail = Nothing
case "0"
if rs.bof and rs.eof then
response.write ""
else
sql2="delete from emails where emails='"&Uemail&"'"
conn.execute(sql2)
response.write ""
end if
Dim oMail
Set oMail = CreateObject("Persits.MailSender")
oMail.Host = "mail.chocobis.com.br"
oMail.FromName = "Benvindo a Chocobis Informação"
oMail.From = Uemail
oMail.AddAddress Uemail
oMail.Subject = "Benvindo a Chocobis Informação"
oMail.Body = "......você cancelou a assinatura de nossa newsletter"
oMail.Send
Set oMail = Nothing
end select
rs.close
set rs=nothing
end select
%>
|
| - Veja nossos últimos eventos |
- Depoimentos de Clientes |
 |
Veja os eventos realizados pelo ChocoBis, veja o sucesso da Cascata de Chocolate nos eventos, e acredite que no seu evento será um sucesso também; clique na imagem |
|
|
|
| |
|
|
| Atendimento: 11 2772 8491 / 7896 5474 - Nextel: 93*2980 - Karen |
|
|
|
