<%
'========= User Info from the form=========================================================================
dim pName, pSurname, pEmail, sex, password, pAddress, pTown, pTK, pCountry, pPhone, JobID ,UserCateg
pName = Replace(Request("pName"),"'","''")
pSurname = Replace(Request("pSurname"),"'","''")
pEmail = Replace(Request("pEmail"),"'","''")
sex = Request("sex")
pPasswd = Replace(Request("pPasswd"),"'","''")
pAddress = Replace(Request("pAddress"),"'","''")
pTown = Replace(Request("pTown"),"'","''")
pTK = Replace(Request("pTK"),"'","''")
pCountry = Replace(Request("pCountry"),"'","''")
UCountryID = Request("UCountryID")
pPhone = Replace(Request("pPhone"),"'","''")
UMailingList= Request("UMailingList")
JobID = Request("JobID")
UserCateg = Request("UserCateg")
'========= User Info =========================================================================
'========= Company Info from the form======================================================================
dim CompInfo,CompName, CompActivity, CompVAT, CompDOY, CompAddress, CompTown, CompTK, CompCountry, CountryID, CompTel, CompFax
CompInfo = Request("CompanyInfo")
CompName = Replace(Request("CompanyName"),"'","''")
CompActivity = Replace(Request("CompanyActivity"),"'","''")
CompVAT = Replace(Request("VAT"),"'","''")
CompDOY = Replace(Request("DOY"),"'","''")
CompAddress = Replace(Request("CompanyAddress"),"'","''")
CompTown = Replace(Request("CompanyTown"),"'","''")
CompTK = Replace(Request("CompanyTK"),"'","''")
CompCountry = Replace(Request("CompanyCountry"),"'","''")
CountryID = Replace(Request("CountryID"),"'","''")
CompTel = Replace(Request("CompanyTel"),"'","''")
CompFax = Replace(Request("CompanyFax"),"'","''")
'========= Company Info ======================================================================
dim access , flag
'check if the user is a journalist so as to set his access=0
if UserCateg = "7" then access=0 else access=1
if pEmail="" then response.redirect("error.asp")
dim oRs, oConn, SQL
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open Application("ConStr")
set oRs = Server.CreateObject("ADODB.Recordset")
'check if there is another user with the same mail account
SQL = "Select * from [User] where UEmail = '" & pEmail & "'"
oRs.open SQL, oConn, 3,1,1
if oRs.EOF = true then
oRs.close
SQL = "Insert Into [User] (UName, USurname, UEmail, USex, UPassword, UMailingList, JobID ,UCategID,UAccess) values ('"& pName &"', '"& pSurname &"', '"& pEmail &"', "& sex &", '"& pPasswd &"', " & UMailingList & ", " & JobID & ",'"&UserCateg&"','"&access&"')"
oConn.execute SQL
SQL = "Select @@IDENTITY as UID"
oRs.open SQL, oConn, 3,1,1
session("UserID") = oRs("UID")
session("UserSurname") = pSurname
session("UserSex") = sex
%>
<%
oRs.close
SQL = "Insert Into UserAddresses (UID, Address, Town, Country, CountryID, TK, Tel, UserDefault, Name, Surname) values ("& session("UserID") &", '"& pAddress &"', '"& pTown &"', '"& pCountry &"', '"& UCountryID &"', '"& pTK &"', '"& pPhone &"',1, '"& pName &"', '"& pSurname &"')"
oConn.execute SQL
if CompName & "" <> "" then
SQL = "Insert Into UserCompanies (UID, CompName, CompActivity, CompVAT, CompDOY, CompAddress, CompTown, CompTK, CompCountry, CountryID, CompTel, CompFax, UserDefault) values "&_
" ("& session("UserID") &", '"& CompName &"', '"& CompActivity &"', '"& CompVAT &"', '"& CompDOY &"', '"& CompAddress &"', '"& CompTown &"', '"& CompTK &"', '"& CompCountry &"', '"& CountryID &"', '"& CompTel &"', '"& CompFax &"',1)"
oConn.execute SQL
end if
set oRs = nothing
oConn.close
set oConn = nothing
%>
<%'//// Sending mail tou welcome NEw User //////
dim objMail, body, onoma
body = ""&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&SmailTitle1(lg)&"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&SmailTitle2(lg)&" "&SmailTitle3(lg)&"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&SMail(lg)&"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
"
"&_
""&_
""
set objMail = CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.From = "info@degustibus.gr"
objMail.to = pEmail
objMail.subject = SMailSubject(lg)
objMail.Body = body
objMail.send
set objMail = Nothing
'//// Sending mail tou welcome NEw User //////
server.transfer "login.asp"%>
<%else flag=1%>
<%end if%>
<%'edo se stelnei sti selida meta to registration%>
<%=PageTitle%>