<% '################################################################################################## '## Snitz Forums 2000 v3.4.07 '################################################################################################## '## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################################## %> <% Dim strURLError if Instr(1,Request.Form("refer"),"search.asp",1) > 0 then strRefer = "search.asp" elseif Instr(1,Request.Form("refer"),"register.asp",1) > 0 then strRefer = "default.asp" else strRefer = Request.Form("refer") end if if strRefer = "" then strRefer = "default.asp" if Request.QueryString("id") <> "" and IsNumeric(Request.QueryString("id")) = true then ppMember_ID = cLng(Request.QueryString("id")) else ppMember_ID = 0 end if if strAuthType = "nt" then if ChkAccountReg() <> "1" then Response.Write "

" & vbNewLine & _ "Note: This NT account has not been registered yet, thus the profile is not available.
" & vbNewLine if strProhibitNewMembers <> "1" then Response.Write "If this is your account, click here to register.

" & vbNewLine else Response.Write "

" & vbNewLine end if WriteFooter Response.End end if end if select case Request.QueryString("mode") case "display" '## Display Profile if strDBNTUserName = "" then Err_Msg = "You must be logged in to view a Member's Profile" Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Admin Section
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Members Pending
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member's Profile
" & vbNewLine & _ "

There Was A Problem!

" & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

Back to Forum

" & vbNewLine & _ "
" & vbNewLine WriteFooterShort Response.End end if '## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "MEMBERS_PENDING.MEMBER_ID" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_NAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_USERNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_FIRSTNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_LASTNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_TITLE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_PASSWORD" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_AIM" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_ICQ" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_MSN" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_YAHOO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_COUNTRY" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_POSTS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_CITY" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_STATE" ' strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_HIDE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_RECEIVE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_PHOTO_URL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_HOMEPAGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_LINK1" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_LINK2" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_AGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_DOB" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_MARSTATUS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_SEX" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_OCCUPATION" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_HOBBIES" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_QUOTE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_LNEWS" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS_PENDING.M_BIO" strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS_PENDING " strSql = strSql & " WHERE MEMBER_ID=" & ppMember_ID set rs = my_Conn.Execute(strSql) if rs.BOF or rs.EOF then Err_Msg = "Invalid Member ID!" Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Admin Section
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Members Pending
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member's Profile
" & vbNewLine & _ "

There Was A Problem!

" & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

Back to Forum

