<% Dim sPath, sScriptDir, sDSN Const adOpenKeyset = 1 Const adLockPessimistic = 2 sScriptDir = Request.ServerVariables("SCRIPT_NAME") sScriptDir = StrReverse(sScriptDir) sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/")) sScriptDir = StrReverse(sScriptDir) sPath = Server.MapPath(sScriptDir) & "\" sDSN="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/dados/mcruz3z.mdb") sSQLCat = "SELECT * FROM mod4 ORDER BY texto" set RsCat=Server.CreateObject("ADODB.Recordset") RsCat.Open sSQLCat, sDSN, adOpenKeySet, adLockPessimistic sSQLCatx = "SELECT * FROM home ORDER BY ordem" set RsCatx=Server.CreateObject("ADODB.Recordset") RsCatx.Open sSQLCatx, sDSN, adOpenKeySet, adLockPessimistic If Not RsCatx.Bof then RsCatx.Movefirst End if strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") strhost = "mail.marcoscruz.com.br" strFromName = "ORÇAMENTO ONLINE" strFromEmail = "projeto@marcoscruz.com.br" strToEmail = "projeto@marcoscruz.com.br" strSubject = "Orçamento Online Marcos Cruz" texto="Mensagem Automática" & chr(13) & chr(10) texto= texto & "Formulário de Envio da Página Orçamento Online" & chr(13)& chr(10) texto=texto & "
" texto= texto & "Data de Envio: " & Request.Form("data") & chr(13)& chr(10) texto=texto & "
" texto= texto & "Nome: " & Request.Form("nome") & chr(13)& chr(10) texto=texto & "
" texto= texto & "Email: " & Request.Form("email") & chr(13)& chr(10) texto=texto & "
" texto= texto & "Linha: " & Request.Form("linha") & chr(13)& chr(10) texto=texto & "
" texto= texto & "Tipo: " & Request.Form("tipo") & chr(13)& chr(10) texto=texto & "
" texto= texto & "Outros: " & Request.Form("outros") & chr(13)& chr(10) texto=texto & "
" texto= texto & "Serviço: " & Request.Form("servico") & chr(13)& chr(10) texto=texto & "
" texto= texto & "M2: " & Request.Form("m2") & chr(13)& chr(10) texto=texto & "
" exto= texto & "Link da Foto: " & Request.Form("foto") & chr(13)& chr(10) texto=texto & "
" texto= texto & "Comentários: " & Request.Form("comenta") & chr(13)& chr(10) texto=texto & "
" texto=texto & "
" texto = texto & "Orçamento Online Marcos Cruz" strBody = texto Set Mail1 = Server.CreateObject("Persits.MailSender") Mail1.Host = strhost Mail1.From = strFromEmail Mail1.FromName = strFromName Mail1.IsHTML = true Mail1.Subject = strSubject Mail1.AddAddress email Mail1.AddBcc strToEmail Mail1.Body = strBody Mail1.Username = "projeto@marcoscruz.com.br" Mail1.Password = "poph0w69" Mail1.Send Set Rs = Nothing %> <% if RsCatx("imgfundo")<>"" then %> bgcolor="#000000"<% else %>bgcolor="<%= RsCatx("cor") %>"<% end if %> leftmargin="0" topmargin="0"> <% else %> bgcolor="#000000"<% else %>bgcolor="<%= RsCatx("cor") %>"<% end if %> background="../upload/<%= RsCatx("imgfundo") %>" leftmargin="0" topmargin="0"> <% end if %>

<%= RsCat("texto4") %>

" width="249" height="300">

<% if RsCatx("imagem1")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt1") %>"> <% end if %> <% if RsCatx("imagem2")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt2") %>"> <% end if %> <% if RsCatx("imagem3")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt3") %>"> <% end if %> <% if RsCatx("imagem4")<>"" then %> " target="blank">" border="0" alt="<%= RsCatx("alt4") %>"> <% end if %>

<% RsCatx.close Set RsCatx = Nothing RsCat.close Set RsCat = Nothing %>