skiftende billede fra access db

Dette er to koder jeg har lagt sammen på en´side.

Den første trækker de små billeder ud af access db
Den næste kode viser det store billede og text når man klikker på de små.

Dette fungere også fint, men man er nød til at ligge et id ind i linket "show.asp?id=1"

Der opstår naturligvis en fejl hvis jeg bare bruger show.asp

Det jeg ønsker er at det store billede først skal vise sig når man klikker på de små.
Dvs. når man går ind på show.asp skal det store billede være et tilfældigt udtræk af db som skifter hvergang siden genindlæses.
Men det skal stadig være muligt at klikke på de små og få det eget valgte billede frem mens man er på siden.
-Som skal erstatte det skiftende billede.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("gal.mdb")
Conn.Open DSN

strSQL = "SELECT stiLilleBillede, stiStortBillede, * FROM billedTabel"

Set rs = Conn.Execute(strSQL)

if rs.EOF then
Response.write "ingen billeder i databasen"
else
colPrRow = 3
colInRow = 0
response.write "<table width=""300"" border=""10"" align=""center"" bordercolor=""#ffffff"">"
do while NOT RS.EOF

if colInRow mod colPrRow = 0 then response.write "<tr>" end if
 
response.write "<td><a href='show.asp?id=" & rs("id") & "' target=''><img src='" & rs("stiLilleBillede") & "'style=border: 0px'></a></td>"

if colInRow mod colPrRow = 3 then response.write "</tr>" end if

colinRow = colInRow + 1
RS.MoveNext
loop
response.write "</table>"
end if


Conn.Close
Set Conn = Nothing

%>


<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("gal.mdb")
Conn.Open DSN

strSQL = "SELECT stiStortBillede, text, * FROM billedTabel WHERE id = " & Request.Querystring("id")

Set rs = Conn.Execute(strSQL)

If not rs.eof Then
  response.write "<img src=""" & rs("stiStortBillede") & """ alt=""""><br>"
response.write rs("text")
End If
Conn.Close
Set Conn = Nothing
%>