CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

gittemejlhede Nybegynder

20. marts 2003 - 13:21 Der er 7 kommentarer og
1 løsning

open new window i en "do while" løkke ?

Kan man lave en open new window

<a href="#" onClick='MyWindow1=window.open('visButik.asp?id=" & RSbutik("sisID") & ")','MyWindow1','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=300,height=300,left=150,top=150'); return false;'>" & RSbutik("sisNavn") & "</a>

som ligger i en do while not løkke?

Er snart temmelig desperat for en løsning

Synes godt om

dk_akj Nybegynder

20. marts 2003 - 13:27 #1

ja da
<%
do while not rsbutik.eof
response.write "<a href='#' onClick='MyWindow1=window.open('visButik.asp?id=" & RSbutik("sisID") & ")','MyWindow1','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=300,height=300,left=150,top=150'); return false;'>" & RSbutik("sisNavn") & "</a>"
rsbutik.movenext
loop

%>

//akj

Synes godt om

gittemejlhede Nybegynder

20. marts 2003 - 13:44 #2

Ved du hvad, det virker bare ikke, er det ikke underligt. Jeg smider lige hele koden (noget er udkommenteret)

<%@Language=VBScript LCID=1030%><%Option Explicit%>
<%Response.Expires=0%>


<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>

<%
Dim strSQLbutik, RSbutik

strSQLbutik = "SELECT * FROM t_sis WHERE centerID=" & id & ";"
set RSbutik = DBconn.Execute(strSQLbutik)

%>
<link rel="StyleSheet" href="../../stylesheets/styleHome.css" type="text/css">

<BODY>
<TABLE width="735px" cellpadding="5" style="position:relative; right:-2px; top:-15px">
<TR>
<TD width="600px" valign="top">



</TD>
<TD width="140px" height="400px" bgcolor="#f5f4f5" valign="top" align="right"><H5>Butikker</H5>
<%
If not (RSbutik.BOF or RSbutik.EOF) then
RSbutik.Movefirst
Do while not RSbutik.EOF
Response.Write "<br><FONT SIZE='1' FACE='verdana' COLOR='#000000'><b><a href='#' onClick='MyWindow1=window.open('visButik.asp?id=" & RSbutik("sisID") & ")','MyWindow1','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes, resizable=yes,width=300,height=300,left=150,top=150'); return false;'>" & RSbutik("sisNavn") & "</a></b></font><BR><FONT SIZE='1' FACE='verdana' COLOR='#00000'>" & RSbutik("sisAdresse") & "<br>" & RSbutik("sisPostnr") & "  " & RSbutik("sisBynavn") & "</FONT><HR color='#009430' size='1px'>"

RSbutik.Movenext
Loop
End If

%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

please help. Jeg har deadline imorgen tidlig

Synes godt om

dk_akj Nybegynder

20. marts 2003 - 13:51 #3

hvad er det der ikke virker ?? Ligger det på nettet så jeg kan se det ??

//akj

Synes godt om

jensen_123 Nybegynder

20. marts 2003 - 19:51 #4

følger lige med

Synes godt om

gittemejlhede Nybegynder

20. marts 2003 - 20:09 #5

Jeg har brugt (igen) chromelessmetoden, men IE 6.0 og service pack et eller andet har fixet det bug der gjorde Chromeless muligt, derfor vil jeg gerne lave et almindeligt popupvindue der ikke fylder hele skærmen og ikke har værktøjslinjer etc, men jeg kan simpelthen ikke få L..... til at virke. Kig på www.transfusion.dk/poda/default.htm under "find forhandler" (indtast 4000)og klik på både se stærke tilbud... og butikoverskrifterne, så kan du se hvad jeg mener. det er kun visCenter-dokumentet det drejer sig om, så det paster jeg lige som det kan ses på www'en. Kommer du med en hurtig løsning - der virker - kan vi tale om hvordan jeg giver dig ekstra points.

<%@Language=VBScript LCID=1030%><%Option Explicit%>
<%Response.Expires=0%>


<HTML>
<HEAD>
<TITLE></TITLE>

<script language="javaScript" type="text/javascript" SRC="../../includes/pz_chromeless_2.1.js"></SCRIPT>

