Window open i link til billedfil i database

hmm, er det meningen at popuppen skal have samme størelse som billedet, eller hvad ??

kan jo ikke rigtigt hjælpe dig uden respons!

skift:

response.write "<table border='1'width='80%' align='center'><Tr><td width='10%'>" & rs("navn") & "<td width='60%'>" & rs("beskrivelse") & "<td width='10%'>" & rs("pris") & " <td width='10%'><a href='" & rs("billede") & "'>billede</a><td><a href='vis-kurv.asp?mode=insert&varenr=" & rs("vareid") & "'>Køb</a></table>"

ud med:

response.write "<table border='1'width='80%' align='center'><Tr><td width='10%'>" & rs("navn") & "<td width='60%'>" & rs("beskrivelse") & "<td width='10%'>" & rs("pris") & " <td width='10%'><a href='" & rs("billede") & "' onclick="window.open('+this.href+','win');return false">billede</a><td><a href='vis-kurv.asp?mode=insert&varenr=" & rs("vareid") & "'>Køb</a></table>"

Tak for hurtig response, jo popuppen skal have den samme størrelse
som billedet. Jeg har indsat dit forslag, men får følgende fejlmelding ved start af window open:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/vis-vare.asp, line 67

response.write "<table border='1'width='80%' align='center'><Tr><td width='10%'>" & rs("navn") & "<td width='60%'>" & rs("beskrivelse") & "<td width='10%'>" & rs("pris") & " <td width='10%'><a href='" & rs("billede") & "' onclick="window.open('+this.href+','win');return false">billede</a><td><a href='vis-kurv.asp?mode=insert&varenr=" & rs("vareid") & "'>Køb</a></table>"
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^ ( ved Window open )

okay my mistake!

nedenstående burde fungere som det her: http://www.grunken.dk/exp/348799.html

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% ' Rettet 04-03-2003
Option Explicit
Response.Expires = 0
Dim Conn, rs
Dim strKriterie, strQuery
Dim intVaregruppeid

Set rs = Server.CreateObject("ADODB.Recordset")
' Hent Varegruppeid. Hvis der ikke overføres en Varegruppeid
' i URL'en sættes Varegruppeid til  1
if Len(Trim(Request.querystring("Varegruppeid"))) > 0 then
    intVaregruppeid = Trim(Request.querystring("Varegruppeid"))
    else
    intVaregruppeid = 1
end if %>

<%
set conn = server.createobject("ADODB.Connection")
Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../db/butik.mdb")
%>


<% ' Vælg alle varer fra den valgte varegruppe
strQuery = "SELECT * FROM vare WHERE Varegruppeid = " & intVaregruppeid & " "
strQuery = strQuery & "ORDER BY navn;"
'response.write strQuery & "<br>"
set rs = Conn.Execute (strQuery) %>
<html>

<head>
<title>V&aelig;lg vare</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL="stylesheet" HREF="test.css" TYPE="text/css">
<script language="javascript">
function muko(pic){
var streng= '\<script type="text/JavaScript"\>\n'
    streng+='function hest() {\n'
    streng+=' var pic=document.getElementById(\'stor\').src\n'
    streng+=' billede = new Image();\n'
    streng+=' billede.src = pic;\n'
    streng+=' var hojde = (billede.height+34)\n'
    streng+=' var bredde = (billede.width+6)\n'
    streng+=' var ph = screen.height/2-hojde/2\n'
    streng+=' var pv = screen.width/2-bredde/2\n'
    streng+=' self.resizeTo (bredde, hojde);\n'
    streng+=' self.moveTo (pv, ph);\n'
    streng+='}\n'
    streng+='\</script\>\n'
    streng+='<body onload=\"hest();\" style=\"margin: 0px;overflow: hidden;\">\n'
    streng+='<img src=\"'+pic+'\" Id=\"stor\">\n'
    streng+='</body>\n'
    streng+='</html>\n'

nyt = window.open('','win','height=100 width=100');

nyt.document.open();
nyt.document.write(streng);
nyt.document.close();
}
</script>
</head>
<body>


<BR><BR>

<p><form name="form1" method="post" action="vis-vare.asp">



<table border="1" width="80%" align="center"><tr><td width="10%">Varenr:<td width="60%">Beskrivelse:<td width="10%">Pris:
<td width="10%">Billede<td width="10%">Læg i kurv:</td>


</table>

<table>
<% ' Vis varerne fra den valgte varegruppe
rs.movefirst
do until rs.EOF

response.write "<table border='1'width='80%' align='center'><Tr><td width='10%'>" & rs("navn") & "<td width='60%'>" & rs("beskrivelse") & "<td width='10%'>" & rs("pris") & " <td width='10%'><a href='" & rs("billede") & "' onclick=""muko(this.href);return false"">billede</a><td><a href='vis-kurv.asp?mode=insert&varenr=" & rs("vareid") & "'>Køb</a></table>"


rs.MoveNext
loop
rs.close
set rs = nothing
%>


</table> 
</form>
<%
Conn.Close
Set Conn=Nothing
%>



</body>
</html>