<%@ Page aspcompat=true Debug="false" %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net"%>
<%
Dim logged
Dim Conn
Dim email_not_valid
Dim name =Request.FORM("name")
Dim email =Request.FORM("email")
Dim data_sosirii =Request.FORM("data_sosirii")
Dim numar_nopti =Request.FORM("numar_nopti")
Dim data_plecarii =Request.FORM("data_plecarii")
Dim tipul_camerei =Request.FORM("tipul_camerei")
Dim tip_card =Request.FORM("tip_card")
Dim numar_card =Request.FORM("numar_card")
Dim valabil_card =Request.FORM("valabil_card")
Dim optiune =Request.FORM("optiune")
Dim mail_sent=false
if name<>Nothing And email<>Nothing And data_sosirii <> Nothing And numar_nopti <> Nothing And data_plecarii <> Nothing And tipul_camerei <> Nothing And tip_card <> Nothing And numar_card <> Nothing And valabil_card <> Nothing
Dim goby
goby = 0 'Initializing goby to 0
'if the len is less than 5 then it can't be an email (i.e.: a@a.c)
If Len(email) <= 5 Then
goby = 1
End If
If InStr(1, email, "@", 1) < 2 Then
'If we find one and only one @, then the email address is good to go.
goby = 1
Else
If InStr(1,email, ".", 1) < 4 Then 'Must have a '.' too
goby = 1
End If
End If
if goby <> 0
email_not_valid=true
end if
if email_not_valid<>true
Dim mmMail As New System.Web.Mail.MailMessage()
Dim objSmtpServer As System.Web.Mail.SmtpMail
mmMail.From = email
mmMail.To = "sales@manoirmignon.ro"
mmMail.Cc = "office@fotaturism.ro"
mmMail.Bcc = "cosmin@inspeon.com"
mmMail.Subject = "Cerere de " & optiune &" de la " & name
Dim Str
Str=" "
Str=Str &"Nume: "& name &" "
Str=Str &"E-mail: "& email &" "
Str=Str &"Data sosirii: "& data_sosirii &" "
Str=Str &"Numarul de nopti: "& numar_nopti &" "
Str=Str &"Data plecarii: "& data_plecarii &" "
Str=Str &"Tipul camerei: "& tipul_camerei &"
