Hej igen......

Hur gör man om jag vill att detta bara ska utföras om querystringen "nummer" har ett värde? Får inte ihop det med klammrarna och en elegant if else sats o så....

Tack på förhand

Mvh Klas




<%
Set Databas2 = Server.CreateObject("ADODB.Connection")

Databas2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("klaswebdb.mdb")

Set RecSet2 = Server.CreateObject("ADODB.Recordset") %>



<% Show2 = "SELECT * FROM Tabell WHERE SvarsID= " & Request.QueryString("nummer")
RecSet2.Open Show2, Databas2, adOpenStatic, adLockOptimistic %>


<% Do While Not RecSet2.EOF %>

<h6>Subject: <% =RecSet2("Rubrik") %><br>
<h6>By: <% =RecSet2("Namn") %></a><p>
<h6><%=RecSet2("Text")%></h6>


<% RecSet2.MoveNext
Loop


RecSet2.Close
Databas2.Close
%>

<code>
<%
Dim fldRubrik
Dim fldNamn
Dim fldText
If Len(Request.QueryString("nummer")) >0 Then
Set Databas2 = Server.CreateObject("ADODB.Connection")
Databas2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("klaswebdb.mdb")

Show2 = "SELECT * FROM Tabell WHERE SvarsID=" & Request.QueryString("nummer")

Set RecSet2 = Server.CreateObject("ADODB.Recordset")
RecSet2.Open Show2, Databas2

Set fldRubrik = RecSet2("Rubrik")
Set fldNamn = RecSet2("Namn")
Set fldText = RecSet2("Text")

Do Until RecSet2.EOF
%>
<h6>Subject: <%=fldRubrik %><br>
<h6>By: <% =fldNamn %></a><p>
<h6><%=fldText%></h6>
<%
RecSet2.MoveNext
Loop

RecSet2.Close
Databas2.Close
Else
%>
<h3>Du har inte angivit ett nummer</h3>
<%
End If
%>
</code>

Tackar, det hjälpte.


Mvh Klas