Hej igen fick lite hjälp med löpsedlar innan men det löste inte riktigt mitt problem.. Det är så att jag koden för löpsedlar i 3 olika sidor, och mitt problem är att i löpselar hat jag två rubriker NYHETER och LEDIGA TJÄNSTER, just nu måste jag ha 3 st nyhter och minst en ledig tjänst för att löpsedlen skall fungera.. jag vill visa sidan iallafall fast det kanske inte finns någon ledig tjänst eller bara 2 nyheter... Hoppas ni för står mitt lilla problem.... TACK PÅ FÖR HAND..

**KOD SIDA 1***

<code>
Dim 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)
'---------------------------------------------------------------------------------
Det ligger annan kod imellan....
'---------------------------------------------------------------------------------

<div id="Layer1" style="position:absolute; width:228px; height:408px; z-index:1; left: 420px; top: 15px; background-image: url(image/lopsedel.jpg); layer-background-image: url(image/lopsedel.jpg); border: 1px none #000000; overflow: auto">

<table width="176" 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" BGCOLOR="#FFFAF0">
<% '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" BGCOLOR="#FFFAF0">
<% 'Visa den senaste Lediga tjänsten. Dagsfärska tjänster skrivs [ Idag ].

For iNews = 1 To 3 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>
<td bgcolor="#CCCC91" height="21" align="center">
<b>Visa alla!</b>
</td>
</tr>
</table>



</div>
</code>
***SLUT KOD 1***


***KOD 2***
<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, valdID, sqlVisa, rsVisa, sqlVem, rsVem

Set Conn = server.createObject("ADODB.Connection")
Conn.Open "intranet2"
'---------------------------------------------------------------------------------
' SQL som plockar Nyheter.
sqlNews = "SELECT id, varRubrik, varText, varPlatsId, varDatum FROM news WHERE varPlatsId = '"& 1 &"' ORDER BY id DESC ;"
Set rsNews = Conn.Execute(sqlNews)

' SQL som plockar Lediga Tjänster.
sqlLedig = "SELECT id, varRubrik, varText, varPlatsId, varDatum FROM news WHERE varPlatsId = '"& 2 &"' ORDER BY id DESC ;"
Set rsLedig = Conn.Execute(sqlLedig)

' Kolla om det kom med någon vald nyhet, annars är det den senaste nyheten som gäller!
valdID = Request.Querystring("valdID")
If valdID ="" Then
valdID = rsNews("id")
'Response.Write("Är detta senste nytt?"& valdID)
End If

' SQL som plockar den valda nyheten eller tjänsten.
sqlVisa = "SELECT id, varRubrik, varText, varPlatsId, varUserId, varDatum FROM news WHERE id = "& valdID &" ;"
Set rsVisa = Conn.Execute(sqlVisa)
'Response.Write(sqlVisa)

sqlVem = "SELECT fname, lname, domain FROM accounts WHERE ID = "& rsVisa("varUserId") &" ;"
Set rsVem = Conn.Execute(sqlVem)
'---------------------------------------------------------------------------------

%>
<html>
<head>
<title>lopsedel.asp</title>
<link REL="stylesheet" HREF="../../style/style2.css" TYPE="text/css">
</head>
<body>
<table width="637" cellspacing="0" cellpadding="0" border="0">
<tr>
<td width="345" background="../../image/index2-filer/meny3.gif" height="21" align="center">
<font color="#FFFFFF"><b>Vald nyhet/tjänst</b></font> </td>
<td width="10" background="../../image/index2-filer/meny3.gif" height="21">&nbsp;</td>
<td width="136" background="../../image/index2-filer/meny3.gif" height="21">
<font color="#FFFFFF"><b>Senaste Nytt</b></font> </td>
<td width="10" background="../../image/index2-filer/meny3.gif" height="21">&nbsp;</td>
<td width="136" background="../../image/index2-filer/meny3.gif" height="21">
<font color="#FFFFFF"><b>Ledig Tjänst</b></font> </td>
</tr>
<tr valign="top">
<td width="345" height="5"><img src="../../image/pixel.gif" width="345" height="5" name="Pixel"></td>
<td width="10" height="5"><img src="../../image/pixel.gif" width="10" height="5" name="pixel"></td>
<td width="136" height="5"><img src="../../image/pixel.gif" width="136" height="5" name="pixel"></td>
<td width="10" height="5"><img src="../../image/pixel.gif" width="10" height="5" name="pixel"></td>
<td width="136" height="5"><img src="../../image/pixel.gif" width="136" height="5" name="Pixel"></td>
</tr>
<tr>
<!-- Här visas vald Nyhet -->
<td valign="top">
<%
Response.Write("<b>"& rsVisa("varRubrik") &"</b><br>")
Response.Write(rsVisa("varText") &"<br>")
' Vem som har skrivit den.
Response.Write("<br><br>"& rsVem("fname") & "&nbsp;" & rsVem("lname") & "&nbsp;/&nbsp;" & rsVem("domain") &"<br>")
Response.Write(formatDateTime(rsVisa("varDatum"), VBLongDate))
Response.Write("<br><br><br><< Tillbaka")
%>
</td>
<td>&nbsp;</td>
<!-- Här listas Nyheter -->
<td valign="top">
<% 'Lista alla nyheterna. Dagsfärska nyheter skrivs [ Idag ].
Do Until rsNews.EOF
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
Loop
%>
</td>
<td>&nbsp;</td>
<!-- Här listas Tjänster -->
<td width="136" valign="top">
<% 'Visa alla Lediga tjänster. Dagsfärska tjänster skrivs [ Idag ].
Do Until rsLedig.EOF
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
Loop
%>
</td>
</tr>
<tr bgcolor="#CCCC91">
<td colspan="5" align="center" height="21"><< Tillbaka</td>
</tr>
</table>
</body>
</html>
<%
conn.close
Set conn=nothing
%>
</code>
***SLUT KOD 2***