eclass.unmer.ac.id

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>KB Comunicação</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image:url(backgroung_kb.png);
	font-family:Verdana, Geneva, sans-serif;
	font-size:11px;
	line-height: 150%;
	text-align:justify;
	overflow-x: hidden;
}

.fundo1{
	background-image:url(laranja.jpg);
	background-repeat:repeat-x;
}

a:link {
	color: #000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000;
}
a:hover {
	text-decoration: underline;
	color: #000;
}
a:active {
	text-decoration: none;
	color: #000;
}
#box {
left:50%;
margin-left:-950px; /* metade da largura fictícia */
position:absolute;
width:1900px;
background-image:url(infinito.png); 
background-repeat:repeat-x;
height: 35px;
}

.busca{
	background-image:url(busca.jpg);
	border:0px solid #FFF;
	font-size:12px;
	padding:2px;
	width:129px;
	height:21px;
}
p{
	text-align:justify;
}
-->
</style></head>

<body>



<%
Dim fileUpload
	Set fileUpload = Server.CreateObject("SoftArtisans.FileUp")
	
	fileUpload.Path = "e:\home\kbcomunicacao1\Web\cv\"
	fileUpload.MaxBytes = 50000000
	
	fileUpload.CodePage = 65001
	
	nome = fileUpload.Form("nome")
	telefone = fileUpload.Form("telefone")
	empresa = fileUpload.Form("empresa")
	email = fileUpload.Form("email")	
	mensagem = fileUpload.Form("mensagem")
	tipo = fileUpload.Form("tipo")

If IsObject(fileUpload.Form("myFile")) Then
	
			If Not fileUpload.Form("myFile").IsEmpty Then
			
			fileUpload.Form("myFile").Save 
			
			cv = fileUpload.Form("myFile").ShortFileName

Else
				mensagem = "Nenhuma imagem foi selecionada"
			End If
	Else
	End If
	
	
	if tipo = "contato" then
	
	assunto = "CONTATO - KBCOMUNICAÇÃO"
	msgfinal = "Nome: "&nome&"<br />Telefone: "&telefone&"<br />Empresa: "&empresa&"<br />E-mail: "&email&"<br />Mensagem: "&mensagem&""
	
	else if tipo = "cv" then
	
	assunto = "FAÇA PARTE DA EQUIPE - KBCOMUNICAÇÃO"
	msgfinal = "Nome: "&nome&"<br />Telefone: "&telefone&"<br />E-mail: "&email&"<br />Mensagem: "&mensagem&"<br />CV: <a href=""http://www.kbcomunicacao.com/cv/"&cv&""">DOWNLOAD</a>"
	
	end if
	end if
	
	
	
	'emailFim = "rudy@housecomunicacao.com"
	emailFim = "kelly@kbcomunicacao.com.br"

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30						 
	objCDOSYSCon.Fields.update
										 
	Set objCDOSYSMail.Configuration = objCDOSYSCon
	objCDOSYSMail.From = "contato@kbcomunicacao.com"
	objCDOSYSMail.To = emailFim
	objCDOSYSMail.Subject = assunto
	objCDOSYSMail.HtmlBody = msgfinal
	On Error Resume Next
	objCDOSYSMail.Send
	set objCDOSYSMail = nothing
	set objCDOSYSCon = nothing
	
%>

</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td width="39">&nbsp;</td>
    <td width="469">&nbsp;</td>
  </tr>
  <tr>
    <td align="left" valign="top"><img src="contato_texto.png"  vspace="10" /></td>
    <td align="left" valign="top">&nbsp;</td>
    <td align="left" valign="top">&nbsp;</td>
    <td rowspan="3" align="left" valign="top"><img src="endereco.png" width="349" height="56" /></td>
  </tr>
  <tr>
    <td colspan="2" rowspan="2" align="left" valign="top">
    
    <form action="envia.asp" method="post" enctype="multipart/form-data" name="envia">
      Obrigado, sua mensagem foi enviada com sucesso.
    </form>
    </td>
    <td align="left" valign="top">&nbsp;</td>
    </tr>
  <tr>
    <td align="left" valign="top">&nbsp;</td>
    </tr>
  <tr>
    <td colspan="2" align="left" valign="top">&nbsp;</td>
    <td align="left" valign="top">&nbsp;</td>
    <td align="left" valign="top"><iframe width="470" height="160" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com.br/maps?f=q&amp;source=s_q&amp;hl=pt-BR&amp;geocode=&amp;q=Rua+Jos%C3%A9+Benedetti,+71,+Centro,+S%C3%A3o+Bernardo+do+Campo&amp;aq=&amp;sll=-14.239424,-53.186502&amp;sspn=70.303848,135.263672&amp;vpsrc=6&amp;ie=UTF8&amp;hq=&amp;hnear=R.+Jos%C3%A9+Benedetti,+71+-+Centro,+S%C3%A3o+Bernardo+do+Campo+-+S%C3%A3o+Paulo,+09770-140&amp;ll=-23.713631,-46.543166&amp;spn=0.008634,0.016512&amp;t=m&amp;z=14&amp;output=embed"></iframe><br /></td>
  </tr>
  <tr>
    <td colspan="4">
      
      <div id="box">&nbsp;</div>
      
      </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="4"><a href="cv.asp"><img src="kb_abaixo.png" alt="KB COMUNICAÇÃO" height="113" border="0" usemap="#Map" /></a>
      <map name="Map" id="Map">
        <area shape="rect" coords="722,6,927,102" href="http://www.abracom.org.br/" target="_blank" />
      </map></td>
    </tr>
  
  </table>

</td>
  </tr>
</table>

</body>
</html>