CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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
Avatar billede 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
Avatar billede 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%>
<!--#INCLUDE FILE="..\..\Includes\DBconn_open.asp"-->

<HTML>
<HEAD>
<TITLE></TITLE>
</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><BR><B>Stærke tilbud fra "& RScenter("navn") &":</B><BR><BR>Tilbud 1:<BR><BR>Tilbud 2:<BR><HR size='1' color='#000000'>" & RScenter("adresse") & "&nbsp;&#124;&nbsp;" & RScenter("postnr") & "&nbsp;&nbsp;" & RScenter("bynavn") & "&nbsp;&#124;&nbsp;Tel.&nbsp;" & RScenter("telefon") &  "&nbsp;&#124;&nbsp;Fax&nbsp;" & RScenter("fax") & "&nbsp;&#124;&nbsp;<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='#' 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") & "&nbsp;&nbsp;" & 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
Avatar billede 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
Avatar billede jensen_123 Nybegynder
20. marts 2003 - 19:51 #4
følger lige med
Avatar billede 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%>
<!--#INCLUDE FILE="..\..\Includes\DBconn_open.asp"-->

<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             = "&nbsp;&nbsp;&nbsp;<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             = "&nbsp;&nbsp;&nbsp;<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") & "&nbsp;&#124;&nbsp;" & RScenter("postnr") & "&nbsp;&nbsp;" & RScenter("bynavn") & "&nbsp;&#124;&nbsp;Tel.&nbsp;" & RScenter("telefon") &  "&nbsp;&#124;&nbsp;Fax&nbsp;" & RScenter("fax") & "&nbsp;&#124;&nbsp;<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") & "&nbsp;&nbsp;" & RSbutik("sisBynavn") & "</FONT><HR color='#009430' size='1px'>"

    RSbutik.Movenext
    Loop
    End If


    %>
    </TD>
</TR>
</TABLE>
</BODY>
</HTML>
Avatar billede 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

<!-- start newwin.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>

<!-- slut newwin.asp -->

<!-- start popup.asp -->

<!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>

<!-- slut popup.asp -->

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

//akj
Avatar billede 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
Avatar billede 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
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
Lost focus Af bsn i ASP 0 07/11/202415:34 -
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:09 Billedoverførsel Af Laurids i iOS, iPhone & iPad
I går 13:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I går 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I går 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I går 11:27 renteberegning Af Pil i Excel
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Governance, Risk & Compliance: Knyt stærke bånd mellem forretning og sikkerhed
Styrk compliance, sikkerhed og overblik med ét hug
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »