visa text ihopp med bild!

Så här kanske:

<% 
If IsEmpty(Request.Querystring("view")) Then 
%> 
<a href="test.asp?category=images&view=1"><img src="pix/thumb_01.jpg" border="0"></a> 
<a href="test.asp?category=images&view=2"><img src="pix/thumb_02.jpg" border="0"></a> 
<a href="test.asp?category=images&view=3"><img src="pix/thumb_03.jpg" border="0"></a> 
<a href="test.asp?category=images&view=4"><img src="pix/thumb_04.jpg" border="0"></a> 
<a href="test.asp?category=images&view=5"><img src="pix/thumb_05.jpg" border="0"></a> 
<% 
Else 
select case Request.Querystring("view")
case "1"
texten="Text 1"
case "2"
texten="Text 2"
case "3"
texten="Text 3"
case "4"
texten="Text 4"
case "5"
texten="Text 5"
end select
%> 
<img src="pix/images_<%=Request.Querystring("view")%>.jpg"><br> 
<a href="test.asp?category=images"><img src="grafik/back.gif" border="0"></a> 
<% 
response.write texten
End If 
%>

Tack Jesper!

Det funkar att göra så som du visade, men jag kommer att ha typ 100 st bilder + ganska mycket text till varge bild så det hadde varit mycket smidigare ifall texten låg i ett eget dokument istället för att vara inskriven direkt i koden!

Det hadde ochså varit bra om koden funkade så att den känner automatiskt av att om man klickar på bild 65 så visas 65.txt. Exakt så som det är med bilderna!

Finns det någon kod som kan göra så?

mvh / Erik

du kan ju alltid inkludera koden!

annat satt ar ju att hamta fran db'n om du har db? da kan du ju ha falt som anger vilken text som ar och sen are det bara att lista genom querystringen..... blir ca 3 rader da ;)

ok, hur skulle koden se ut om jag använde en databas då? Jag har skapat en databas som heter text.mdb med en räknare och ett fält som heter text!

Är det på rätt väg?

Det är väl på rätt väg. Du skulle ju också kunna ha bildnamnet i en databaskolumn så kan du ha lite flexiblare namn på bilderna om det skulle vara intressant.

ok, har nu skapat en till kolumn i databasen som heter images + bytt namn på databasen till images.mdb

Men hur kan koden på sidan se ut?

Nåt sånt här kanske:

<%
Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("images.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
    If IsEmpty(Request.Querystring("view")) Then 
               sql = "SELECT [text],images,id FROM images ORDER BY Images"
			   Set rsImages = Server.CreateObject("ADODB.Recordset")
               rsImages.Open SQL, conn, 3, 3 
			 
Do While Not rsImages.EOF 
			   
     Response.write "<a href=test.asp?category="&rsImages("id")&"><img src=pix/"& rsImages("images")&" border=0></a><br>"

rsImages.MoveNext
Loop

    else
               sql = "SELECT [text],images,id FROM images where id="&Request.Querystring("view")
			   Set rsImages = Server.CreateObject("ADODB.Recordset")
               rsImages.Open SQL, conn, 3, 3
    if rsImages.eof or rsImages.bof then
         Response.write "Ingen bild!"
    else
         Response.write "<img src=pix/"&rsImages("images")&"><br>"&_
"<a href=default.asp?category=images><img src=grafik/back.gif border=0></a>" 
end if
end if
rsImages.close
set rsImages = nothing
conn.close
set conn = nothing
%>