" & vbNewLine & _ "
" & vbNewLine WriteFooter Response.End else strMyHobbies = rs("M_HOBBIES") strMyQuote = rs("M_QUOTE") strMyLNews = rs("M_LNEWS") strMyBio = rs("M_BIO") intTotalMemberPosts = rs("M_POSTS") if intTotalMemberPosts > 0 then strMemberDays = DateDiff("d", strToDate(rs("M_DATE")), strToDate(strForumTimeAdjust)) if strMemberDays = 0 then strMemberDays = 1 strMemberPostsperDay = round(intTotalMemberPosts/strMemberDays,2) if strMemberPostsperDay = 1 then strPosts = " post" else strPosts = " posts" end if end if if strUseExtendedProfile then strColspan = " colspan=""2""" strIMURL1 = "javascript:openWindow('" strIMURL2 = "')" else strColspan = "" strIMURL1 = "" strIMURL2 = "" end if if strUseExtendedProfile then Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Admin Section
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Members Pending
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & chkString(rs("M_NAME"),"display") & "'s Profile
" & vbNewLine end if Response.Write "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ " Pending Profile
" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine if mLev = 4 then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "
 " & ChkString(rs("M_NAME"),"display") & " " & ChkString(rs("M_NAME"),"display") & "Pending Since: " & ChkDate(rs("M_DATE"),"",True) & " (" & DateDiff("d", StrToDate(rs("M_DATE")), strForumTimeAdjust) & " days)
" & vbNewLine & _ "
" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine end if ' UseExtendedMemberProfile Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "
" & vbNewLine & _ "" & vbNewLine if trim(rs("M_PHOTO_URL")) = "" or lcase(rs("M_PHOTO_URL")) = "http://" then strPicture = 0 if strPicture = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if ' strPicture Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine strContacts = 0 if mLev > 2 or rs("M_RECEIVE_EMAIL") = "1" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_EMAIL")) <> "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if strAIM = "1" and Trim(rs("M_AIM")) <> "" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strMSN = "1" and Trim(rs("M_MSN")) <> "" then strContacts = strContacts + 1 parts = split(rs("M_MSN"),"@") strtag1 = parts(0) partss = split(parts(1),".") strtag2 = partss(0) strtag3 = partss(1) Response.Write " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then strContacts = strContacts + 1 Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strContacts = 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strHomepage + strFavLinks) > 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine if strHomepage = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_HOMEPAGE")) <> "" and lcase(trim(rs("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rs("M_HOMEPAGE"))) <> "https://" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if strFavLinks = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then Response.Write " " & vbNewLine if Trim(rs("M_LINK2")) <> "" and lcase(trim(rs("M_LINK2"))) <> "http://" and Trim(lcase(rs("M_LINK2"))) <> "https://" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if end if ' strRecentTopics Response.Write "
 My Picture 
" if Trim(rs("M_PHOTO_URL")) <> "" and lcase(rs("M_PHOTO_URL")) <> "http://" then Response.Write "" & getCurrentIcon(ChkString(rs("M_PHOTO_URL"), "displayimage") & "|150|150",ChkString(rs("M_NAME"),"display"),"hspace=""2"" vspace=""2""") & "
Click image for full picture" else Response.Write getCurrentIcon(strIconPhotoNone,"No Photo Available","hspace=""2"" vspace=""2""") end if Response.Write "
 My Contact Info 
E-mail Address: " & trim(rs("M_EMAIL")) & "No address specified...
AIM: " & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " " & ChkString(rs("M_AIM"), "display") & " 
ICQ: " & getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " " & ChkString(rs("M_ICQ"), "display") & " 
MSN: " & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & "  
YAHOO IM: " & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & " 
No info specified...
" & vbNewLine & _ " Links 
Homepage: " & rs("M_HOMEPAGE") & " No homepage specified...
Cool Links: " & rs("M_LINK1") & " 
 " & rs("M_LINK2") & " No link specified...
" & vbNewLine & _ " 		 " & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strAuthType = "nt" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strFullName = "1" and (Trim(rs("M_FIRSTNAME")) <> "" or Trim(rs("M_LASTNAME")) <> "" ) then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strCity = "1" and Trim(rs("M_CITY")) <> "") or (strCountry = "1" and Trim(rs("M_COUNTRY")) <> "") or (strState = "1" and Trim(rs("M_STATE")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strAge = "1" and Trim(rs("M_AGE")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if strDOB = rs("M_DOB") if (strAgeDOB = "1" and Trim(strDOB) <> "") then strDOB = DOBToDate(strDOB) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strMarStatus = "1" and Trim(rs("M_MARSTATUS")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strSex = "1" and Trim(rs("M_SEX")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if (strOccupation = "1" and Trim(rs("M_OCCUPATION")) <> "") then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if intTotalMemberPosts > 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if not(strUseExtendedProfile) then if rs("M_RECEIVE_EMAIL") = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_EMAIL")) <> "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if strAIM = "1" and Trim(rs("M_AIM")) <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strMSN = "1" and Trim(rs("M_MSN")) <> "" then parts = split(rs("M_MSN"),"@") strtag1 = parts(0) partss = split(parts(1),".") strtag2 = partss(0) strtag3 = partss(1) Response.Write "" & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if if IsNull(strMyBio) or trim(strMyBio) = "" then strBio = 0 if IsNull(strMyHobbies) or trim(strMyHobbies) = "" then strHobbies = 0 if IsNull(strMyLNews) or trim(strMyLNews) = "" then strLNews = 0 if IsNull(strMyQuote) or trim(strMyQuote) = "" then strQuote = 0 if (strBio + strHobbies + strLNews + strQuote) > 0 then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strBio = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strHobbies = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strLNews = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strQuote = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if end if if (strHomepage + strFavLinks) > 0 and not(strRecentTopics = "0" and strUseExtendedProfile) then if strUseExtendedProfile then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if if strHomepage = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_HOMEPAGE")) <> "" and lcase(trim(rs("M_HOMEPAGE"))) <> "http://" and Trim(lcase(rs("M_HOMEPAGE"))) <> "https://" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if if strFavLinks = "1" then Response.Write " " & vbNewLine & _ " " & vbNewLine if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then Response.Write " " & vbNewLine if Trim(rs("M_LINK2")) <> "" and lcase(trim(rs("M_LINK2"))) <> "http://" and Trim(lcase(rs("M_LINK2"))) <> "https://" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine end if else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine end if end if Response.Write "
Basics
User Name: " & ChkString(rs("M_NAME"),"display") & " 
Your Account: " & ChkString(rs("M_USERNAME"),"display") & "
Real Name: " & ChkString(rs("M_FIRSTNAME"), "display") & " " & ChkString(rs("M_LASTNAME"), "display") & "
Location: " myCity = ChkString(rs("M_CITY"),"display") myState = ChkString(rs("M_STATE"),"display") myCountry = ChkString(rs("M_COUNTRY"),"display") myLocation = "" if myCity <> "" and myCity <> " " then myLocation = myCity end if if myLocation <> "" then if myState <> "" and myState <> " " then myLocation = myLocation & ", " & myState end if else if myState <> "" and myState <> " " then myLocation = myState end if end if if myLocation <> "" then if myCountry <> "" and myCountry <> " " then myLocation = myLocation & "
" & myCountry end if else if myCountry <> "" and myCountry <> " " then myLocation = myCountry end if end if Response.Write myLocation Response.Write "
Age: " & ChkString(rs("M_AGE"), "display") & "
Age: " & DisplayUsersAge(strDOB) & "
Marital Status: " & ChkString(rs("M_MARSTATUS"), "display") & "
Gender: " & ChkString(rs("M_SEX"), "display") & "
Occupation: " & ChkString(rs("M_OCCUPATION"), "display") & "
Total Posts: " & ChkString(intTotalMemberPosts, "display") & "
[" & strMemberPostsperDay & strPosts & " per day]
Find all non-archived posts by " & chkString(rs("M_NAME"),"display") & "
E-mail Address: Click to send an E-Mail No address specified...
AIM: " & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " " & ChkString(rs("M_AIM"), "display") & " 
ICQ: " & getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " " & ChkString(rs("M_ICQ"), "display") & " 
MSN: " & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & "  
YAHOO IM: " & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & " 
More About Me
Bio: " if IsNull(strMyBio) or trim(strMyBio) = "" then Response.Write("-") else Response.Write(formatStr(strMyBio)) Response.Write "
Hobbies: " if IsNull(strMyHobbies) or trim(strMyHobbies) = "" then Response.Write("-") else Response.Write(formatStr(strMyHobbies)) Response.Write "
Latest News: " if IsNull(strMyLNews) or trim(strMyLNews) = "" then Response.Write("-") else Response.Write(formatStr(strMyLNews)) Response.Write "
Favorite Quote: " if IsNull(strMyQuote) or Trim(strMyQuote) = "" then Response.Write("-") else Response.Write(formatStr(strMyQuote)) Response.Write "
Links 
Homepage: " & ChkString(rs("M_HOMEPAGE"), "display") & " No homepage specified...
Cool Links: " & ChkString(rs("M_LINK1"), "display") & " 
 " & ChkString(rs("M_LINK2"), "display") & " No link specified...
" & vbNewLine & _ "
" & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine & _ " " & vbNewLine end if case else Response.Redirect("default.asp") end select set rs = nothing WriteFooter Function IsValidURL(sValidate) Dim sInvalidChars Dim bTemp Dim i if trim(sValidate) = "" then IsValidURL = true : exit function sInvalidChars = """;+()*'<>" for i = 1 To Len(sInvalidChars) if InStr(sValidate, Mid(sInvalidChars, i, 1)) > 0 then bTemp = True if bTemp then strURLError = "
• cannot contain any of the following characters: "" ; + ( ) * ' < > " if bTemp then Exit For next if not bTemp then for i = 1 to Len(sValidate) if Asc(Mid(sValidate, i, 1)) = 160 then bTemp = True if bTemp then strURLError = "
• cannot contain any spaces " if bTemp then Exit For next end if ' extra checks ' check to make sure URL begins with http:// or https:// if not bTemp then bTemp = (lcase(left(sValidate, 7)) <> "http://") and (lcase(left(sValidate, 8)) <> "https://") if bTemp then strURLError = "
• must begin with either http:// or https:// " end if ' check to make sure URL is 255 characters or less if not bTemp then bTemp = len(sValidate) > 255 if bTemp then strURLError = "
• cannot be more than 255 characters " end if ' no two consecutive dots if not bTemp then bTemp = InStr(sValidate, "..") > 0 if bTemp then strURLError = "
• cannot contain consecutive periods " end if 'no spaces if not bTemp then bTemp = InStr(sValidate, " ") > 0 if bTemp then strURLError = "
• cannot contain any spaces " end if if not bTemp then bTemp = (len(sValidate) <> len(Trim(sValidate))) if bTemp then strURLError = "
• cannot contain any spaces " end if 'Addition for leading and trailing spaces ' if any of the above are true, invalid string IsValidURL = Not bTemp End Function %>