<%@ Language=VBScript %> <% 'Script para envio de e-mail em formulário Dim vErro,vSucesso,vErr vErro = "" vSucesso = "obrigado.htm" vErr = "erro.htm" if Request.Form.Count + Request.QueryString.Count > 0 then Call Respform Call Resp end if '----------------------------------------------------------- Sub Respform() On Error Resume Next Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom vNomeForm = "Formulário de Informações" vPara = "suporte@itaipavagold.com.br" vFrom = "suporte@itaipavagold.com.br" vCc = "" vAssunto = "Informações" vData = Date() vData = day(vData) & "/" & month(vData) & "/" & year(vData) vHora = Time() vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s" msg = "Formulário " & vNomeForm msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf if Request.ServerVariables("REQUEST_METHOD") = "POST" then for each campo in Request.Form if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.Form(campo) & VbCrLf end if next else for each campo in Request.QueryString if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & string(60,"-") & vbcrlf msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf end if next end if msg = msg & string(60,"*") & vbcrlf EnviaEmail msg,vFrom,vPara,vCc,vAssunto If Err then vErro = Err.number & " : " vErro = Err.description Err.Clear End if End Sub '----------------------------------------------------------- Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject) On Error Resume Next Dim iMsg, Flds, iConf, status Const SERVIDOR_SMTP = "sharedrelay.dominal.com" status = true Set iMsg = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.Update With iMsg Set .Configuration = iConf .To = p_to .CC = p_cc .From = p_from .Sender = p_from .Subject = p_subject .TextBody = p_body .Send End With If Err.number <> 0 Then status = false End If If IsObject(iMsg) Then Set iMsg = Nothing If IsObject(Flds) Then Set Flds = Nothing If IsObject(iConf) Then Set iConf = Nothing EnviaEmail = status End Function '----------------------------------------------------------- Sub Resp() if vErro = "" then Response.Redirect(vSucesso) else Response.Redirect(vErr) end if End Sub %> Itaipava Gold - Principal

Os anúncios deste site ajudam trabalhadores carentes e idosos

SUCESSO VEÍCULOS

   MÁRIO VEÍCULOS VENDEM ...

 

 

VEÍCULO                ANO                       MODELO                                            COR                       VALOR

MARCA

  

VW

PARATI                   1998                        16v 1.0                                                   CINZA                     R$ 14.000.00

KOMBI                     1998                        1.6 KIT GÁS PASSAGEIRO NOVO     AZUL                      R$ 18.000.00

VOYAGEN                1988                        1.8 GL ALCOOL NOVO                      VERDE                    R$   6.000.00

FUSCA                    1968                        RARIDADE 1.300                                   MARRON                 R$   7.500.00

 

FIAT

PALIO                      2003                        1.0 FIRE 4 PORTAS AR COND                CINZA                     R$ 19.500.00

TEMPRA                  1996                        8v I.e 2.0 COMP 4 PORTAS                    AZUL                      R$ 11.000.00

 

FORD

RANGER                 2001                        COMPLETA DIESEL XLT 2.5 TURBO    BRANCA                 R$ 45.000.00

JEEP                        1967                        WILLIS                                                    MARRON                 R$ 20.000.00

 

GM 

CORSA                   2002                        1.6 COMP 4 PORTAS                              PRETO                     R$ 20.000.00

CORSA                   1998/1999              1.0 4 PORTAS COM AR COND      AZUL                      R$ 14.500.00

 

IMPORTADOS

 

HONDA

HONDA CIVIC                1998                        1.6 TOP COMP 4 PORTAS                    VERMELHO             R$ 25.000.00

 

RENALT

RENALT CLIO                1999                        1.6 4 PORTAS COMP                       BRANCO                 R$ 13.000.00

 

MITSBISHI

L200                        2004                        COMP 4 PORTAS GLS DIESEL    PRATA                    R$ 55.000.00

 

TOYOTA

BANDEIRANTE                1997                        CAB DUPLA 4 PORTAS DIESEL    BRANCA                 R$ 38.000.00

COROLA                 1993                        COMPLETA 4 PORTAS AUT                   PRATA                    R$ 14.000.00

 

CITROEN

C3                           2005                        4 PORTAS COMPL                     AZUL                      R$ 38.000.00

 

 

TEL :. 24 - 2222 - 7043

TEL:.  24 - 2222 - 5029

CEL :.24 - 9214 - 6003 ( léo ou hugo ) OU  24 - 92927009 ( mário )

CEL:. 24 - 9966-5029 ( gustavo )

 

   NEXTEL

ID :. 131*3797