Imports System.IO
Partial Class ingles_contact
Inherits System.Web.UI.Page
Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
If txtROBOT.Text.Length = 0 Then 'validar si no se ha rellenado informacion en el campo invisible
Try
Call EnviarEmail()
Call GrabarCsv("", txtNAME.Text, txtLASTNAME.Text, txtEMAIL.Text, txtADDRESS.Text, txtCITY.Text, txtSTATE.Text, txtCOUNTRY.Text, txtPHONE.Text, txtCOMMENTS.Text, "contact")
panFORM.Visible = False
panMENSAJE.Visible = True
Catch ex As Exception
Response.Write(ex.ToString)
End Try
End If
End Sub
Private Sub EnviarEmail()
'colores
Dim varFONDOtop = "7EC31C"
Dim varFONDO = "ffffff"
Dim varFONDOpie = "7EC31C"
Dim varLATERALES = "7EC31C"
Dim varTEXTO = "000000"
Dim varTITULO = "000000"
Dim varTEXTOpie = "ffffff"
'variables
Dim varYEAR = Now.Year.ToString
Dim varEMPRESA = "Eurograss"
Dim varDOMINIO = "http://www.eurograss.us"
Dim varPAGINA As String = "eurograss.us"
Dim varTOP = "" & _
"" & _
"" & _
"" & varEMPRESA & "" & _
"" & _
"" & _
"" & _
"" & _
"![](" & varDOMINIO & "/images/top-mail.jpg) | " & _
"
" & _
"" & _
"| | " & _
" " & _
"" & _
"" & _
"| " & _
"Thank you for contacting " & _
"us. We will contact you as soon as possible. | " & _
" " & _
"" & _
"| " & _
"You have sent the information below. | " & _
" " & _
"" & _
"| " & _
" | " & _
" "
Dim varBOTTOM = "" & _
"| " & _
" | " & _
" " & _
"" & _
"| " & _
"Thank you. | " & _
" " & _
"" & _
"| " & _
"" & varDOMINIO & " | " & _
" " & _
" " & _
" | " & _
" | " & _
"
" & _
"" & _
"" & _
" Copyright © " & varYEAR & " " & varEMPRESA & " Inc. All rights reserved | " & _
"
" & _
"
" & _
"" & _
""
Dim LineaSeparadoraHR = "" & _
"
" + " |
| " & _
"
" & " |
"
'recuperar checkboxlist
'-----------
Dim varBODY = "" & _
"| " & _
"Name" + " | : | " & _
txtNAME.Text & " " & txtLASTNAME.Text & " |
" & _
"| " & _
"Address" + " | : | " & _
txtADDRESS.Text & "
" & txtSTATE.Text & ", " & txtCOUNTRY.Text & " |
" & _
"| " & _
"Phone" + " | : | " & _
txtPHONE.Text & " |
" & _
"| " & _
"Email" + " | : | " & _
txtEMAIL.Text & " |
" & _
"| " & _
"Comments" + " | : | " & _
txtCOMMENTS.Text & " |
"
Dim Mensaje As String = varTOP + varBODY + varBOTTOM
Try
Mailer.EnviarEmail("mail@eurograss.us", txtEMAIL.Text, "info@eurograss.us", "", "info@eurograss.us", "Contact from Eurograss.us", Mensaje)
Catch ex As Exception
Response.Write(ex.ToString)
End Try
End Sub
Private Sub GrabarCsv(ByVal KeyFile, ByVal valor1, ByVal valor2, ByVal valor3, ByVal valor4, ByVal valor5, ByVal valor6, ByVal valor7, ByVal valor8, ByVal valor9, ByVal valor10)
'Variables para abrir el archivo en modo de escritura
Dim strStreamW As Stream
Dim strStreamWriter As StreamWriter
Try
Dim varRUTA As String = MapPath("App_Data/") + "Contact.csv"
'Dim FilePath As String = ConfigurationManager.AppSettings(KeyFile.ToString).ToString
'Se abre el archivo y si este no existe se crea
strStreamW = File.Open(varRUTA, FileMode.Append, FileAccess.Write)
strStreamWriter = New StreamWriter(strStreamW, _
System.Text.Encoding.UTF8)
'Escribimos la linea en el achivo de texto
strStreamWriter.WriteLine(valor1 & "," & _
valor2 & "," & valor3 & "," & valor4 & "," & valor5 & "," & _
valor6 & "," & valor7 & "," & valor8 & "," & valor9 & "," & _
valor10 & "," & Now.Date.ToString)
strStreamWriter.Close()
Catch ex As Exception
'strStreamWriter.Close()
MsgBox(ex.Message)
End Try
End Sub
End Class