|
|
|
|
Regístrese como proveedor |
Inicio
|
Información General |
« Atrás |
|
|
|
|
|
<%If request("oculto")="1" then
Dim mailer,id_var,company_var,salutation_var,first_name_var,last_name_var,phone_var,fax_var,email_var,fecha_var,hora_var
Dim diasemana,dia,anno,mimes,mes,misemana,estedia
company_var=request("company_txt")
if request("R1")="V1" then
salutation_var="Mr."
end if
if request("R1")="V2" then
salutation_var="Ms."
end if
if request("R1")="V3" then
salutation_var="Mrs."
end if
if request("R1")="V4" then
salutation_var="Miss."
end if
first_name_var=request("first_name_txt")
last_name_var=request("last_name_txt")
phone_var=request("phone_txt")
fax_var=request("fax_txt")
email_var=request("email_txt")
fecha_var=date
hora_var=time
sql="select max(id) as mayor from tbc_proveedores_registro"
registros.open sql,conexion,1
id_var=registros("mayor")+1
If isnull(id_var) then
id_var=1
End If
registros.close
sql="select * from tbc_proveedores_registro"
registros.open sql,conexion,1
registros.AddNew
registros("id")=id_var
registros("company")=company_var
registros("salutation")=salutation_var
registros("first_name")=first_name_var
registros("last_name")=last_name_var
registros("phone")=phone_var
registros("fax")=fax_var
registros("email")=email_var
registros("fecha")=fecha_var
registros("hora")=hora_var
registros.Update
registros.Close
diasemana=weekday(now)
dia=day(now)
mes=month(now)
anno=year(now)
select case diasemana
case 1 misemana="Sunday"
case 2 misemana="Monday"
case 3 misemana="Tuesday"
case 4 misemana="Wednesday"
case 5 misemana="Thursday"
case 6 misemana="Friday"
case 7 misemana="Saturday"
end select
select case mes
case 1 mimes="January"
case 2 mimes="February"
case 3 mimes="March"
case 4 mimes="April"
case 5 mimes="May"
case 6 mimes="June"
case 7 mimes="July"
case 8 mimes="August"
case 9 mimes="September"
case 10 mimes="October"
case 11 mimes="November"
case 12 mimes="December"
end select
estedia = mimes +" "+Cstr(dia) +", "+Cstr(anno)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.ContentType = "text/html"
Mailer.CharSet = 2
Mailer.RemoteHost = "mrelay.perfora.net"
Mailer.FromName = "TownSuite Bussiness Center"
Mailer.FromAddress= "tbc@townsuite.com"
Mailer.Subject = "TBC - Supplier Registration"
Mailer.BodyText = "  | | | | | | Supplier Registration | "&estedia&" | |
| | Company name: | "&company_var&" | | Name: | "&salutation_var&" "&first_name_var&" "&last_name_var&" | | Phone: | "&phone_var&" | | Fax: | "&fax_var&" | | E-mail: | "&email_var&" | | | | | |
| | | © Procom Data Services Inc.
Gander, Newfoundland
2006 Whey Group. All rights reserved. | "
Mailer.AddBCC salutation_var&" "&first_name_var&" "&last_name_var, "tbc@townsuite.com"
Mailer.AddRecipient salutation_var&" "&first_name_var&" "&last_name_var, "ivanb@wheygroup.com"
Mailer.ClearBodyText
Mailer.ClearRecipients
Mailer.BodyText = " | | | | | | | Supplier Registration | "&estedia&" | |
| Dear "&salutation_var&" "&first_name_var&" "&last_name_var&";
Welcome to TownSuite Business Center.
We are currently processing your request to register with TownSuite Business Centre.
A temporary login and password will be provided to you along with directions to complete the remainder of the registration process required to become a registered supplier in TownSuite Business Centre.
Thank you for your interest in TownSuite! | | | | | |
| | | © Procom Data Services Inc.
Gander, Newfoundland
2006 Whey Group. All rights reserved. | "
Mailer.AddRecipient salutation_var&" "&first_name_var&" "&last_name_var, email_var
if not(Mailer.SendMail) then
Response.Write Mailer.Response
else
Response.Write Mailer.Response
end if%>
<%set registros = Nothing
conexion.close
set conexion = Nothing
end if%>
|
|
|
|
|
|
|
|
Inicio
|
Información General |
« Atrás |
|
