"
response.write "| Contact Admin |
"
lngID = request.QueryString("lngID")
if (request.QueryString("btnAdd") = "Add") or (lngID > 0) then
response.write "| |
"
if lngID > 0 then
s = "SELECT * " & _
"FROM tblContact " & _
"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")
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")
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
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
x = swapIt(x)
response.write "| Title: | "
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 ""
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
response.write "| " & rst("strDescription") & " | "
rst.movenext
wend
rst.close
response.write " | "
response.write "Email: | "
response.write " |
"
x = swapIt(x)
response.write ""
response.write "| Alternate Email: | "
response.write " |
"
x = swapIt(x)
response.write "| Notes: | "
response.write " |
"
x = swapIt(x)
response.write ""
response.write "| Interests: | "
response.write " |
"
x = swapIt(x)
response.write "| PA Name: | "
response.write " |
"
x = swapIt(x)
response.write "| PA Tel: | "
response.write " | "
response.write "Car Reg: | "
response.write " | "
x = swapIt(x)
response.write "
| PA Email: | "
response.write " | "
response.write "Date Card Updated: | "
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 "
"
%>