Article (original) (raw)

<%@ Page aspcompat=true Debug="true"%> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.ODBC" %><% Dim title, author, ArticleID title = Request("title") author = Request("author") ArticleID = Request("Article") 'sqlstr="Select TblArticle.*,TblMentor.ID as MentorId,TblMentor.Fname,TblMentor.Lname,TblMentor.Title as theTitle,TblMentor.image as mentorimage,TblCategory.Name AS ArtName,TblCategory.ID as CatID From TblArticle,TblMentor,TblCategory Where (TblArticle.MentorID=TblMentor.ID OR TblArticle.MentorID2=TblMentor.ID) AND TblArticle.CategoryID=TblCategory.ID AND TblArticle.ID="&ArticleID sqlstr="Select TblArticle.ID,TblArticle.Name,TblArticle.MentorID,TblArticle.MentorID2,TblArticle.File as thefile,TblArticle.DateAdded,TblArticle.CategoryID,TblArticle.Image as ArticleImage,TblArticle.PubMonth,TblMentor.ID as MentorId,TblMentor.Fname,TblMentor.Lname,TblMentor.Title as theTitle,TblMentor.image as mentorimage,TblCategory.Name AS ArtName,TblCategory.ID as CatID From TblArticle,TblMentor,TblCategory Where (TblArticle.MentorID=TblMentor.ID OR TblArticle.MentorID2=TblMentor.ID) AND TblArticle.CategoryID=TblCategory.ID AND TblArticle.ID='" & ArticleID & "'" rs = objConn.execute(sqlstr) rs.MoveFirst Dim theTitle = (rs("theTitle").value) Dim Fname = (Server.HtmlEncode(rs("Fname").value)) Dim Lname = (Server.HtmlEncode(rs("Lname").value )) Dim ArtName = (Server.HtmlEncode(rs("ArtName").value )) 'Dim thename = (Server.HtmlEncode(rs("name").value )) Dim thename = (rs("name").value) Dim CatId = (Server.HtmlEncode(rs("CatId").value )) Dim MentorId = (Server.HtmlEncode(rs("MentorId").value )) Dim MentorID2 = (rs("MentorID2").value) ' we need to create code to test for null or not on MentorID2. If its not null, we can do normal declaration. If its null then we dance a bit If (MentorID2.Equals(System.DBNull.Value)) Then 'anything to do here? I dont think so Else MentorID2 = (Server.HtmlEncode(rs("MentorId2").value )) End IF 'Response.Write (thename) Dim thenamemeta as string thenamemeta = thename Dim RegExStr As String = �<[^>]*>� Dim R As New Regex(RegExStr) thenamemeta = R.Replace(thenamemeta, � �) Dim catno catno = CatId 'Response.Write ("
" & thenamemeta & "
") '* '***** CHECK FOR NULL SECOND AUTHOR '* Dim Men2 = "Not Null" If ((rs("MentorID2").value).Equals(System.DBNull.Value)) Then Men2 = ("Null") Else Men2 = ("Not Null") End If 'Response.Write ("Men2 is " & Men2) '* '***** CHECK FOR NULL ARTICLE IMAGE '* Dim ArtImage = (rs("ArticleImage").value) Dim AImg = "Not Null" If (ArtImage.Equals(System.DBNull.Value)) Then AImg = ("Null") else AImg = ("Not Null") end if 'Response.Write ("
Article image is " & AImg) '* '***** CHECK FOR NULL MENTOR IMAGE '* Dim mentorimage = (rs("mentorimage").value ) Dim Img ="Not Null" If (mentorimage.Equals(System.DBNull.Value)) Then Img = ("Null") else Img = ("Not Null") end if 'Response.Write ("
Mentor Image is " & Img) Dim DisplayImage = "None" if AImg ="Not Null" then DisplayImage = (Server.HtmlEncode(rs("ArticleImage").value )) end if if AImg = "Null" and Img = "Not Null" then DisplayImage = (Server.HtmlEncode(rs("mentorimage").value )) end if 'Response.Write ("
Display image: " & DisplayImage) Dim PubMonth = (Server.HtmlEncode(rs("PubMonth").value )) Dim PMonthMo = (datepart("m",PubMonth)) if PMonthMo < 10 then PMonthMo = "0" & PMonthMo end if 'Response.Write ("
PubMonth month: " & PMonthMo) Dim PMonthYr = (DatePart("yyyy",PubMonth)) PMonthYr = (right(PMonthYr,2)) 'Response.Write ("
PubMonth year: " & PMonthYr) Dim PubDate = PMonthMo & "_" & PMonthYr 'Response.Write ("
Pub Date: " & PubDate) Dim thefile = (Server.HtmlEncode(rs("thefile").value )) %><% Dim authorstr = Fname & " " & Lname 'Response.Write ("
authorstr: " & authorstr) 'Response.Write ("By: "& Fname &" "& Lname) If Men2 = "Not Null" Then'Test for Null dim objConn2, rs2, sqlstr2 objConn2 = Server.CreateObject("ADODB.Connection") ' Set removed. objConn2.Open ("DSN=swiftsuccess;UID=swiftsuccesscom;PWD=HWnW2003;DATABASE=swiftsuccess") sqlstr2="Select Title,Fname,Lname from TblMentor Where ID="& MentorID2 rs2 = objConn2.execute(sqlstr2) rs2.MoveFirst Dim Fname2 = (Server.HtmlEncode(rs2("Fname").value )) Dim Lname2 = (Server.HtmlEncode(rs2("Lname").value )) authorstr= authorstr & " and " & Fname2 & " " &Lname2 ' Response.Write (" and "& Fname2 &" "& Lname2) rs2.Close rs2=nothing objconn2.Close Objconn2=nothing End IF'end test for second author 'Response.Write ("** AuthorStr:" & authorstr & " **") %><% = authorstr %> <% = ArtName %> Article <% dim robottag if author="" or title="" then robottag= "noindex" else robottag= "index,follow" end if %>