Du måste nog bestämma dig för vilket rs du vill ha.
Antingen:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM Tabsid, Sidor"
rs.Open SQLstr, conn
%>
Eller:
<%
Set rs = conn.Execute("SELECT * FROM Tabsid Where ID = " & Request.QueryString("ID") & " ")
%>
Båda dessa recordsets finns i koden direkt efter varandra med OLIKA sql-uttryck.
Som du ser är det den senare av dem som du checkar mot som är det aktiva recordsetet av de båda rs.
Skulle behålla det och fimpa bort det som har med adodb.recordset.
gör du det så kan du oxå fimpa de 2 första raderna som ej behövs...
Gjorde om det lite, men Recordset mrs visas fortfarande inte
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include virtual="unisafe\admin\adovbs.inc" -->
<%
dim Accessgroup
Accessgroup = Session("svAccessgroup")
If Accessgroup <> "Admin" And Accessgroup <> "Layout" Then
Response.Redirect "noaccess.asp"
End If
%>
<%
dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "mindb"
%>
<%
SQL="SELECT * FROM Tabsid Where ID = " & Request.QueryString("ID") & " "
Set rs = conn.Execute(SQL)
%>
<form name="form" method="post" action="layouttabchasucc.asp?ID=<%=rs("ID")%>">
<%
SQL1 ="SELECT * FROM Sidor"
set mrs = conn.Execute(SQL1)
Do Until mrs.EOF
%>
<%
If len(mrs("Tabell1namn"))> 0 Then
%>
<td width="20%" class="ie"><%=mrs("Tabell1namn")%><br>
<input type="text" name="Tabell1" size="15" class="ie" value="<%=rs("Tabell1")%>">
</td>
<% End If %>
<%
mrs.MoveNext
Loop
mrs.Close
rs.Close
%>
Denna rad: <%@LANGUAGE="VBSCRIPT"%> fyller ingen funktion. VBSCRIPT är redan satt som default script att köra på en IIS webserver. Att sätta språket en ggn till tar bara resurser från burken.
Hela filen adovbs.inc tycker jag inte heller är så speciellt bra att includera. Bättre att kopiera de konstanter man ska använda och lägga på sidan, eller i en egen inklud-fil.
Har du provat med att ta bort if-satsen och köra utan den?