<script>
function openIT(MyQuery) {
theURL="visButik.asp?id='" + MyQuery + "'"
wname ="CHROMELESSWIN"
W=300;
H=300;
windowCERRARa = "../../images/faelles/close_a.gif"
windowCERRARd = "../../images/faelles/close_d.gif"
windowCERRARo = "../../images/faelles/close_o.gif"
windowNONEgrf = "../../images/faelles/none.gif"
windowCLOCK = "../../images/faelles/clock.gif"
windowREALtit = "Vis Butikinfo"
windowTIT = "   <font face='verdana'size='1'>Butiksinfo</font>"
windowBORDERCOLOR = "#009430"
windowBORDERCOLORsel = "#999999"
windowTITBGCOLOR = "#F5F4F5"
windowTITBGCOLORsel = "#333333"
openchromeless(theURL, wname, W, H, windowCERRARa, windowCERRARd, windowCERRARo, windowNONEgrf, windowCLOCK, windowTIT, windowREALtit , windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel)
}
function openIT(MyQuery1) {
theURL="visTilbud.asp?id='" + MyQuery1 + "'"
wname ="CHROMELESSWIN"
W=300;
H=300;
windowCERRARa = "../../images/faelles/close_a.gif"
windowCERRARd = "../../images/faelles/close_d.gif"
windowCERRARo = "../../images/faelles/close_o.gif"
windowNONEgrf = "../../images/faelles/none.gif"
windowCLOCK = "../../images/faelles/clock.gif"
windowREALtit = "Vis Butikinfo"
windowTIT = "   <font face='verdana'size='1'>Butiksinfo</font>"
windowBORDERCOLOR = "#009430"
windowBORDERCOLORsel = "#999999"
windowTITBGCOLOR = "#F5F4F5"
windowTITBGCOLORsel = "#333333"
openchromeless(theURL, wname, W, H, windowCERRARa, windowCERRARd, windowCERRARo, windowNONEgrf, windowCLOCK, windowTIT, windowREALtit , windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel)
}
</script>
</head>
</HEAD>
<%
Dim strSQLcenter, RScenter, id

id=Request.QueryString("id")
strSQLcenter = "SELECT * FROM t_center WHERE centerID=" & id & ";"
set RScenter = DBconn.Execute(strSQLcenter)

%>
<%
Dim strSQLbutik, RSbutik

strSQLbutik = "SELECT * FROM t_sis WHERE centerID=" & id & ";"
set RSbutik = DBconn.Execute(strSQLbutik)

%>
<link rel="StyleSheet" href="../../stylesheets/styleHome.css" type="text/css">

<BODY>
<TABLE width="735px" cellpadding="5" style="position:relative; right:-2px; top:-15px">
<TR>
<TD width="600px" valign="top">

<%
If not (RScenter.BOF or RScenter.EOF) then

RScenter.Movefirst
Do while not RScenter.EOF
Response.Write "<br>" &_
"<FONT SIZE='3' COLOR='#009430'><B>" & RScenter("navn") & "</B></FONT><BR><BR><IMG SRC=" & RScenter("billedstiPortraet")& " BORDER=1><BR><BR><FONT SIZE='1' FACE='verdana' COLOR='#000000'>" & RScenter("beskrivelse") & "<BR><BR><a href=java script:openIT(" & RScenter("centerID") & ");><B>Se stærke tilbud fra "& RScenter("navn") &"</a></B><BR><BR><HR size='1' color='#000000'>" & RScenter("adresse") & " | " & RScenter("postnr") & "  " & RScenter("bynavn") & " | Tel. " & RScenter("telefon") & " | Fax " & RScenter("fax") & " | <a href='mailto:" & RScenter("email") & "'>" & RScenter("email") & "</a>.</FONT>"

RScenter.Movenext
Loop
End If

%>

</TD>
<TD width="140px" height="400px" bgcolor="#f5f4f5" valign="top" align="right"><H5>Butikker</H5>
<%
If not (RSbutik.BOF or RSbutik.EOF) then
RSbutik.Movefirst
Do while not RSbutik.EOF
Response.Write "<br>" &_
"<FONT SIZE='1' FACE='verdana' COLOR='#000000'><b><a href=java script:openIT(" & RSbutik("sisID") & ");>" & RSbutik("sisNavn") & "</a></b></font><BR><FONT SIZE='1' FACE='verdana' COLOR='#00000'>" & RSbutik("sisAdresse") & "<br>" & RSbutik("sisPostnr") & "  " & RSbutik("sisBynavn") & "</FONT><HR color='#009430' size='1px'>"

