"
x = swapIt(x)
response.write " |
"
response.write "| |
"
s = "SELECT tblContact.strName AS theContact, " & _
"tblTitle.strDescription AS theTitle, " & _
"tblDesignation.strDescription AS theDesignation, " & _
"tblPublication.strName AS thePublication, " & _
"tblPublication.strSwitchboard, " & _
"tblShow.strName AS theShow, " & _
"tblContact.strTel, " & _
"tblContact.strTelAlternate, " & _
"tblPublication.strFax, " & _
"tblContact.strFaxAlternate, " & _
"tblContact.strCell, " & _
"tblContact.strEmail, " & _
"tblContact.strEmailAlternate, " & _
"tblContact.strCarReg, " & _
"tblContact.strDateEdited, " & _
"tblContact.strPAName, " & _
"tblContact.strPATel, " & _
"tblContact.strPAEmail, " & _
"tblContact.memNotes, " & _
"tblContact.memInterests " & _
"FROM tblContact INNER JOIN tblPublication ON tblContact.refPublicationID = tblPublication.PublicationID INNER JOIN " & _
"tblTitle ON tblContact.refTitleID = tblTitle.TitleID INNER JOIN tblDesignation ON tblContact.refDesignationID = tblDesignation.DesignationID " & _
"LEFT JOIN tblShow ON tblContact.refShowID = tblShow.ShowID " & _
"WHERE (((tblContact.ContactID)=" & CID & "))"
set rst = cn.execute(s)
if not rst.eof then
x = swapIt(x)
response.write "| Title: | "
response.write "" & rst("theTitle") & " | "
response.write "Switchboard: | "
response.write "" & rst("strSwitchboard") & " |
"
x = swapIt(x)
response.write "| Name: | "
response.write "" & rst("theContact") & " | "
response.write "Phone: | "
response.write "" & rst("strTel") & " |
"
x = swapIt(x)
response.write "| Designation: | "
response.write "" & rst("theDesignation") & " | "
response.write "Alternate Phone: | "
response.write "" & rst("strTelAlternate") & " |
"
x = swapIt(x)
response.write "| Publication: | "
response.write "" & rst("thePublication") & " | "
response.write "Cell: | "
response.write "" & rst("strCell") & " |
"
x = swapIt(x)
response.write "| Show/Section: | "
response.write "" & rst("theShow") & " | "
response.write "Fax: | "
response.write "" & rst("strFax") & " |
"
x = swapIt(x)
response.write "| Beat: | "
response.write ""
s = "SELECT tblBeat.strDescription, tblContactBeat.refContactID " & _
"FROM tblBeat INNER JOIN tblContactBeat ON tblBeat.BeatID = tblContactBeat.refBeatID " & _
"WHERE (((tblContactBeat.refContactID)=" & CID & ")) " & _
"ORDER BY tblBeat.strDescription"
set rstBeat = cn.execute(s)
while not rstBeat.eof
response.write "| " & rstBeat("strDescription") & " | "
rstBeat.movenext
wend
rstBeat.close
response.write " | "
response.write "Direct Fax: | "
response.write "" & rst("strFaxAlternate") & " |
"
' x = swapIt(x)
response.write ""
response.write "| Email: | "
response.write "" & rst("strEmail") & " |
"
response.write ""
response.write "| Alternate Email: | "
response.write "" & rst("strEmailAlternate") & " |
"
x = swapIt(x)
response.write "| Notes: | "
'if (isnull(rst("memNotes"))) or (rst("memNotes")="") then
' notes = ""
'else
notes = rst("memNotes")
' notes = replace(notes, vbCr, "
")
'notes = replace(notes, vbLf, "
")
'end if
response.write "" & notes & " |
"
x = swapIt(x)
response.write "| PA Name: | "
response.write "" & rst("strPAName") & " |
"
x = swapIt(x)
response.write "| PA Tel: | "
response.write "" & rst("strPATel") & " |
"
x = swapIt(x)
response.write "| PA Email: | "
response.write "" & rst("strPAEmail") & " |
"
x = swapIt(x)
response.write " | "
response.write "Car Reg: | "
response.write "" & rst("strCarReg") & " |
"
x = swapIt(x)
response.write ""
response.write "| Distribution List: | "
response.write ""
s = "SELECT tblDistributionList.strDescription, tblContactDistributionList.refContactID " & _
"FROM tblDistributionList INNER JOIN tblContactDistributionList ON tblDistributionList.DistributionListID = tblContactDistributionList.refDistributionListID " & _
"WHERE (((tblContactDistributionList.refContactID)=" & CID & ")) " & _
"ORDER BY tblDistributionList.strDescription"
set rstDistributionList = cn.execute(s)
while not rstDistributionList.eof
response.write "| " & rstDistributionList("strDescription") & " | "
rstDistributionList.movenext
wend
rstDistributionList.close
response.write " |
"
response.write " | "
response.write "Date Card Updated: " & rst("strDateEdited") & " |
"
response.write " |
"
else
response.write "| Contact details not found |
"
end if
rst.close
elseif lngTab = 2 then
response.write ""
x = swapIt(x)
response.write " |
"
response.write "| |
"
s = "SELECT tblContact.ContactID, " & _
"tblShow.strName AS theShow, " & _
"tblShow.strAppearing, " & _
"tblShow.strDeadline, " & _
"tblShow.strDetails, " & _
"tblShow.lngReach AS theShowReach, " & _
"tblShow.strHost, " & _
"tblPublication.strName AS thePublication, " & _
"tblPublication.strLSM, " & _
"tblPublication.strAge, " & _
"tblPublication.strURL, " & _
"tblPublication.strPost, " & _
"tblPublication.strLogin, " & _
"tblPublication.strPhys, " & _
"tblSuburb.strDescription AS theSuburb, " & _
"tblCity.strDescription AS theCity, " & _
"tblPublication.strFootprint, " & _
"tblPublication.strCopyNewsdesk, " & _
"tblPublication.strDirections, " & _
"tblPublication.strCirculation, " & _
"tblPublication.strSwitchboard, " & _
"tblPublication.strFax, " & _
"tblPublication.strDescription as thePubDesc, " & _
"tblCategory.strDescription AS theCategory, " & _
"tblLanguage.strDescription AS theLanguage, " & _
"tblPublication.lngReach AS thePubReach " & _
"FROM (((((tblContact INNER JOIN tblPublication ON tblContact.refPublicationID = tblPublication.PublicationID) " & _
"INNER JOIN tblCategory ON tblPublication.refCategoryID = tblCategory.CategoryID) " & _
"INNER JOIN tblLanguage ON tblPublication.refLanguageID = tblLanguage.LanguageID) " & _
"INNER JOIN tblSuburb ON tblPublication.refPhysSuburbID = tblSuburb.SuburbID) " & _
"INNER JOIN tblCity ON tblPublication.refPhysCityID = tblCity.CityID) " & _
"LEFT JOIN tblShow ON tblContact.refShowID = tblShow.ShowID " & _
"WHERE (((tblContact.ContactID)=" & CID & "))"
set rst = cn.execute(s)
if not rst.eof then
x = swapIt(x)
response.write "| Publication: | "
response.write "" & rst("thePublication") & " | "
response.write "Description: | "
response.write "" & rst("thePubDesc") & " |
"
x = swapIt(x)
response.write "| Category: | "
response.write "" & rst("theCategory") & " | "
response.write "Switchboard: | "
response.write "" & rst("strSwitchboard") & " |
"
x = swapIt(x)
response.write "| Language: | "
response.write "" & rst("theLanguage") & " | "
response.write "Fax: | "
response.write "" & rst("strFax") & " |
"
x = swapIt(x)
response.write "| AMPS Reach: | "
response.write "" & rst("thePubReach") & " | "
response.write "Circulation: | "
response.write "" & rst("strCirculation") & " |
"
x = swapIt(x)
response.write "| | "
response.write " | "
response.write "Website: | "
response.write "" & rst("strURL") & " |
"
x = swapIt(x)
response.write " | "
response.write " | "
response.write "Website Login: | "
response.write "" & rst("strLogin") & " |
"
x = swapIt(x)
response.write " | "
response.write " | "
response.write "Postal Address: | "
response.write "" & rst("strPost") & " |
"
x = swapIt(x)
response.write "| LSM: | "
response.write "" & rst("strLSM") & " | "
response.write " | "
response.write " |
"
x = swapIt(x)
response.write "| Age: | "
response.write "" & rst("strAge") & " | "
response.write " | "
response.write " |
"
x = swapIt(x)
response.write " | "
response.write " | "
response.write "Courier Address: | "
response.write "" & rst("strPhys") & " |
"
x = swapIt(x)
response.write "| Show/Section: | "
response.write "" & rst("theShow") & " | "
response.write "Suburb: | "
response.write "" & rst("theSuburb") & " |
"
x = swapIt(x)
response.write "| Airing/Appearing: | "
response.write "" & rst("strAppearing") & " | "
response.write "City: | "
response.write "" & rst("theCity") & " |
"
x = swapIt(x)
response.write "| Show Details: | "
response.write "" & rst("strDetails") & " | "
response.write " | "
response.write " |
"
x = swapIt(x)
response.write "| Reach: | "
response.write "" & rst("theShowReach") & " | "
response.write " | "
response.write " |
"
x = swapIt(x)
response.write "| Producer: | "
response.write "" & rst("strDeadline") & " | "
response.write "Directions: | "
response.write "" & rst("strDirections") & " |
"
x = swapIt(x)
response.write " | "
response.write " | "
response.write "Footprint: | "
response.write "" & rst("strFootprint") & " |
"
x = swapIt(x)
response.write "| Host: | "
response.write "" & rst("strHost") & " | "
response.write " | "
response.write " |
"
x = swapIt(x)
response.write " | "
response.write " | "
response.write "Newsdesk email: | "
response.write "" & rst("strCopyNewsdesk") & " |
"
response.write " |
"
else
response.write "| Publication details not found |
"
end if
rst.close
else 'lngTab = 0 -> Printer friendly
response.Write ""
response.write "| Journalist |
"
response.write "| |
"
s = "SELECT tblContact.strName AS theContact, " & _
"tblTitle.strDescription AS theTitle, " & _
"tblDesignation.strDescription AS theDesignation, " & _
"tblPublication.strName AS thePublication, " & _
"tblContact.strSwitchboard, " & _
"tblContact.strTel, " & _
"tblContact.strTelAlternate, " & _
"tblContact.strFax, " & _
"tblContact.strCell, " & _
"tblContact.strEmail, " & _
"tblContact.strEmailAlternate, " & _
"tblContact.strCarReg, " & _
"tblContact.strDateEdited, " & _
"tblContact.strPAName, " & _
"tblContact.strPATel, " & _
"tblContact.strPAEmail, " & _
"tblContact.memNotes, " & _
"tblContact.memInterests " & _
"FROM tblContact INNER JOIN tblPublication ON tblContact.refPublicationID = tblPublication.PublicationID INNER JOIN " & _
"tblTitle ON tblContact.refTitleID = tblTitle.TitleID INNER JOIN tblDesignation ON tblContact.refDesignationID = tblDesignation.DesignationID " & _
"WHERE (((tblContact.ContactID)=" & CID & "))"
set rst = cn.execute(s)
if not rst.eof then
response.write "| Title: | "
response.write "" & rst("theTitle") & " | "
response.write "Switchboard: | "
response.write "" & rst("strSwitchboard") & " |
"
response.write "| Name: | "
response.write "" & rst("theContact") & " | "
response.write "Phone: | "
response.write "" & rst("strTel") & " |
"
response.write "| Designation: | "
response.write "" & rst("theDesignation") & " | "
response.write "Alternate Phone: | "
response.write "" & rst("strTelAlternate") & " |
"
response.write "| Publication: | "
response.write "" & rst("thePublication") & " | "
response.write "Cell: | "
response.write "" & rst("strCell") & " |
"
response.write "| Beat: | "
response.write ""
s = "SELECT tblBeat.strDescription, tblContactBeat.refContactID " & _
"FROM tblBeat INNER JOIN tblContactBeat ON tblBeat.BeatID = tblContactBeat.refBeatID " & _
"WHERE (((tblContactBeat.refContactID)=" & CID & ")) " & _
"ORDER BY tblBeat.strDescription"
set rstBeat = cn.execute(s)
while not rstBeat.eof
response.write "| " & rstBeat("strDescription") & " | "
rstBeat.movenext
wend
rstBeat.close
response.write " | "
response.write "Fax: | "
response.write "" & rst("strFax") & " |
"
response.write ""
response.write "| Email: | "
response.write "" & rst("strEmail") & " |
"
response.write ""
response.write "| Alternate Email: | "
response.write "" & rst("strEmailAlternate") & " |
"
response.write "| Notes: | "
'if (isnull(rst("memNotes"))) or (rst("memNotes") = "") then
' notes = ""
' else
notes = rst("memNotes")
' notes = replace(notes, vbCr, "
")
' notes = replace(notes, vbLf, "
")
' end if
response.write "" & notes & " |
"
response.write "| PA Name: | "
response.write "" & rst("strPAName") & " |
"
response.write "| PA Tel: | "
response.write "" & rst("strPATel") & " |
"
response.write "| PA Email: | "
response.write "" & rst("strPAEmail") & " |
"
response.write " | "
response.write "Car Reg: | "
response.write "" & rst("strCarReg") & " |
"
response.write ""
response.write "
| Distribution List: | "
response.write ""
s = "SELECT tblDistributionList.strDescription, tblContactDistributionList.refContactID " & _
"FROM tblDistributionList INNER JOIN tblContactDistributionList ON tblDistributionList.DistributionListID = tblContactDistributionList.refDistributionListID " & _
"WHERE (((tblContactDistributionList.refContactID)=" & CID & ")) " & _
"ORDER BY tblDistributionList.strDescription"
set rstDistributionList = cn.execute(s)
while not rstDistributionList.eof
response.write "| " & rstDistributionList("strDescription") & " | "
rstDistributionList.movenext
wend
rstDistributionList.close
response.write " |
"
response.write " | "
response.write "Date Card Updated: " & rst("strDateEdited") & " |
"
else
response.write "| Contact details not found |
"
end if
rst.close
response.Write "
"
response.write "| Publication |
"
response.write "| |
"
s = "SELECT tblContact.ContactID, " & _
"tblShow.strName AS theShow, " & _
"tblShow.strAppearing, " & _
"tblShow.strDeadline, " & _
"tblShow.lngReach AS theShowReach, " & _
"tblShow.strHost, " & _
"tblShow.strDetails, " & _
"tblPublication.strName AS thePublication, " & _
"tblPublication.strLSM, " & _
"tblPublication.strAge, " & _
"tblPublication.strURL, " & _
"tblPublication.strPost, " & _
"tblPublication.strLogin, " & _
"tblPublication.strPhys, " & _
"tblSuburb.strDescription AS theSuburb, " & _
"tblCity.strDescription AS theCity, " & _
"tblPublication.strFootprint, " & _
"tblPublication.strCopyNewsdesk, " & _
"tblPublication.strDirections, " & _
"tblPublication.strCirculation, " & _
"tblPublication.strSwitchboard, " & _
"tblPublication.strFax, " & _
"tblPublication.strDescription as thePubDesc, " & _
"tblCategory.strDescription AS theCategory, " & _
"tblLanguage.strDescription AS theLanguage, " & _
"tblPublication.lngReach AS thePubReach " & _
"FROM (((((tblContact INNER JOIN tblPublication ON tblContact.refPublicationID = tblPublication.PublicationID) " & _
"INNER JOIN tblCategory ON tblPublication.refCategoryID = tblCategory.CategoryID) " & _
"INNER JOIN tblLanguage ON tblPublication.refLanguageID = tblLanguage.LanguageID) " & _
"INNER JOIN tblSuburb ON tblPublication.refPhysSuburbID = tblSuburb.SuburbID) " & _
"INNER JOIN tblCity ON tblPublication.refPhysCityID = tblCity.CityID) " & _
"LEFT JOIN tblShow ON tblContact.refShowID = tblShow.ShowID " & _
"WHERE (((tblContact.ContactID)=" & CID & "))"
set rst = cn.execute(s)
if not rst.eof then
response.write "| Publication: | "
response.write "" & rst("thePublication") & " | "
response.write "Description | "
response.write "" & rst("thePubDesc") & " |
"
response.write "| Category: | "
response.write "" & rst("theCategory") & " | "
response.write "Switchboard: | "
response.write "" & rst("strSwitchboard") & " |
"
response.write "| Language: | "
response.write "" & rst("theLanguage") & " | "
response.write "Fax: | "
response.write "" & rst("strFax") & " |
"
response.write "| AMPS Reach: | "
response.write "" & rst("thePubReach") & " | "
response.write "Circulation: | "
response.write "" & rst("strCirculation") & " |
"
response.write "| Show/Sect Deadline: | "
response.write "" & rst("strDeadline") & " | "
response.write "Website: | "
response.write "" & rst("strURL") & " |
"
response.write " | "
response.write " | "
response.write "Website Login: | "
response.write "" & rst("strLogin") & " |
"
response.write " | "
response.write " | "
response.write "Postal Address: | "
response.write "" & rst("strPost") & " |
"
response.write "| LSM: | "
response.write "" & rst("strLSM") & " | "
response.write " | "
response.write " |
"
response.write "| Age: | "
response.write "" & rst("strAge") & " | "
response.write " | "
response.write " |
"
response.write " | "
response.write " | "
response.write "Courier Address: | "
response.write "" & rst("strPhys") & " |
"
response.write "| Show/Section: | "
response.write "" & rst("theShow") & " | "
response.write "Suburb: | "
response.write "" & rst("theSuburb") & " |
"
response.write "| Airing/Appearing: | "
response.write "" & rst("strAppearing") & " | "
response.write "City: | "
response.write "" & rst("theCity") & " |
"
response.write "| Show Details: | "
response.write "" & rst("strDetails") & " | "
response.write " | "
response.write " |
"
response.write "| Reach: | "
response.write "" & rst("theShowReach") & " | "
response.write " | "
response.write " |
"
response.write " | "
response.write " | "
response.write "Directions: | "
response.write "" & rst("strDirections") & " |
"
response.write " | "
response.write " | "
response.write "Footprint: | "
response.write "" & rst("strFootprint") & " |
"
response.write "| Host: | "
response.write "" & rst("strHost") & " | "
response.write " | "
response.write " |
"
response.write " | "
response.write " | "
response.write "Newsdesk email: | "
response.write "" & rst("strCopyNewsdesk") & " |
"
else
response.write "| Publication details not found |
"
end if
rst.close
end if
response.write ""
response.Write "| Contact details not found. |
"
end if
%>