"
response.write "| Contact Admin |
"
lngID = request.QueryString("lngID")
if (request.QueryString("btnAdd") = "Add") or (lngID > 0) or (request.QueryString("setdefaults") > 0) then
response.write "| |
"
if lngID > 0 then
s = "SELECT tblContact.ContactID, tblPublication.strSwitchboard, tblPublication.strFax, tblContact.refPublicationID, tblContact.refShowID, tblContact.refTitleID, " & _
"tblContact.refDesignationID, tblContact.strName, tblContact.strTel, tblContact.strTelAlternate, tblContact.strFaxAlternate, tblContact.strCell, tblContact.strEmail, " & _
"tblContact.strEmailAlternate, tblContact.strCarReg, tblContact.memNotes, tblContact.memInterests, tblContact.strDateEdited, tblContact.strPAName, " & _
"tblContact.strPATel, tblContact.strPAEmail, tblContact.strLastUser " & _
"FROM tblContact LEFT OUTER JOIN " & _
"tblPublication ON tblContact.refPublicationID = tblPublication.PublicationID " & _
"WHERE ContactID = " & lngID
set rst = cn.execute(s)
if not rst.eof then
refPublicationID = rst("refPublicationID")
refShowID = rst("refShowID")
refTitleID = rst("refTitleID")
refDesignationID = rst("refDesignationID")
strName = rst("strName")
strSwitchboard = rst("strSwitchboard")
strTel = rst("strTel")
strTelAlternate = rst("strTelAlternate")
strFax = rst("strFax")
strFaxAlternate = rst("strFaxAlternate")
strCell = rst("strCell")
strEmail = rst("strEmail")
strEmailAlternate = rst("strEmailAlternate")
strCarReg = rst("strCarReg")
memNotes = rst("memNotes")
memInterests = rst("memInterests")
strDateEdited = rst("strDateEdited")
strPAName = rst("strPAName")
strPATel = rst("strPATel")
strPAEmail = rst("strPAEmail")
strLastUser = rst("strLastUser")
newedit = "Edit Contact"
else
lngID = 0
newedit = "New Contact"
theMonth = month(date)
theDay = day(date)
if theMonth < 10 then
theMonth = "0" & theMonth
end if
if theDay < 10 then
theMonth = "0" & theDay
end if
strDateEdited = theDay & "/" & theMonth & "/" & year(date)
end if
rst.close
else
if request.QueryString("setdefaults")>0 then
strDateEdited = request.QueryString("strDateEdited")
strName = request.QueryString("strName")
lngID = request.QueryString("ContactID")
refShowID = Int(request.QueryString("refShowID"))
refPublicationID = Int(request.QueryString("refPublicationID"))
refTitleID = Int(request.QueryString("refTitleID"))
refDesignationID = Int(request.QueryString("refDesignationID"))
strSwitchboard = fixquote(request.querystring("strSwitchboard"))
strTel = fixquote(request.querystring("strTel"))
strTelAlternate = fixquote(request.querystring("strTelAlternate"))
strFax = fixquote(request.querystring("strFax"))
strFaxAlternate = fixquote(request.querystring("strFaxAlternate"))
strCell = fixquote(request.querystring("strCell"))
strEmail = fixquote(request.querystring("strEmail"))
strEmailAlternate = fixquote(request.querystring("strEmailAlternate"))
strCarReg = fixquote(request.querystring("strCarReg"))
memNotes = fixquote(request.querystring("memNotes"))
memInterests = fixquote(request.querystring("memInterests"))
strPAName = fixquote(request.querystring("strPAName"))
strPATel = fixquote(request.querystring("strPATel"))
strPAEmail = fixquote(request.querystring("strPAEmail"))
strLastUser = fixquote(request.querystring("strLastUser"))
s = "SELECT * " & _
"FROM tblPublication " & _
"WHERE PublicationID = " & refPublicationID
set rst = cn.execute(s)
if not rst.eof then
strSwitchboard = rst("strSwitchboard")
strFax = rst("strFax")
end if
rst.close
else
lngID = 0
newedit = "New Contact"
theMonth = month(date)
theDay = day(date)
if theMonth < 10 then
theMonth = "0" & theMonth
end if
if theDay < 10 then
theMonth = "0" & theDay
end if
strDateEdited = theDay & "/" & theMonth & "/" & year(date)
end if
end if
x = swapIt(x)
response.write "| Title: | "
response.write " | "
response.write "Switchboard: | "
response.write " |
"
x = swapIt(x)
response.write "| Name: | "
response.write " | "
response.write "Phone: | "
response.write " |
"
x = swapIt(x)
response.write "| Designation: | "
response.write " | "
response.write "Alternate Phone: | "
response.write " |
"
x = swapIt(x)
response.write "| Publication | "
response.write " | "
response.write "Cell: | "
response.write " |
"
x = swapIt(x)
response.write "| Show | "
response.write " | "
response.write "Fax: | "
response.write " |
"
x = swapIt(x)
response.write "| Edit Beats: | "
response.write ""
cntBeat = 0
s = "SELECT tblBeat.strDescription, tblContactBeat.refContactID " & _
"FROM tblBeat INNER JOIN tblContactBeat ON tblBeat.BeatID = tblContactBeat.refBeatID " & _
"WHERE (((tblContactBeat.refContactID)=" & lngID & ")) " & _
"ORDER BY tblBeat.strDescription"
set rst = cn.execute(s)
while not rst.eof
cntBeat = cntBeat + 1
response.write "| " & rst("strDescription") & " | "
rst.movenext
wend
rst.close
response.write " | "
response.write "Direct Fax: | "
response.write " |
"
response.write ""
response.write "| Email: | "
response.write " |
"
x = swapIt(x)
response.write "| Notes: | "
response.write " | "
response.write "Alternate Email: | "
response.write " |
"
x = swapIt(x)
response.write "| Twitter Handle: | |
"
x = swapIt(x)
response.write "| |
"
x = swapIt(x)
response.write "| |
"
x = swapIt(x)
response.write ""
response.write "| Edit Distribution Lists: | "
response.write ""
cntDistributionList = 0
s = "SELECT tblDistributionList.strDescription, tblContactDistributionList.refContactID " & _
"FROM tblDistributionList INNER JOIN tblContactDistributionList ON tblDistributionList.DistributionListID = tblContactDistributionList.refDistributionListID " & _
"WHERE (((tblContactDistributionList.refContactID)=" & lngID & ")) " & _
"ORDER BY tblDistributionList.strDescription"
set rst = cn.execute(s)
while not rst.eof
cntDistributionList = cntDistributionList + 1
response.write "| " & rst("strDescription") & " | "
rst.movenext
wend
rst.close
response.write " |
"
x = swapIt(x)
response.write "| PA Name: | "
response.write " |
"
x = swapIt(x)
response.write "| PA Tel: | "
response.write " | "
response.write " | "
response.write " | "
x = swapIt(x)
response.write "
| PA Email: | "
response.write " | "
response.write "Date Card Updated: | "
response.write " |
"
x = swapIt(x)
response.write " | "
response.write " | "
response.write "Last User: | "
response.write " |
"
if blnAdmin then
response.write "| |
"
else
response.write " |
"
end if
else
if request.querystring("btnSave") = "Save" then
response.write ""
end if
LB = request.querystring("LB")
col = request.querystring("col")
sort = request.querystring("sort")
if col=3 then
col = " thePub"
elseif col=2 then
col = " theShow"
else
col = " theContact"
end if
if sort=2 then
by = " DESC"
sort = 1
else
by = " ASC"
sort = 2
end if
if LB<>"All" then
response.write "| Contact | Show | Publication |
"
s = "SELECT tblContact.ContactID, tblContact.strName AS theContact, tblShow.strName AS theShow, tblPublication.strName AS thePub " & _
"FROM (tblContact LEFT JOIN tblShow ON tblContact.refShowID = tblShow.ShowID) INNER JOIN tblPublication ON tblContact.refPublicationID = tblPublication.PublicationID " & _
"WHERE Left(tblContact.strName, 1)='" & LB & "' " & _
"ORDER BY " & col & " " & by
set rst = cn.execute(s)
if blnAdmin then
while not rst.eof
x = swapIt(x)
if len(trim(rst("theContact"))) > 0 then
theContact = rst("theContact")
else
theContact = "No Description"
end if
response.write "| " & theContact & " | "
response.write "" & rst("theShow") & " | " & rst("thePub") & " | |
"
rowCount = rowCount + 1
rst.movenext
wend
else
while not rst.eof
x = swapIt(x)
if len(trim(rst("theContact"))) > 0 then
theContact = rst("theContact")
else
theContact = "No Description"
end if
response.write "| " & theContact & " | "
response.write "" & rst("theShow") & " | " & rst("thePub") & " | |
"
rowCount = rowCount + 1
rst.movenext
wend
end if
rst.close
else
response.write "| Contact | Show | Publication |
"
s = "SELECT tblContact.ContactID, tblContact.strName AS theContact, tblShow.strName AS theShow, tblPublication.strName AS thePub " & _
"FROM (tblContact LEFT JOIN tblShow ON tblContact.refShowID = tblShow.ShowID) INNER JOIN tblPublication ON tblContact.refPublicationID = tblPublication.PublicationID " & _
"ORDER BY " & col & " " & by
set rst = cn.execute(s)
if blnAdmin then
while not rst.eof
x = swapIt(x)
if len(rst("theContact"))>0 then
theContact = rst("theContact")
else
theContact = "No Description"
end if
response.write "| " & theContact & " | "
response.write "" & rst("theShow") & " | " & rst("thePub") & " | |
"
rowCount = rowCount + 1
rst.movenext
wend
else
while not rst.eof
x = swapIt(x)
if len(rst("theContact"))>0 then
theContact = rst("theContact")
else
theContact = "No Description"
end if
response.write "| " & theContact & " | "
response.write "" & rst("theShow") & " | " & rst("thePub") & " | |
"
rowCount = rowCount + 1
rst.movenext
wend
end if
rst.close
end if
x = 0
x = swapIt(x)
x = swapIt(x)
response.write "| |
"
if blnAdmin then
response.write "| List Total: " & rowCount & " | |
"
else
response.write "| List Total: " & rowCount & " | |
"
end if
end if
response.write "
"
%>