<!--#include virtual="/JBSX/include/config.asp"-->
<!--#include virtual="/JBSX/include/chkLogin.asp"-->
<!--#include virtual="/JBSX/include/function.asp"-->
<!--#include virtual="/JBSX/include/settings.asp"-->

<%
Session.LCID = 1033

Sub SubAddAdvertiser
Dim ErrorFlag : ErrorFlag = "False"

If Request("aCompanyName") = "" Then
ErrorFlag = "True"
Session("JBSX_Form_Fld_aCompanyName") = "<img border=""0"" src=""../img/arrow_red.gif""> <b>missing.</b>"
End If

If ErrorFlag = "False" Then

Dim strActive : strActive = "Active"

	strSql = "INSERT INTO JBS_Advertiser (aCompanyName, aOccupation, aWebsiteURL, aContactName, aEmail, aPhone, aFax, aPassword, aRegistrationDate, aStatus, aAddedByUserID, aAddedByUserDate, aAddress, aAdditionalInfo) values ('"
	strSql = strSql & ChkString(Request("aCompanyName")) & "', '"
	strSql = strSql & ChkString(Request("aOccupation")) & "', '"
	strSql = strSql & ChkString(Request("aWebsiteURL")) & "', '"
	strSql = strSql & ChkString(Request("aContactName")) & "', '"
	strSql = strSql & ChkString(Request("aEmail")) & "', '"
	strSql = strSql & ChkString(Request("aPhone")) & "', '"
	strSql = strSql & ChkString(Request("aFax")) & "', '"
	strSql = strSql & ChkString(Request("aPassword")) & "', " & dbDateSign(DATABASE)
	strSql = strSql & convertDate(DATABASE) & dbDateSign(DATABASE) & ", '"
	strSql = strSql & strActive & "', "
	strSql = strSql & Session("JBSX_UserID") & ", " & dbDateSign(DATABASE)
	strSql = strSql & convertDate(DATABASE) & dbDateSign(DATABASE) & ", '"
	strSql = strSql & ChkString(Request("aAddress")) & "', '"
	strSql = strSql & ChkString(Request("aAdditionalInfo")) & "')"
	Conn.Execute (strSql)
 
		Session("JBSX_Update") = "True"

Else 

Session("JBSX_Update") = "False"

Session("JBSX_mem_Form_Fld_aCompanyName") = Request("aCompanyName")
Session("JBSX_mem_Form_Fld_aOccupation") = Request("aOccupation")
Session("JBSX_mem_Form_Fld_aWebsiteURL") = Request("aWebsiteURL")
Session("JBSX_mem_Form_Fld_aContactName") = Request("aContactName")
Session("JBSX_mem_Form_Fld_aEmail") = Request("aEmail")
Session("JBSX_mem_Form_Fld_aPhone") = Request("aPhone")
Session("JBSX_mem_Form_Fld_aFax") = Request("aFax")
Session("JBSX_mem_Form_Fld_aAddress") = Request("aAddress")
Session("JBSX_mem_Form_Fld_aAdditionalInfo") = Request("aAdditionalInfo")


End If
Call returnLCID()
strRedirectUrl = "addAdvertiser.asp"
Response.Redirect (strRedirectUrl)

End Sub


Sub SubEditAdvertiser

Dim ErrorFlag : ErrorFlag = "False"

If Request("aCompanyName") = "" Then
ErrorFlag = "True"
Session("JBSX_Form_Fld_aCompanyName") = "<img border=""0"" src=""../img/arrow_red.gif""> <b>missing.</b>"
End If

If ErrorFlag = "False" Then

strSql = "UPDATE JBS_Advertiser SET "
strSql = strSql & "aCompanyName = '" & ChkString(Request("aCompanyName")) & "', "
strSql = strSql & "aOccupation = '" & ChkString(Request("aOccupation")) & "', "
strSql = strSql & "aWebsiteURL = '" & ChkString(Request("aWebsiteURL")) & "', "
strSql = strSql & "aContactName = '" & ChkString(Request("aContactName")) & "', "
strSql = strSql & "aEmail = '" & ChkString(Request("aEmail")) & "', "
strSql = strSql & "aPhone = '" & ChkString(Request("aPhone")) & "', "
strSql = strSql & "aFax = '" & ChkString(Request("aFax")) & "', "
strSql = strSql & "aPassword = '" & ChkString(Request("aPassword")) & "', "
strSql = strSql & "aLastEditedByUserID = " & Session("JBSX_UserID") & ", "
strSql = strSql & "aLastEditedByUserDate = " & dbDateSign(DATABASE) & convertDate(DATABASE) & dbDateSign(DATABASE) & ", "
strSql = strSql & "aAddress = '" & ChkString(Request("aAddress")) & "', "
strSql = strSql & "aAdditionalInfo = '" & ChkString(Request("aAdditionalInfo")) & "' "
strSql = strSql & "WHERE AdvertiserID = " & Request("bAdvertiserID")
Conn.Execute (strSql)

Session("JBSX_Update") = "True"

Else 

Session("JBSX_Update") = "False"

Session("JBSX_mem_Form_Fld_aCompanyName") = Request("aCompanyName")
Session("JBSX_mem_Form_Fld_aOccupation") = Request("aOccupation")
Session("JBSX_mem_Form_Fld_aWebsiteURL") = Request("aWebsiteURL")
Session("JBSX_mem_Form_Fld_aContactName") = Request("aContactName")
Session("JBSX_mem_Form_Fld_aEmail") = Request("aEmail")
Session("JBSX_mem_Form_Fld_aPhone") = Request("aPhone")
Session("JBSX_mem_Form_Fld_aFax") = Request("aFax")
Session("JBSX_mem_Form_Fld_aPassword") = Request("aPassword")
Session("JBSX_mem_Form_Fld_aAddress") = Request("aAddress")
Session("JBSX_mem_Form_Fld_aAdditionalInfo") = Request("aAdditionalInfo")

End If
Call returnLCID()
strRedirectUrl = "editAdvertiser.asp?bAdvertiserID=" & Request("bAdvertiserID")
Response.Redirect (strRedirectUrl)

End Sub

Sub SubUpdateAdvertiserStatus
strSql = "UPDATE JBS_Advertiser SET aStatus = '" & Request("aStatus") & "', aLastEditedByUserID = " & Session("JBSX_UserID") & ", aLastEditedByUserDate = " & dbDateSign(DATABASE) & convertDate(DATABASE) & dbDateSign(DATABASE) & " WHERE AdvertiserID = " & Request("AdvertiserID")
Conn.Execute (strSql)

Call returnLCID()
strRedirectUrl = Request("Page") & ".asp?aAction=" & Request("aAction") & "&AdvertiserID=" & Request("AdvertiserID")
Response.Redirect (strRedirectUrl)

End Sub


Sub SubDeleteAdvertiser

SQL = "Delete FROM JBS_Banners WHERE bAdvertiserID=" & Request("AdvertiserID")
Conn.Execute(SQL)
SQL = "Delete FROM JBS_Advertiser WHERE AdvertiserID=" & Request("AdvertiserID")
Conn.Execute(SQL)
Call returnLCID()
strRedirectUrl = "advertisers.asp"
Response.Redirect (strRedirectUrl)

End Sub


    select case Request("Action")
		case "AddAdvertiser"
			Call SubAddAdvertiser
		case "EditAdvertiser"
			Call SubEditAdvertiser
		case "DeleteAdvertiser"
			Call SubDeleteAdvertiser
		case "UpdateAdvertiserStatus"
			Call SubUpdateAdvertiserStatus
	End Select
%>