I have a problem with displaying data from the database, can anyone please 

help me spot where i've gone wrong. This is how i want my data to be 

displayed:

Authors: Steeve Summers, Tom Spencer

Title: Management

Year: 2000



But i get my data displayed like this:



Authors : Title : Year : Authors : Title : Year : Steeve,  Summers

Title : Management,  &

Year : 2001

Tom,  Spencer 





Here is my code:



<%



Dim objRS, objRS1,objComm,objComm1, objParam,objParam1, 

strJournal,strJournal1,varDropBox



Dim sTmp



Dim sPrevTitle



Dim sPrevYear





varDropBox = Request.Form("style")



Set objComm = Server.CreateObject("ADODB.Command")



objComm.ActiveConnection = strConnect



objComm.CommandText = "searchJournal"



objComm.CommandType = adCmdStoredProc





Set objParam =_



objComm.CreateParameter("Required Journal",adVarChar,adParamInput,50)



objComm.Parameters.Append objParam





strJournal = Request.Form("Journal")



objComm.Parameters("Required Journal") = strJournal





Set objRS = objComm.Execute



 



'Response.Write "<h1>Journal Articles by " & strJournal & "<br>"      



While Not objRS.EOF



Select Case varDropBox



Case "normal"



 



Response.Write "Authors : "



if left(stmp, 10) = "Authors : " then



stmp = "Authors : "



end if



stmp = stmp & objRS("FName") & "," & "  " &_



objRS("LName") &"<br>"



 



Response.Write "Title : "



if sPrevTitle = objRS("Title") then



else



stmp = stmp & vbcrlf & "Title : "



stmp = stmp & objRS("Title") & "," & "  " & "&<br>"



sPrevTitle = objRS("Title")



end if



 



Response.Write "Year : "



if sPrevYear = objRS("Year") then



'you already have this year - dont reprint it



else



stmp = stmp & "Year : "



stmp = stmp & objRS("Year")& "<br>"



sPrevYear = objRS("Year")



end if



End Select



objRS.MoveNext



Wend



Response.Write stmp



%>