<%
Dim objQuery
Set objQuery = GetDBConn()
Dim agent_name
Dim user_id
Dim user_pwd
Dim name_first
Dim name_mid
Dim name_last
Dim adr1
Dim adr2
Dim city
Dim state, country
Dim zip
Dim tel_1
Dim tel_2
Dim tel_3
Dim phone
Dim email
agent_name = fn_RA("agent_name")
user_id = fn_RA("user_id")
'user_pwd = Trim(Request("user_pwd"))
user_pwd = fn_RA("pwd")
name_first = Trim(fn_RA("name_first"))
name_mid = Trim(fn_RA("name_mid"))
name_last = Trim(fn_RA("name_last"))
'//adr1 = Trim(Request("adr1"))
adr1 = fn_RA("adr1")
adr2 = Trim(fn_RA("adr2"))
city = Trim(fn_RA("city"))
state = Trim(Request("state"))
country = Trim(Request("country"))
zip = Trim(fn_RA("zip"))
tel_1 = Trim(Request("tel_1"))
tel_2 = Trim(Request("tel_2"))
tel_3 = Trim(Request("tel_3"))
phone = tel_1 & "-" & tel_2 & "-" & tel_3
email = user_id
IF InStr(user_id, "@") = 0 Then
MsgView "Your email is empty. please enter your email address. ",-1 '아이디Null
Response.end
End If
Dim arrUser
arrUser = funcGetArrExistUser(objQuery, user_id)
If IsArray(arrUser) Then '// Exist User
MsgView "Your email is already exist. if you fogot your password, please use the page.",-1 '아이디존재
Response.end
Else
Dim objModify
Set objModify = New objDB_Modify
Dim arrFieldMemName(13)
Dim arrFieldMemValue(13)
arrFieldMemName(0) = "S:user_id"
arrFieldMemName(1) = "S:user_pwd"
arrFieldMemName(2) = "S:name_first"
arrFieldMemName(3) = "S:agent_name"
arrFieldMemName(4) = "S:name_last"
arrFieldMemName(5) = "S:email"
arrFieldMemName(6) = "S:adr1"
arrFieldMemName(7) = "S:adr2"
arrFieldMemName(8) = "S:city"
arrFieldMemName(9) = "S:state"
arrFieldMemName(10) = "S:zip"
arrFieldMemName(11) = "S:phone"
arrFieldMemName(12) = "S:active_yn"
arrFieldMemName(13) = "D:insert_date"
arrFieldMemValue(0) = user_id
arrFieldMemValue(1) = user_pwd
arrFieldMemValue(2) = UCase(name_first)
arrFieldMemValue(3) = UCase(agent_name)
arrFieldMemValue(4) = UCase(name_last)
arrFieldMemValue(5) = email
arrFieldMemValue(6) = adr1
arrFieldMemValue(7) = adr2
arrFieldMemValue(8) = city
arrFieldMemValue(9) = state
arrFieldMemValue(10) = zip
arrFieldMemValue(11) = phone
arrFieldMemValue(12) = "Y"
arrFieldMemValue(13) = "GetDate()"
CALL objModify.subExecInsert("S_Agent", arrFieldMemName, arrFieldMemValue)
Set objModify = Nothing
End IF
'//Mail Sending
'--------------------------------------------------------------------------------------------------------------
Dim name
name = name_first & " " & name_last
Dim Mailer
Dim strSubject
Dim strBody
strSubject = "[Walkerhill Shuttle] Thanks for signing up."
strBody = "Hi " & name & ".
" & VbCrLf & _
"Thanks for signing up with WalkerhillShuttle.com
" & VbCrLf & _
"Agent Name : " & agent_name & VbCrLf & _
"
" & VbCrLf & _
"Thank you.
Walkerhill Shuttle
" & VbCrLf & _
"www.walkethillshuttle.com"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Walkerhill Shuttle"
Mailer.FromAddress = "shuttle@walkethillshuttle.com "
Mailer.RemoteHost = "mail.walkethilltour.com"
Mailer.ContentType = "text/html"
Mailer.AddRecipient email, email
Mailer.Subject = strSubject
Mailer.BodyText = strBody
Mailer.SendMail
Set Mailer = Nothing
'--------------------------------------------------------------------------------------------------------------
Call CloseDBConn(objQuery)
OnlyMsgView("Thanks for signing up. Please check your email.")
ReFresh("/index.asp")
Function funcGetArrExistUser(byRef objQuery, ByVal user_id)
Dim strQuery
strQuery = " SELECT user_id FROM S_Agent WHERE user_id = '"&user_id&"' "
funcGetArrExistUser = arrGetDBResult(objQuery, strQuery)
End Function
%>