Hej jag har ett STORT poroblem och det gäller löpsedlar.... Det är så att i den kod som jag har skrivit så måste jag ha tre st rubriker på min lösedel men, vill kunna göra så att det går med en bara.. Bifogarkoden nedan //Sir_H Om du skall bara ha en, så skulle jag först bytt din Mitt förslag:Hjälp med löpsedlar
<code>
<%@ LANGUAGE=VBScript %>
<%
'Response.addHeader "pragma","no-cache"
'Response.addHeader "cache-control","private"
'Response.CacheControl = "no-cache"
Session.LCID = 1053
Dim Conn, sqlNews, rsNews, sqlLedig, rsLedig, iNews
Set Conn = server.createObject("ADODB.Connection")
Conn.Open "intranet2"
'---------------------------------------------------------------------------------
sqlNews = "SELECT id, varRubrik, varText, varPlatsId, varDatum FROM news WHERE varPlatsId = '"& 1 &"' ORDER BY id DESC ;"
Set rsNews = Conn.Execute(sqlNews)
sqlLedig = "SELECT id, varRubrik, varText, varPlatsId, varDatum FROM news WHERE varPlatsId = '"& 2 &"' ORDER BY id DESC ;"
Set rsLedig = Conn.Execute(sqlLedig)
'---------------------------------------------------------------------------------
'Response.Write(Date())
%>
<html>
<head>
<title>lopsedel.asp</title>
<link REL="stylesheet" HREF="../../style/style2.css" TYPE="text/css">
</head>
<body>
<table width="136" cellspacing="0" cellpadding="0" border="0">
<tr>
<td background="../../image/index2-filer/meny3.gif" height="21" align="center">
<font color="#FFFFFF"><b>Senaste Nytt</b></font>
</td>
</tr>
<tr>
<td valign="top">
<% 'Lista de tre senaste nyheterna. Dagsfärska nyheter skrivs [ Idag ].
For iNews = 1 To 3 Step 1
Response.Write(""& rsNews("varRubrik") &"<br>")
Response.Write(Left(rsNews("varText"), 70) &"...<br>")
If rsNews("varDatum") = Date() Then
Response.Write("[ Idag ]<br><br>")
Else
Response.Write("["& rsNews("varDatum") &"]<br><br>")
End If
rsNews.MoveNext
Next
%>
</td>
</tr>
<tr>
<td background="../../image/index2-filer/meny3.gif" height="21" align="center">
<font color="#FFFFFF"><b>Ledig Tjänst</b></font>
</td>
</tr>
<tr>
<td valign="top">
<% 'Visa den senaste Lediga tjänsten. Dagsfärska tjänster skrivs [ Idag ].
For iNews = 1 To 1 Step 1
Response.Write(""&rsLedig("varRubrik") &"<br>")
Response.Write(Left(rsLedig("varText"), 70) &"...<br>")
If rsLedig("varDatum") = Date() Then
Response.Write("[ Idag ]<br><br>")
Else
Response.Write("["& rsLedig("varDatum") &"]<br><br>")
End If
rsLedig.MoveNext
Next
%>
</td>
</tr>
<tr bgcolor="#CCCC91">
<td height="21" align="center">
<b>Visa alla!</b>
</td>
</tr>
</table>
</body>
</html>
<%
conn.close
Set conn=nothing
%>
</code>Sv: Hjälp med löpsedlar
For iNews = 1 To 3 Step 1 mot For iNews = 1 To 1 Step 1
Men det som ger dig bättre prestanda är att bara hämta 1 post i dina båda recordset.
sqlNews = "SELECT TOP 1 id, varRubrik.......
sqlLedig = "SELECT TOP 1 id, varRubrik......
Med TOP 1 så returnerar du bara en post, vilket gör att du även sedan slipper loopa igen kodenSv: Hjälp med löpsedlar
<code>
<%@ LANGUAGE=VBScript %>
<%
'Response.addHeader "pragma","no-cache"
'Response.addHeader "cache-control","private"
'Response.CacheControl = "no-cache"
Session.LCID = 1053
Dim rs
Dim Conn
Dim strSQL
Set Conn = server.CreateObject("ADODB.Connection")
Conn.Open "intranet2"
Set rs = server.CreateObject("ADODB.Recordset")
'---------------------------------------------------------------------------------
'Response.Write(Date())
%>
<html>
<head>
<title>lopsedel.asp</title>
<link REL="stylesheet" HREF="../../style/style2.css" TYPE="text/css">
</head>
<body>
<table width="136" cellspacing="0" cellpadding="0" border="0">
<tr>
<td background="../../image/index2-filer/meny3.gif" height="21" align="center">
<font color="#FFFFFF">Senaste Nytt</font>
</td>
</tr>
<tr>
<td valign="top">
<% 'Lista de tre senaste nyheterna. Dagsfärska nyheter skrivs [ Idag ].
strSQL = "SELECT TOP 3 id, varRubrik, varText, varPlatsId, varDatum" + vbcrlf + _
"FROM news" + vbcrlf + _
"WHERE varPlatsId = '"& 1 &"'" + vbcrlf + _
"ORDER BY id DESC ;"
rs.Open strSQL, Conn
Do Until rs.Eof
Response.Write ""& rs("varRubrik") &"<br>")
Response.Write Left(rs("varText"), 70) & "...<br>"
If rs("varDatum") = Date() Then
Response.Write("[ Idag ]<br><br>")
Else
Response.Write("["& rs("varDatum") &"]<br><br>")
End If
rs.MoveNext
Loop
rs.Close
%>
</td>
</tr>
<tr>
<td background="../../image/index2-filer/meny3.gif" height="21" align="center">
<font color="#FFFFFF">Ledig Tjänst</font>
</td>
</tr>
<tr>
<td valign="top">
<% 'Visa den senaste Lediga tjänsten. Dagsfärska tjänster skrivs [ Idag ].
strSQL = "SELECT TOP 1 id, varRubrik, varText, varPlatsId, varDatum" + vbcrlf + _
"FROM news" + vbcrlf + _
"WHERE varPlatsId = '"& 2 &"'" + vbcrlf + _
"ORDER BY id DESC ;"
rs.Open strSQL, Conn
Do Until rs.Eof
Response.Write ""&rs("varRubrik") &"<br>"
Response.Write Left(rs("varText"), 70) &"...<br>"
If rs("varDatum") = Date() Then
Response.Write("[ Idag ]<br><br>")
Else
Response.Write("["& rs("varDatum") &"]<br><br>")
End If
rs.MoveNext
Loop
rs.Close
%>
</td>
</tr>
<tr bgcolor="#CCCC91">
<td height="21" align="center">
Visa alla!
</td>
</tr>
</table>
</body>
</html>
<%
Set rs = Nothing
conn.close
Set conn=nothing
%>
</code>