This topic is locked
[SOLVED]

 Highlighting list

9/15/2008 9:35:54 AM
ASPRunnerPro General questions
M
MikeGinMN author

I'm moving my project to interact with SQL 2005. You helped me with this when I was connecting to a SQL 2000 server. But when I redid hte pages to work with SQL 2005, the area where you told me to put the coding is now all made as comments (a ' in front of each line) When I add the coding where you said to - he pages errors out. Could you give me some ideas on where to do this.
This is the code I have been using
' highlight - have expired - red

sSQL = "select from dbo.ViewBowlingHighLight where StateID=" & strdata & " and ExpDate<getdate()"

set rsTmp = Server.CreateObject("ADODB.Recordset")

rsTmp.Open sSQL, dbConnection

if not rsTmp.eof then

value = "<b><font color=#FF0000>" & value & "</font></b>"

rsTmp.Close

end if

set rsTmp = nothing
' highlight - Will expire next 60 days - dark yellow

sSQL = "select
from dbo.ViewBowlingHighLight where StateID=" & strdata & " and ExpDate>getdate() and ExpDate<getdate()+60"

set rsTmp = Server.CreateObject("ADODB.Recordset")

rsTmp.Open sSQL, dbConnection

if not rsTmp.eof then

value = "<b><font color=#CCCC00>" & value & "</font></b>"

rsTmp.Close

end if

set rsTmp = nothing
and this is what the place I've been inserting it looks like now that I'm connecting to a SQL 2005 server
' StateID -

value=""

' if len(rs("StateID"))>0 then

' strdata = make_db_value("StateID",rs("StateID"),"","")

' LookupSQL="SELECT "

'

' LookupSQL=LookupSQL & "[Name]"

'

' LookupSQL=LookupSQL & " FROM [dbowner].[ViewActivePeople2] WHERE [Code] = " & strdata

' ' LookupSQL=LookupSQL & " and (" & "Del1 = '" & Session("OwnerID") & "' OR Del2 = '" & Session("OwnerID") & "' OR Del3 = '" & Session("OwnerID") & "'" & ")"

'

' LogInfo(LookupSQL)

' rss.open LookupSQL,dbConnection

' call ReportError

' lookupvalue=rs("StateID")

' if not rss.eof then


' lookupvalue=rss(0)

' ' value=ProcessLargeText(GetDataInt(lookupvalue,rs,"StateID", ""),"field=StateID" & keylink,"",MODE_LIST)

'
' rss.Close

' else

' value=""

' end if

value = DisplayLookupWizard("StateID",dbvalue(rs("StateID")),rs,keylink,MODE_LIST)

row.Add col & "StateID_value",value
I would appreciate it very much <img src='https://asprunner.com/forums/file.php?topicimage=1&fieldname=question&id=9531&image=1&table=forumtopics' class='bbc_emoticon' alt=':unsure:' />