tjena!
jag har en variabel som får sitt värde genom en request.cookies och sedan ska jämnföras mot ett recordset.
problemet är att ifsatsen i presentationsfilen nedan inte fungerar. den går oavsätt värde till **else
head.asp:**
[red] option explicit
timePage = timer ( )
response.buffer = true
session.timeout = 20
session.lcid = 1053
bgColor = siteColor ( bgColor )
scriptName = request.servervariables ( "script_name" )
newsId = request.cookies ( "dikk" ) ( "newsId" ) [blue]<-- har värdet 5[/blue]
response.cookies ( "dikk" ) ( "date" ) = now( )
response.cookies ( "dikk" ).expires = now ( ) + 30
<!-- #include virtual = 'func.asp' -->[/red]
func.asp:
[red] sub openDb ( database )
set con = server.createobject ( "adodb.connection" )
con.open " provider = microsoft.jet.oledb.4.0; data source = d:\db\" & database & ".mdb "
end sub[/red]
presentationsfilen:
[red]<!-- #include virtual = 'inc/head.asp' -->
database = "database"
openDb ( database )
sql = " select news.nwsId, news.nwsTitle, news.nwsPost, format$ ( news.nwsDate, 'yyyy-mm-dd' ) as nwsDate, format$ ( live.livDate, 'yyyy-mm-dd HH:mm' ) as livDate from live, news order by news.nwsDate desc, live.livDate "
set rs = con.execute ( sql )
strOut = rs ( "nwsId" ) [blue]<-- har värdet 5[/blue]
' write the news
response.write _
"<a href = 'news.asp'>news</a>: <br>newsId: " & newsId & "<br> rs news: " & rs ( "nwsId" ) & "<br>"
if rs ( "nwsId" ) = newsId then
response.write _
"Det finns inga nya nyheter sedan ditt senaste besök"
[b][blue]else[/blue][/b]
response.write _
"<b>" & rs ( "nwsTitle" ) & " " & rs ( "nwsDate" ) & "</b>"
' get the ten first words from news
arrPost = split ( rs ( "nwsPost" ), " " )
for i = 0 to 9
post = post & " " & arrPost ( i )
next
strOut = post
strOut = formatStr ( strOut ) & " ..."
response.write _
"<br><br>" & strOut & "<br>" & vbcrlf
end if[/red]
en response.write på newsId ger värdet 5 och likaså rs ( "nwsId" )