Classic ASP Discussion - Displaying Additional SubCategories

Displaying Additional SubCategories

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=17448
Printed Date: 29 March 2026 at 10:15am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Displaying Additional SubCategories

Posted By: Misty
Subject: Displaying Additional SubCategories
Date Posted: 04 December 2005 at 11:54pm

I have a web page that sends out an email every time the listing is approved. Some of the advertisers have more than one subcategories. I'd like to show any additional subcategories they might have in the email. At this time, I can only show the first subcategory that they are listed under. Advertiser, AdvertiserSubCategory, and SubCategories join tables. Advertiser joins AdvertiserSubCategory by AdvertiserID and AdvertiserSubCategory joins SubCategories by SubCategoryID.

'-------------------------------------------------------------
' name: GetValues()
' description: updates a record
' note: This converts all empty strings to Null values
'--------------------------------------------------------------
Sub GetValues()

      AdvertiserID = rs("AdvertiserID") & ""
      SubCategoryID = rs("SubCategoryID") & ""
      BusinessName = rs("BusinessName") & ""
      Category = rs("Category") & ""
      SubCategory = rs("SubCategory") & ""
      ContactPerson = rs("ContactPerson") & ""
      Address = rs("Address") & ""
      City = rs("City") & ""
      State = rs("State") & ""
      County = rs("County") & ""
      Zip = rs("Zip") & ""
      Phone = rs("Phone") & ""
      Fax = rs("Fax") & ""
      TollPhone = rs("TollPhone") & ""
      CellPhone = rs("CellPhone") & ""
      Email = rs("Email") & ""
      Website = rs("Website") & ""
      ListingType = rs("ListingType") & ""
      Details = rs("Details") & ""
      ShowEmail = rs("ShowEmail") & ""
      Approve = rs("Approve") & ""
      DateApproved = rs("DateApproved") & ""

End Sub

'-------------------------------------------------------------
' name: UpdateRecord()
' description: updates a record
' note: This converts all empty strings to Null values
'--------------------------------------------------------------
Sub UpdateRecord()

      'Get values for new record
      Approve = Request.Form("chkApprove")
      SendEmail = Request.Form("radSendEmail")



      If Approve = "0" then
           rs("Approve") = true
      Else
           rs("Approve") = false
      End If

rs("DateApproved") = Date()

 'Save the record to the database
 rs.Update

 If SendEmail = "Yes" then

'I got some of this code from the forum application at
'www.webwiz.net
dim i
dim MyMail, EmailBody, SenderName, SenderEmail
Set MyMail = Server.CreateObject("CDO.Message")

SenderName = "ExploreNCMountains.com"
SenderEmail = " mailto:info@...........com - info@...........com "

EmailBody = "Dear " & ContactPerson & ","
EmailBody = EmailBody & vbCrLf & vbCrLf & "Your Listing has been approved on ExploreNCMountains.com! Look at your information below."
If ListingType = "Standard" then
EmailBody = EmailBody & vbCrLf & vbCrLf & " " & ListingType & " Listing - $150 per year."
else
EmailBody = EmailBody & vbCrLf & vbCrLf & " " & ListingType & " Listing - $300 per year."
end if
EmailBody = EmailBody & vbCrLf & vbCrLf & "Business Name: " & BusinessName & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Contact Person: " & ContactPerson & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Category: " & Category & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Type of Business/Organization: " & SubCategory & "" - would like to display any additional subcategories that may exist.

EmailBody = EmailBody & vbCrLf & vbCrLf & "County: " & County & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Address: " & Address & ", " & City & ", " & State & " " & Zip & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Email Address: <a href=""mailto:" & Email & """>" & Email & "</a>"
EmailBody = EmailBody & vbCrLf & vbCrLf & "Phone Number: " & Phone & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Fax: " & Fax & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Toll Free Phone Number: " & TollPhone & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Cell Phone Number: " & CellPhone & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Web Site: <a href=" & WebSite & ">" & WebSite & "</a>"
EmailBody = EmailBody & vbCrLf & vbCrLf & "Details About Business/Organization: " & Details & ""
EmailBody = EmailBody & vbCrLf & vbCrLf & "Link to Your Listing That The Public Can View: <a href="" http://www.explorencmountains.com - http://www.explorencmountains.com " & "/DisplayAdvertiser.aspx?ID=" & AdvertiserID & "&CatID=" & SubCategoryID & """>Go to Listing </a>"
EmailBody = EmailBody & vbCrLf & vbCrLf & "<a href=""Log'>http://www.explorencmountains.com/advertiserlogin.asp"">Log In to Your Listing </a>"
EmailBody = EmailBody & vbCrLf & vbCrLf & "<img src=""http://www.explorencmountains.com/explorencmountains.gif"">"

 with MyMail
 .From = SenderName & "<" & SenderEmail & ">"
 .To = C