Window open i link til billedfil i database
Jeg ønsker at lave en window.open funktion, nar der klikkes på billedlink i vareoversigt.Som det er nu, åbnes der en ny siden med det pågældende billede, når der klikes på billedlink, dette ønskes ændre til en window open. Hvorledes kan dette gøres i nedestående kode.
<a href='" & rs("billede") & "'>billede</a>
Den hele asp fil kan ses her:
<%@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>
<!-- Minus AutoDato -->
<title>Væ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">
</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") & "'>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>
