Tjohej.
Jag skickar med Querystrings från mina länkar såhär:

&hamta=<% response.Write(rs("LankSkriv")) %>">
<% response.write(rs("LankSkriv")) %>

På sidan visalank.asp har jag en huvudbild, lite text och ett tumnagelsgalleri.
I det här galleriet vill jag ha olika storlekar på bilderna beroende på om det är stående eller liggande bildgalleri.
Exempelvis har jag ett galleri med bilder på skåp och ett galleri med soffor.
Galleriet med skåp vill jag ha stående tumnaglar till och galleriet med soffor liggande.
Jag har försökt såhär:

<%

Dim lank, hamta
lank = Request.QueryString("link")	
hamta = Request.QueryString("hamta")

Dim bredd, hojd
If hamta = "Skåp" Then
bredd = "68" And hojd = "100"
Else
bredd = "100" And hojd = "68"
End If			
Dim objFolder, objSubFolder, objFile
						
With Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = .getFolder(Server.MapPath("/pics/" & hamta &""))
%>
						
<table width="504" cellpadding="0" cellspacing="0">
  <tr>
<%	
x=0
For each objFile in objFolder.Files
if x=5 then
									
response.write "</tr><tr>"
response.write "<td width=""100"" height=""20"" valign=""middle"">"
 response.write "<a target=""_blank"" href=""/mobler/gallery.asp" & "?mapp=" & hamta & "&pic=" & objFile.Name & """>"
response.write "<img src=""/pics/" & hamta & "/" & objFile.Name &""" width=" & bredd & " height=" & hojd & " border=""0"" />"
response.write "</a>"
response.write "  </td>"

x=0

else
		
response.write "<td width=""100"" height=""20"" valign=""middle"">"
response.write "<a target=""_blank"" href=""/mobler/gallery.asp" & "?mapp=" & hamta & "&pic=" & objFile.Name & """>"
response.write "<img src=""/pics/" & hamta & "/" & objFile.Name &""" width=" & bredd & " height=" & hojd & " border=""0"" />"
response.write "    </a>"
response.write "  </td>"

end if

x=x+1

Next
response.write "</tr>"
Set objFolder = Nothing
End With
%>

Det är alltså i

response.write "<img src=""/pics/" & hamta & "/" & objFile.Name &""" width=" & bredd & " height=" & hojd & " border=""0"" />"

som jag vil hämta bredd och höjdvärden från

If hamta = "Skåp" Then
bredd = "68" And hojd = "100"
Else
bredd = "100" And hojd = "68"
End If

Svara på mitt eget inlägg...
Jag hade ju goofat rejält i If-satsen:

Dim bredd, hojd
 If hamta = "Skåp" Then
 bredd = 68
 hojd = 100
 Else
 bredd = 100
 hojd = 68
End If