10 svar · 222 visningar · startad av asp
Hej, jag vill kolla om historia har något i sig. Har det något skriver jag ut historian har det inget skriver jag ut "kommer inom kort".
If IsNull(objRs("historia")) Then
Response.Write("Kommer inom kort..")
Else
Response.Write objRs("historia")
End If
Problemet är att inget händer.. Inget visas...
If trim(cstr(objRs("historia") & "")) = "" Then
Response.Write("Kommer inom kort..")
Else
Response.Write objRs("historia")
End If
Inget av dem fungerar :(
Äh... hur ser resten av koden ut?
Ok, efter samtal på MSN, så testar vi det här då:
If [b]not[/b] len(trim(cstr(objRs("historia") & ""))) > 0 Then
Response.Write("Kommer inom kort..")
Else
Response.Write objRs("historia")
End If
RED. Felkodat.
<%
If Request.QueryString("id") = "" Then
intID = 1
Else
intID = CInt(Request.QueryString("id"))
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("databas.mdb")
strSQL = "SELECT ligalogo, liganamn FROM tblLiga WHERE ligaid = " & intID & ""
Set objRs = Conn.Execute(strSQL)
Response.Write("<img src=""http://www.fleffefloff.com/sputnik/img/" & objRs("ligalogo") & """ align=""left"" style=""margin-right: 20px"">")
Response.Write("<b>" & objRs("liganamn") & "</b><br>")
Response.Write("» <a href=""tabell.asp?id=" & intID & """>Tabellen</a><br>")
Response.Write("» <a href=""skytteliga.asp?id=" & intID & """>Skytteligan</a><br>")
Response.Write("» <a href=""spelschema.asp?id=" & intID & """>Spelschemat</a><br>")
Response.Write("» <a href=""historia.asp?id=" & intID & """>Historia och bakgrund</a><br><br>")
Response.Write("» <a href=""alla.asp"">Tillbaks till övriga ligor</a><br>")
strSQL = "SELECT * FROM tblHist WHERE ligaid =" & intID & ""
Set objRs = Conn.Execute(strSQL)
Response.Write("<br><br><b>Historia och bakgrund till ligan</b><br><br>")
Do Until objRs.EOF
If trim(cstr(objRs("historia") & "")) = "" Then
Response.Write("Kommer inom kort..")
Else
Response.Write objRs("historia")
End If
objRs.MoveNext
Loop
objRs.Close : Set objRs = Nothing
Conn.Close : Set Conn = Nothing
%>
Testa det här:
<%
If Request.QueryString("id") = "" Then
intID = 1
Else
intID = CInt(Request.QueryString("id"))
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("databas.mdb")
strSQL = "SELECT ligalogo, liganamn FROM tblLiga WHERE ligaid = " & intID & ""
Set objRs = Conn.Execute(strSQL)
Response.Write("<img src=""http://www.fleffefloff.com/sputnik/img/" & objRs("ligalogo") & """ align=""left"" style=""margin-right: 20px"">")
Response.Write("<b>" & objRs("liganamn") & "</b><br>")
Response.Write("» <a href=""tabell.asp?id=" & intID & """>Tabellen</a><br>")
Response.Write("» <a href=""skytteliga.asp?id=" & intID & """>Skytteligan</a><br>")
Response.Write("» <a href=""spelschema.asp?id=" & intID & """>Spelschemat</a><br>")
Response.Write("» <a href=""historia.asp?id=" & intID & """>Historia och bakgrund</a><br><br>")
Response.Write("» <a href=""alla.asp"">Tillbaks till övriga ligor</a><br>")
objRs.close
set objRs = nothing
strSQL = "SELECT * FROM tblHist WHERE ligaid =" & intID & ""
Set objRs2 = Conn.Execute(strSQL)
Response.Write("<br><br><b>Historia och bakgrund till ligan</b><br><br>")
Do Until objRs2.EOF
If trim(cstr(objRs2("historia") & "")) = "" Then
Response.Write("Kommer inom kort..")
Else
Response.Write objRs2("historia")
End If
objRs2.MoveNext
Loop
objRs2.Close : Set objRs2 = Nothing
Conn.Close : Set Conn = Nothing
%>
tusan... fungerar inte heller...
Jag förstår inte riktigt din kod dock, ser jag nu.
Först väljer du alla rader ur 'tblHist' där ligaId = intId. Detta borde rimligtvis bara returnera en rad, eller hur? Däremot om vi kliver ner ett par steg, så vill du iterera genom detta recordset (som bara innehåller en rad) med objRs.movenext?
Frågor:
1. Skall det bara bli en rad / historia?
2. Varför har du en egen tabell till just historia?
Som OverRRidE påpekade så kan det vara en god ide att lyfta över alla historia till tblLiga, så kan du välja ut den informationen på en gång. Om inte det fungerar (du behöver tblHist till andra saker), så kan du använda dig av en INNER JOIN istället för att hämta två RecordSets.
<%
If Request.QueryString("id") = "" Then
intID = 1
Else
intID = CInt(Request.QueryString("id"))
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("databas.mdb")
strSQL = "SELECT ligalogo, liganamn, historia FROM tblLiga WHERE ligaid = " & intID & ""
Set objRs = Conn.Execute(strSQL)
Response.Write "<img src=""http://www.fleffefloff.com/sputnik/img/" & objRs("ligalogo") & """ align=""left"" style=""margin-right: 20px"">"
Response.Write "<b>" & objRs("liganamn") & "</b><br>"
Response.Write "» <a href=""tabell.asp?id=" & intID & """>Tabellen</a><br>"
Response.Write "» <a href=""skytteliga.asp?id=" & intID & """>Skytteligan</a><br>"
Response.Write "» <a href=""spelschema.asp?id=" & intID & """>Spelschemat</a><br>"
Response.Write "» <a href=""historia.asp?id=" & intID & """>Historia och bakgrund</a><br><br>"
Response.Write "» <a href=""alla.asp"">Tillbaks till övriga ligor</a><br>"
Response.Write "<br><br><b>Historia och bakgrund till ligan</b><br><br>"
If Not IsNull(objRs("historia")) Then
If Not Trim(CStr(objRs("historia"))) = "" Then
Response.Write objRs("historia")
Else
Response.Write "Kommer inom kort"
End If
Else
Response.Write "Kommer inom kort"
End If
objRs.Close : Set objRs = Nothing
Conn.Close : Set Conn = Nothing
%>