RSbutik.Movenext
Loop
End If

%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

Synes godt om

dk_akj Nybegynder

21. marts 2003 - 08:29 #6

Her er et lille eksempel på hvordan du gør.

Der kræves 2 filer. newwin.asp og popup.asp



<html>

<head>
<SCRIPT LANGUAGE="JavaScript">

function newWindow(ww,wh,something,wtitle) {
var wsize = "WIDTH=" + ww + ",HEIGHT="+ wh +""
window.open("popup.asp?something=" + something + "&wtitle=" + wtitle ,"NewWindow",wsize)
}

</SCRIPT>

</head>
<body>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>

<%
i = 1

do while not i > 20
if count mod 6 = 0 then
response.write "</tr>"&vbcrlf&"<tr><td colspan = 6 >&nbsp</td></tr><tr>"
end if

response.write "<td>" ' bredde ' højde ' et argument ' popup'ens titel
response.write "<a style=cursor:hand onClick=newWindow(" & 400 & "," & 400 & ",'" & i & "','" & i * 5 &"');>" & i & "</a>"
response.write "</td>"

count = count + 1
i = i + 1
loop

%>

</tr>
</table>

</body>
</html>





<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title><% response.write request.querystring("wtitle") %></title>
</head>

<body>

<%
response.write "something = " & request.querystring("something") & "<br>"
response.write "titel = " & request.querystring("wtitle")
%>

</body>
</html>



Her kan du se det "in action" www.swk-surf.dk/newwin.asp

//akj

Synes godt om

gittemejlhede Nybegynder

21. marts 2003 - 11:04 #7

Jeg synes at dit eksempel er det bedste bud, som jeg enddnu har set derfor har jeg klikket accepter og håber på at der er sker noget når jeg klikker udfør så du får dine points

Synes godt om

dk_akj Nybegynder

21. marts 2003 - 11:07 #8

Tak for pts. Du skriver bare i denne tråe hvis du har yderligere spørgsmål.

//akj

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

05/07

Dynamics-kæmpen Cepheo leverer røde tal i første regnskab som selvstændigt selskab

05/07

Store sager fra BMW i5: Alt er bare perfekt afstemt her

05/07

Nørgaard: Derfor bruger fattigrøvene AI meget mere end de rige svin

05/07

IBM-direktør efter blodrødt regnskab: “Vi er godt på vej ud af det stormvejr, som ramte os i 2023”

05/07

Kom i problemer efter ransomware-angreb: Nu køber rigmand Christian Stadil IT-Hotellets bunker

05/07

Stiftere overvejer at gøre Flatpay til en bank – krav om compliance er en stopklods

05/07

Rejsekort reducerer kraftigt den tid, som selskabet vil beholde dine lokationsdata i: Vil nu slette dem efter få måneder

05/07

Hackerangreb på OpenAI: Selskabets designs af AI-teknologi stjålet

05/07

Efter skatte-dom: IBM Danmark sætter 163 millioner kroner til side til ekstra skatte-regning i Danmark

05/07

KMD ændrer i sit ikoniske logo efter 17 år

05/07

Klar tale til Tesla og SAP: Snart skal du tale med dit ERP-system

Vis flere artikler

IT-JOB

Capgemini Danmark A/S

Projektleder med sundheds-IT erfaring

ATP

It-tester til test af samfundskritiske digitale løsninger i ATP's forretning

Unik System Design A/S

Driftskonsulent for Hostingcenter

Udviklings- og Forenklingsstyrelsen

Business Analysts til samfundsvigtige it-projekter

Udviklings- og Forenklingsstyrelsen

Motiverende chefkonsulent til souscheffunktion med ansvar for IT- og Sikkerhedsjura i Udviklings- og Forenklingsstyrelsen

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 00:30	Fejl i Ark Af Morten_Jepsen i Excel
I går 16:56	Kan min mobil hackes Af SBS i Mobiltelefoner
I går 12:56	Forskellige billeder til forskellige skærme ? Af snedker1 i Mac
I går 11:56	Om brug af funktionen sumprodukt Af Erik R i Excel
05/0722:41	Hjælp til at skrive opgave Af Needhelp i Småopgaver