undersøge width/height på billed.

needenstående kode udskriver billederne fint, dog er der nogle billeder som er taget med kameraet på højkant. Derfor kunne det være dejlig hvis den på billeder hvor den kan se at højden er større end breden ændre størrelsen på udskriften i bunden, width=139 height=180.

nogen forslag, måske det kan gøres ved javascript hvis ikke det kan i asp




<table border="0" class="SubFram"><tr><td>
<%
'------------------------------------------------
'henter info om siden
'------------------------------------------------
page = trim(Request.QueryString("page"))
start = trim(Request.QueryString("start"))

'------------------------------------------------
'Åbner Filsystem
'------------------------------------------------
strPathInfo = Request.ServerVariables("APPL_PHYSICAL_PATH")
folder = "swebbilleder/" & Request.QueryString("src")
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFolder = fs.GetFolder(strPathInfo & folder)
Set objFolderContents = objFolder.Files

'------------------------------------------------
'grund variabler
'------------------------------------------------
row_count = 0
row = 1
max_row = 3
count = 1
If NOT start <> "" then
Start = 1
End If
%>

<p align=center>

<%
'------------------------------------------------
'Info variabler
'------------------------------------------------

info_page = 0
info_page_count = 0
info_Count = 0

'------------------------------------------------
'Info Script, udregner og udskriver info til siden
'------------------------------------------------
If page <> "" then
response.write "side <a href='index.asp'>1</a> "
else
Response.write "side 1 "
End If

For Each objFileItem in objFolderContents
info_Count = info_Count + 1
info_page = info_page + 1
if info_page = 9 then
info_page_count = info_page_count + 1
info_page = 0
End If
If info_page = 0 then
If trim(info_page_count + 1) = trim(page) then
response.write info_page_count + 1 & " "
Else
response.write "<a href='galeri.asp?src=" & Request.QueryString("src") & "&start=" & info_count & "&page=" & info_page_count + 1 & "'>" & info_page_count + 1 & "<a> "
End If
End If
Next
Response.write "<br>Der er ialt <b>" & (info_Count) & "</b> billeder"
if (info_page_count) * 9 = info_count then
Response.write " på <b>" & (info_page_count) & "</b> sider<br>"
Else
Response.write " på <b>" & (info_page_count) + 1 & "</b> sider<br>"
End If
%>
<div align="center">
<table border="0" cellspacing="3" cellpadding="3">
  <tr>

<%
For Each objFileItem in objFolderContents

If objFileItem.Name = "index.asp" then
Else
 
  If CLng(count) < CLng(start) then
  count = count + 1
  Else

  If CLng(row) => CLng(max_row) And row_count = 3 then
  Else
 
 
 
 
  If row_count > 2 then
    response.write "<tr>"
    row_count = 0
    row = row + 1
  End If

 
  Response.write " <td><a href='"
  Response.Write(folder & "/" & objFileItem.Name)
  Response.write "'><img border=0 src='" & (folder & "/" & objFileItem.Name) & "' alt='" & (folder & "/" & objFileItem.Name) & "' width=239 height=180></a><br>" & objFileItem.Name
  row_count = row_count + 1   
  count = count + 1
End If
End If
End If
Next
%>