Jeg ønsker at lave en window.open funktion, nar der klikkes på
billedlink i vareoversigt.Popuppen skal have samme størrelse som
billede.
Som det er nu, åbnes der en ny siden med det pågældende billede,
når der klikkes på billedlink, dette ønskes ændre til en window
open. Hvorledes kan dette gøres i nedestående kode.
<a href='" & rs("billede") & "'>billede</a>
Jeg har fosøgt med følgende kode:
<a href='" & rs("billede") & "'
onclick="window.open('+this.href+','win');return
false">billede</a>
men får følgende fejl 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>"
-----------------------------------------------------------------
-----------------------------------------------------------------
-----------------------------------------------------------------
------------------------------------^
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>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials