---

Okay jeg ved godt at det er en lidt lang kode at poste, men det
eneste jeg ikke kan få den til er og reagere på If Then sætninger
og Querystrings jeg har lavet. Det eneste jeg vil ha' den til er
at hvis ID=1 så skal den køre første del, hvis ID =2 så skal den
kører anden del.
Hvordan for jeg den til det, (og ved ikke om det er rigtigt og
bruge Querystrings her)????

Source code:

<!-- #include file="../Connection.asp" -->

<!-- Systemtelefoner -->

<% If Request.Querystring("page")="produkter" Then %>
<% If Request.QueryString("ID") = "1" Then %>

<%
Set oRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT ID, Produkt, Beskrivelse, Foto "
strSQL = strSQL & "FROM AlleProdukter WHERE Id >= 1 AND Id <
11"
oRS.Open strSQL, oConn
oRS.MoveFirst

Response.Write"<table width='100%' align='center'
cellpadding='25' cellspacing='15' border='0'>"
count = 0
Response.Write("<tr>")
While Not oRS.EOF
If count Mod 2 = 0 Then
Response.Write("</tr><tr>") & vbCrLf
End If
Response.Write("<td align=""center"" valign=""middle"">"
& "<b>" & oRS.fields("Produkt") & "</b><br><br>" & "<a
href='javascript:void(0)'
onClick=""window.open('specs.asp?Specs=" & oRS.fields("Foto") &
"','','height=400,width=500');""><img src='" & oRS.fields("Foto")
& "'>" & "<br><br>" & oRS.fields("Beskrivelse") & "</a></td>") &
vbCrLf
count = count + 1
oRS.MoveNext
Wend
Response.Write("</tr></table>")

oRS.Close
Set oRS = Nothing
%>

<% End If %>
<% End If %>

<!-- /Systemtelefoner -->
<!-- Telefoncentraler -->

<% If Request.Querystring("page")="produkter" Then %>
<% If Request.QueryString("ID") = "2" Then %>

<%
Set oRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT ID, Produkt, Beskrivelse, Foto, Pris "
strSQL = strSQL & "FROM AlleProdukter WHERE Id >= 11 AND Id <
19"
oRS.Open strSQL, oConn
oRS.MoveFirst

Response.Write"<table width='100%' align='center'
cellpadding='25' cellspacing='15' border='0'>"
count = 0
Response.Write("<tr>")
While Not oRS.EOF
If count Mod 2 = 0 Then
Response.Write("</tr><tr>") & vbCrLf
End If
Response.Write("<td align=""center"" valign=""middle"">"
& "<b>" & oRS.fields("Produkt") & "</b><br><br>" & "<a
href='javascript:void(0)'
onClick=""window.open('specs.asp?Specs=" & oRS.fields("Foto") &
"','','height=400,width=500');""><img src='" & oRS.fields("Foto")
& "'>" & "<br><br>" & oRS.fields("Beskrivelse") & "</a></td>") &
vbCrLf
count = count + 1
oRS.MoveNext
Wend
Response.Write("</tr></table>")

oRS.Close
Set oRS = Nothing
%>

<% End If %>
<% End If %>

<!-- Telefoncentraler -->


--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Lucien" <lvd@vip.cybercity.dk> skrev i en meddelelse
news:aj04jl$sde$1@sunsite.dk...

For overskuelighedens skyld, bør du smide koden mellem if og end if i en
function. Så får du nemmere ved at finde fejlene:

<!-- #include file="../Connection.asp" -->
<!-- Systemtelefoner -->
<%
' Hvis ID=1
function er1
Set oRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT ID, Produkt, Beskrivelse, Foto "
strSQL = strSQL & "FROM AlleProdukter WHERE Id >= 1 AND Id <11"
oRS.Open strSQL, oConn
oRS.MoveFirst

Response.Write"<table width='100%' align='center'
cellpadding='25' cellspacing='15' border='0'>"
count = 0
Response.Write("<tr>")
While Not oRS.EOF
If count Mod 2 = 0 Then
Response.Write("</tr><tr>") & vbCrLf
End If
Response.Write("<td align=""center"" valign=""middle"">"
& "<b>" & oRS.fields("Produkt") & "</b><br><br>" & "<a
href='javascript:void(0)'
onClick=""window.open('specs.asp?Specs=" & oRS.fields("Foto") &
"','','height=400,width=500');""><img src='" & oRS.fields("Foto")
& "'>" & "<br><br>" & oRS.fields("Beskrivelse") & "</a></td>") &
vbCrLf
count = count + 1
oRS.MoveNext
Wend
Response.Write("</tr></table>")

oRS.Close
Set oRS = Nothing
end function

' hvis ID=2
function er2
Set oRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT ID, Produkt, Beskrivelse, Foto, Pris "
strSQL = strSQL & "FROM AlleProdukter WHERE Id >= 11 AND Id <19"
oRS.Open strSQL, oConn
oRS.MoveFirst

Response.Write"<table width='100%' align='center'
cellpadding='25' cellspacing='15' border='0'>"
count = 0
Response.Write("<tr>")
While Not oRS.EOF
If count Mod 2 = 0 Then
Response.Write("</tr><tr>") & vbCrLf
End If
Response.Write("<td align=""center"" valign=""middle"">"
& "<b>" & oRS.fields("Produkt") & "</b><br><br>" & "<a
href='javascript:void(0)'
onClick=""window.open('specs.asp?Specs=" & oRS.fields("Foto") &
"','','height=400,width=500');""><img src='" & oRS.fields("Foto")
& "'>" & "<br><br>" & oRS.fields("Beskrivelse") & "</a></td>") &
vbCrLf
count = count + 1
oRS.MoveNext
Wend
Response.Write("</tr></table>")

oRS.Close
Set oRS = Nothing
end function

' Hvis page=produkter, så find ID nummers værdi
If Request.Querystring("page")="produkter" Then
select case Request.querystring("ID")
case "1"
er1
case "2"
er2
end select
end if
%>

Jeg er ikke klar over hvad disse gør, men smid dem, hvor de skal være
<!-- /Systemtelefoner -->
<!-- Telefoncentraler -->
<!-- Telefoncentraler -->

Jeg opdagede også at er1 og er2 er næsten ens, så overvej om ikke du skal
bruge et parameterkald, med fra værdien og til værdien:

' Hvis page=produkter, så find ID nummers værdi
If Request.Querystring("page")="produkter" Then
select case Request.querystring("ID")
case "1"
call er1 1,11
case "2"
call er1 11,19
end select
end if

Din er1 skal så ændres til:
function er1(fra,til)
-=> uændret <=-
strSQL = strSQL & "FROM AlleProdukter WHERE Id >=" & fra & " AND Id <" &
til

Hilsen
SumSum


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.380 / Virus Database: 213 - Release Date: 24-07-2002