Flere variabler via URL
Goddag der :)Her har jeg en lille problem:
1) Der eksister en database med kolonner som ID, nummer, tekst, billede1, billede2, billede3
2) Billede1/2/3 kan være enten "Yes" eller "No" (MS Access DB med checkboxes der laver enten "Yes" eller "No")
3) Jeg kommer på en side med profil, hvor jeg kan se Nummer på personen, hans beskrivelse (tekst kolonne) og hans billede ( default kolonne billede1 ).
Lad os sige personen har ID 36 og jeg kommer på siden via URL som f.eks. http://www.bla.dk/view.asp?key=36
4) Nogle personer har 1 billede, nogle 2, nogle 3...
5) Hvad skal det laves : Under personernes billede (billede1) skal der være links til resten af hans billeder (1 eller 2 eller 3) som linker til samme side med en variabel der hedder f.eks. "image" ...
Altså linket bliver til http://www.bla.dk/view.asp?key=36&image=2 osv...
Er det nem? Well.. det er tricky, da du skal først tjecke databasen om billede1=Yes, hvis ja - lave et link, hvis nej - stoppe med at lave links, tjecke om billede2=Yes, hvis ja - lave et link, hvis nej - stoppe med at lave links osv.
Lige nu har jeg en mappe images med billeder til profil 36 der hedder 36-1.jpg 36-2.jpg 36-3.jpg og når man åbner profilen kommer der 36-1.jpg som default billede (kolonne billede1).
Her er hvordan min skript ser indtil videre (har rodet med de billeder i flere timer og opgav til sidst...)
<!--#include file="db.asp"--> //indeholder connection oplysninger
<%
response.buffer = true
'get key
key = request.querystring("key")
if key="" or isnull(key) then
key=request.form("key")
end if
if key="" or isnull(key) then response.redirect "default.asp"
'get action
a=request.form("a")
if a="" or isnull(a) then
a="I" 'display with input box
end if
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
Select Case a
Case "I": ' Get a record to display
tkey=key
strsql = "SELECT * FROM [DB] WHERE [ID]=" & tkey
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
If rs.EOF Then
Response.Clear
Response.Redirect "default.asp"
Else
rs.MoveFirst
End If
' Get the field contents
x_ID = rs("ID")
x_Nummer = rs("Nummer")
x_Navn = rs("Navn")
x_Text = rs("Tekst")
x_Billede1 = rs("Billede1")
x_Billede2 = rs("Billede2")
x_Billede3 = rs("Billede3")
x_Billede4 = rs("Billede4")
x_Billede5 = rs("Billede5")
rs.Close
Set rs = Nothing
End Select
%>
blablabla
blabla
<img src="imgs/<% response.write x_Nummer %>-1.jpg"> //default billede fra kolonne "billede1"
Og lige under den her billede skal der laves links til resten af billeder... Der skal tjeckes om værdier i DB'en er lige med "Yes" og hvis det er rigtigt, lave linket til billedet osv...
Nå man kommer først på siden bruger man http://www.bla.dk/view.asp?key=36 og når man vil se billede 2 bruger man http://www.bla.dk/view.asp?key=36&image=2 ... Det skal man også overveje da variebel "image" bliver ikke sendt med første gang ( når man åbner siden for første gang )...
Well... håber i kan hjælpe mig. Good luck!