Avatar billede no_doubt Nybegynder
01. oktober 2002 - 19:42 Der er 84 kommentarer og
1 løsning

link til nyt vindue med stort billede

if rs("billede") <> "" then
response.write "<img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10"">"
else
Response.write "Intet"
end if

Hvordan kan jeg få lavet dette om til et link hvor jeg på en anden side skal have et vindue som tilpasser sig billede ?
Avatar billede Slettet bruger
01. oktober 2002 - 19:51 #1
Vinduet kan du jo bare lave med


<script language="javascript">

function vindue(url)
{
window.open(url, "", "scroll, resizable, z-index=1, width=5, height=5, top=0,left=0")
}
</script>

response.write "<a href=""java script:vindue(popup.html)""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"

Dette vindue kan du så tilpasse til billedets størrelse med dette:

<html>
<head>
    <title>Untitled</title>
   
<script language="JavaScript">
        function ResizeWin () {
            strWidth = document.ProductPic.width+60
            strHeight = document.ProductPic.height+170
            if (navigator.appVersion.indexOf("3.") == -1 ) {
                if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
                if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
                window.resizeTo(strWidth,strHeight)
            }
        }

</script>
</head>

<body OnLoad="ResizeWin();">

<a href="java script:window.close()"><img src="billede.gif" border="0" name="ProductPic"></a>

</body>
</html>
Avatar billede medions Nybegynder
01. oktober 2002 - 19:55 #2
<script language="javascript">

function vindue(url)
{
window.open(url, "", "scroll, resizable, z-index=1, width=5, height=5, top=0,left=0")
}
</script>

if rs("billede") <> "" then
response.write "<a href=""java script:vindue('" & rs("billede") & "')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
else
Response.write "Intet"
end if

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 19:55 #3
jamen jeg skal på en eller anden måde have billede navnet med over i popuppen så.
Avatar billede medions Nybegynder
01. oktober 2002 - 19:57 #4
<script language="javascript">

function vindue(url)
{
window.open(url, "<%= rs("billede") %>", "scroll, resizable, z-index=1, width=5, height=5, top=0,left=0")
}
</script>

if rs("billede") <> "" then
response.write "<a href=""java script:vindue('" & rs("billede") & "')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
else
Response.write "Intet"
end if

Nu får popuppen titlen som billedet hedder!

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 20:02 #5
invalid argument siger den..
Avatar billede medions Nybegynder
01. oktober 2002 - 20:03 #6
lol hvor henne i koden?

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 20:04 #7
koden ser sådan her ud..

<script language="JavaScript"><!--
function vindue(url)
{
window.open(url, "<%= rs("billede") %>", "scroll, resizable, z-index=1, width=5, height=5, top=0,left=0")
}
// --></script><%if rs("billede") <> "" then
response.write "<a href=""java script:vindue('" & rs("billede") & "')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
else
Response.write "Intet"
end if%>

Det er i et loop
Avatar billede medions Nybegynder
01. oktober 2002 - 20:04 #8
Hmm prøv lgie sådan her:

<script language="javascript">

function vindue(url)
{
window.open(url, "<%= rs("billede") %>", "scroll, resizable, z-index=1, width=5, height=5, top=0,left=0")
}
</script>

if rs("billede") <> "" then
response.write "<a href=""java script:vindue(" & rs("billede") & ")""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
else
Response.write "Intet"
end if

//>Rune
Avatar billede medions Nybegynder
01. oktober 2002 - 20:05 #9
<script language="JavaScript"><!--
function vindue(url)
{
window.open(url, "<%= rs("billede") %>", "scroll, resizable, z-index=1, width=5, height=5, top=0,left=0")
}
// --></script>

JavaScript-delen som er ovenfor må ikke indgår i din løkke, den skal være mellem dine HEAD'er tags!

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 20:08 #10
henrik is undefinied
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 20:10 #11
så loader den intet på siden, og melder "Done"
Avatar billede medions Nybegynder
01. oktober 2002 - 20:18 #12
Hmmm hvor i scriptet er det den melder fejl?

//>Rune
Avatar billede medions Nybegynder
01. oktober 2002 - 20:18 #13
if rs("billede") <> "" then
response.write "<a href=""java script:vindue('" & rs("billede") & ".gif')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
else
Response.write "Intet"
end if

Prøv lige med det her...

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 20:19 #14
den melder ingen fejl. skal jeg prøve at sende det ?
Avatar billede medions Nybegynder
01. oktober 2002 - 20:20 #15
øhh sende det?

//>Rune
Avatar billede medions Nybegynder
01. oktober 2002 - 20:21 #16
Hmm prøv lige at skriv:

<%
  Response.Write(rs("billede"))
%>

og giv mig resultatet!
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 20:26 #17
Hvis jeg smider den der javascript del ind, kan den ikke loade side.
Og hvis jeg kigger kilden på den side den ikke viser noget på står der:

<html>

<head>
<title>Babe-O-meter</title>

</head>
<script language="JavaScript"><!--
function vindue(url)
{
window.open(url, " <font face="Arial" size=2>
<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a000d'</font>
<p>
<font face="Arial" size=2>Type mismatch: 'rs'</font>
<p>
<font face="Arial" size=2>/default1.asp</font><font face="Arial" size=2>, line 10</font>

Resultatet er : henrik.jpg
Avatar billede medions Nybegynder
01. oktober 2002 - 20:48 #18
Ahh, det er fordi dit Recordset skal være ovenover din klient script kode!

fx.

databaseconnection
...
<head>
klientscriptkode
</head>
<body>
...

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 20:57 #19
den vil ikke, har du en mail ?
Avatar billede medions Nybegynder
01. oktober 2002 - 20:59 #20
rune@medions.dk

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 21:02 #21
Nej nu melder den ikke fejl mere, men den viser ikke billede i den størrelse det oprindeligt har
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 21:11 #22
har sendt siden
Avatar billede medions Nybegynder
01. oktober 2002 - 21:33 #23
Kommer der en popup frem?

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 21:36 #24
Ja
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 21:43 #25
men der kommer kun et meget lille billede i popuppen
Avatar billede medions Nybegynder
01. oktober 2002 - 21:43 #26
Og i den viser den heller ikke billedet?

//>Rune
Avatar billede medions Nybegynder
01. oktober 2002 - 21:49 #27
Det er vel et lille rødt kryds der er i det billede...
-Det er fordi dit billede ikke ligger i samme dir som scriptet!

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 21:53 #28
nej det billede der bliver vist er bare mega lille
Avatar billede medions Nybegynder
01. oktober 2002 - 21:58 #29
LOL sorry, overskriv din Script kode med dette:

<script language="JavaScript">
function vindue(url)
    {
        window.open(url, "<%= rs("billede") %>", "scroll, resizable, z-index=1,top=0,left=0")
    };
</script>

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:02 #30
Ja så får jeg en full screen, det skal være en rude der passer..
Avatar billede medions Nybegynder
01. oktober 2002 - 22:03 #31
Hmm fair nok... Så ret det lige tilbage igen..!

Men billedt, skal det være størrer end det allerede er unresized eller hvad har du tænkt dig?

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:05 #32
det har forskellige størrelser, og bliver vidst i 10*10 men skal vises i deres oprindelige alle sammen.
Avatar billede medions Nybegynder
01. oktober 2002 - 22:09 #33
Det er deres oprindelige i det du linker direkte til filen! -Tjek lige efter om det er den rigtige fil du linker til!

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:11 #34
det er det
Avatar billede medions Nybegynder
01. oktober 2002 - 22:14 #35
Det kan ikke lade sig gøre! -For et billede vil altid vise sig  sin oprindelige størrelse i det du linker til det!

-Det må være noget andet galt!

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:19 #36
Begge scripts viste billedet på hver sin måde, men kun det sidste i fuld størrelse, men havde dog en fullscreen med på slæb *g*
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:21 #37
hvis jeg trækker i vinduet bliver billedet original størrelse men hvorfor så det micro vindue den åbner ?
Avatar billede medions Nybegynder
01. oktober 2002 - 22:27 #38
Prøv lige med dette:

<script language="JavaScript">
function vindue(url)
    {
        window.open(url, "<%= rs("billede") %>", "scroll, resizable, width=30, height=20, z-index=1,top=0,left=0")
    }

    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }

</script>
</head>

<body OnLoad="ResizeWin();">
<%
    If rs("billede") <> "" Then
        Response.Write "<a href=""java script:vindue('" & rs("billede") & ".gif')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
        Session("billede") = rs("billede")
    Else
        Response.Write "Intet"
    End If
%>

<a href="java script:window.close()"><img src="<% Respons.Write(Session("billede")) %>" border="0" name="ProductPic"></a>

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:31 #39
Hvor vil du have de ting ?
Avatar billede medions Nybegynder
01. oktober 2002 - 22:32 #40
Ok, glem det overnover

Opret en ny fil der hedder ShowPicture.asp
Indsæt dette i den nye fil

<html>
<head>
<script language="JavaScript">
    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }
</script>
</head>

<body OnLoad="ResizeWin();">
    <a href="java script:window.close()"><img src="<% Response.Write(Session("billede")) %>" border="0" name="ProductPic"></a>
</body>
</html>

og det her i det nuværende dokument:

<script language="JavaScript">
function vindue(url)
    {
        window.open(url, "ShowPicture.asp", "scroll, resizable, z-index=1,top=0,left=0")
    }
</script>
<%
    If rs("billede") <> "" Then
        Response.Write "<img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
        Session("billede") = rs("billede")
    Else
        Response.Write "Intet"
    End If
%>

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:38 #41
nu er det jo ikke et link
Avatar billede medions Nybegynder
01. oktober 2002 - 22:42 #42
Sorry... så prøv lgie med denne:

<script language="JavaScript">
function vindue(url,picture)
    {
        window.open(url, picture, "scroll, resizable, z-index=1,top=0,left=0")
    }
</script>
<%
    If rs("billede") <> "" Then
        Response.Write ""<a href=""java script:vindue('ShowPicture.asp','" & rs("billede") & "')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
        Session("billede") = rs("billede")
    Else
        Response.Write "Intet"
    End If
%>

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:46 #43
Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/default1.asp, line 188

loop

Hmmm
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:48 #44
nej sorry denne:
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/default1.asp, line 308

Response.Write ""<a href=""java script:vindue('ShowPicture.asp','" & rs("billede") & "')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
--------------------^
Avatar billede medions Nybegynder
01. oktober 2002 - 22:49 #45
<html>

<head>
<title>Babe-O-meter</title>
<% Response.buffer = true %>
<%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../1q/db.mdb")%>
</head>
<%
If Not Session("lvl") <> "" THEN
Response.redirect "default.asp"
End If

If request.querystring("action") = "Disconnect" THEN
Session.abandon
Response.redirect "default.asp"
End If
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("db.mdb")
%>
<%
sSQL = "SELECT [FuldeNavn] as Bruger, lvl FROM Brugere WHERE lbnr = " & Session("lbnr")
ssSQL = "SELECT [Password] as pws, lvl FROM Brugere WHERE lbnr = " & Session("lbnr")


Set RSlogin = Server.CreateObject("ADODB.RecordSet")
RSlogin.Open sSQL, Conn, 3,3
%>
<script type="text/javascript">

function beregn( frmObj ) {
var t1 = parseInt( "0"+frmObj.patter.value, 10 );
var t2 = parseInt( "0"+frmObj.roev.value, 10 );
var t3 = parseInt( "0"+frmObj.krop.value, 10 );
var t4 = parseInt( "0"+frmObj.cme.value, 10 );
frmObj.samlet.value = (t1 +t2 +t3 +t4)/4;
}; //end beregn( HTML Form objekt )

</script>


<body>

<p align="center"><big><font face="Arial"><strong>Babe-O-meter</strong></font></big></p>
<div align="center"><center>

<table border="0" width="482" cellpadding="0" cellspacing="1" bordercolor="#000000">
  <tr>
    <strong><td valign="middle" width="160" bordercolor="#000000"
    style="border: 1px solid rgb(0,0,0)" bgcolor="#A0B3C8"><p align="center"></strong><small><font
    face="Arial"><%=RSlogin("Bruger")%></font></small> </td>
    <td valign="middle" width="161" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)"
    bgcolor="#A0B3C8"><p align="center"><a href="default1.asp?Action=Disconnect"
    style="color: rgb(0,0,0)"><font color="#000000" face="Arial"><small>Tryk for at logge dig
    af</small></font></a></td>
    <td valign="middle" width="161" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)"
    bgcolor="#A0B3C8"><p align="center"><small><font face="Arial">Status: <%=RSlogin("lvl")%>/4</font></small></td>
  </tr>
</table>
</center></div>

<p align="center"><font face="Arial"><strong><br>
</strong></font><!--webbot bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<%
'Tjek om form er send til seid så gem i databasen:
if request.servervariables("REQUEST_METHOD") = "POST" then
 
  billede = Replace(Request.Form("billede"),"'","''")
  fornavn = Replace(Request.Form("fornavn"),"'","''")
  mellemnavn = Replace(Request.Form("mellemnavn"),"'","''")
  efternavn = Replace(Request.Form("efternavn"),"'","''")
  alder = Replace(Request.Form("alder"),"'","''")
  klasse = Replace(Request.Form("klasse"),"'","''")
  samlet = Replace(Request.Form("samlet"),"'","''")
  patter = Replace(Request.Form("patter"),"'","''")
  roev = Replace(Request.Form("roev"),"'","''")
  krop = Replace(Request.Form("krop"),"'","''")
  cme = Replace(Request.Form("cme"),"'","''")
  aksp = Replace(Request.Form("aksp"),"'","''")
  kommentar = Replace(Request.Form("kommentar"),"'","''")

sql = "INSERT INTO barometer (billede, fornavn, mellemnavn, efternavn, alder, klasse, samlet, patter, roev, krop, cme, aksp, kommentar) VALUES ('" & billede & "',  '" & fornavn & "',  '" & mellemnavn & "',  '" & efternavn & "',  '" & alder & "',  '" & klasse & "',  '" & samlet & "',  '" & patter & "',    '" & roev & "',  '" & krop & "',  '" & cme & "',    '" & aksp & "',    '" & kommentar & "')"
Conn.execute(sql)
end if%>
<strong><a </tr>
<html>

<head>
<title></title>
</head>

<body>

<form action="default1.asp" method="post">
  <div align="center"><center><table border="1" bgcolor="#A0B3C8" bordercolor="#000000"
  height="71" width="981">
    <tr>
      <td width="117" height="10" align="center"><small><font face="Arial">Billede</font></small></td>
      <td width="74" height="10" align="center"><div align="center"><center><p><small><font
      face="Arial">Fornavn</font></small></td>
      <td width="74" height="10" align="center"><small><font face="Arial">Mellemnavn</font></small></td>
      <td width="74" height="10" align="center"><small><font face="Arial">Efternavn</font></small></td>
      <td width="51" height="10" align="center"><small><font face="Arial">Alder</font></small></td>
      <td width="51" height="10" align="center"><small><font face="Arial">Klasse</font></small></td>
      <td width="51" height="10" align="center"><small><font face="Arial">Samlet</font></small></td>
      <td width="51" height="10" align="center"><small><font face="Arial">Patter</font></small></td>
      <td width="52" height="10" align="center"><small><font face="Arial">Røv</font></small></td>
      <td width="52" height="10" align="center"><small><font face="Arial">Krop</font></small></td>
      <td width="52" height="10" align="center"><small><font face="Arial">Charme</font></small></td>
      <td width="52" height="10" align="center"><small><font face="Arial">AKSP</font></small></td>
      <td width="200" height="10" align="center"><small><font face="Arial">Kommentar</font></small></td>
    </tr>
    <tr align="center">
      <td width="117" height="5" align="center"><small><input type="text" name="billede"
      size="12" tabindex="1"></small></a></td>
      <td width="74" height="5" align="center"><small><a </tr><input type="text" name="fornavn"
      size="6" tabindex="2"></a></small></td>
      <td width="74" height="5" align="center"><small><a </tr><input type="text"
      name="mellemnavn" size="6" tabindex="3"></a></small></td>
      <td width="74" height="5" align="center"><small><a </tr><input type="text"
      name="efternavn" size="6" tabindex="4"></a></small></td>
      <td width="51" height="5" align="center"><small><a </tr><input type="text" name="alder"
      size="3" tabindex="4"></a></small></td>
      <td width="51" height="5" align="center"><small><a </tr><input type="text" name="klasse"
      size="3" tabindex="5"></a></small></td>
      <td width="51" height="5" align="center"><small><a </tr><input type="text" name="samlet"
      value onfocus="this.blur();" readonly size="3"></a></small></td>
      <td width="51" height="5" align="center"><small><a </tr><input type="text" name="patter"
      value onblur="beregn(this.form);" size="3" tabindex="6"></a></small></td>
      <td width="52" height="5" align="center"><small><a </tr><input type="text" name="roev"
      value onblur="beregn(this.form);" size="3" tabindex="7"></a></small></td>
      <td width="52" height="5" align="center"><small><a </tr><input type="text" name="krop"
      value onblur="beregn(this.form);" size="3" tabindex="8"></a></small></td>
      <td width="52" height="5" align="center"><small><a </tr><input type="text" name="cme"
      ovalue onblur="beregn(this.form);" size="3" tabindex="9"></a></small></td>
      <td width="52" height="5" align="center"><small><a </tr><input type="text" name="aksp"
      size="3" tabindex="10"></a></small></td>
      <td width="200" height="5" align="center"><textarea rows="2" name="kommentar" cols="20"></textarea></td>
    </tr>
    <tr align="center">
      <td width="975" height="4" align="center" colspan="13"></strong><small><a </tr><input
      type="submit" value="Gem" name="B1"></a></small></td>
    </tr>
  </table>
  </center></div><a </tr><small>
</form>
<% end if %>
</small></a><!--webbot bot="HTMLMarkup"
endspan --></p>

<p align="center"><%
set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../1q/db.mdb")
strSQL = "select * from barometer"
Set rs = Conn.Execute(strSQL)

%>
<script language="JavaScript">
function vindue(url,picture)
    {
        window.open(url, picture, "scroll, resizable, z-index=1,top=0,left=0")
    }
</script>
<strong></p>
<div align="center"><%
' Nedenstående tabel vises kun hvis der er klikket på et link og sendt id med.

If request.querystring("id") <> "" Then

Id = request.querystring("id")

strSQL = "select * from barometer where id = "& Id &""
Set Idrs = Conn.Execute(strSQL)
%>
<div align="center"><center>

<table border="0" width="50%" cellpadding="0" cellspacing="1" bordercolor="#000000">
  <tr>
    <td valign="middle" width="932" bordercolor="#000000" style="border: 1px solid rgb(0,0,0)"
    bgcolor="#A0B3C8"><small><font face="Arial"><% do while not Idrs.EOF %> <!--webbot bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =Idrs("fornavn") & "&nbsp;" & IDrs("mellemnavn") & "&nbsp;" & Idrs("efternavn")& ":" & "<br>" & Idrs("kommentar")%>
<% Else %>
<% Response.Write "Hvordan er du havnet her" & "&nbsp;" & RSlogin("Bruger") & "&nbsp;" & "der er noget, men ikke for dig"%>
<% end if %><!--webbot
    bot="HTMLMarkup" endspan --> <%  Idrs.movenext %> <% loop %></font></small></strong></td>
  </tr>
</table>
</center></div>

<p>&nbsp;</p>
<small><%End if%>
</div><div align="center"><center>

<table border="1" width="918" bgcolor="#A0B3C8" bordercolor="#000000" height="71">
  <tr>
    <td width="68" align="center" height="16" valign="middle"><p align="center"></small><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<small><font face="Arial">Billede</font></small>
<% Else %>
<small><font face="Arial">Billede</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --><%
order = request.querystring("sort")
if order = "alder" then
strSQL = "Select * From barometer order by alder DESC"
elseif order = "samlet" then
strSQL = "Select * From barometer order by samlet DESC"
elseif order = "patter" then
strSQL = "Select * From barometer order by patter DESC" 
elseif order = "roev" then
strSQL = "Select * From barometer order by roev DESC"
elseif order = "krop" then
strSQL = "Select * From barometer order by krop DESC"
elseif order = "charme" then
strSQL = "Select * From barometer order by cme DESC"
elseif order = "klasse" then
strSQL = "Select * From barometer order by klasse ASC"
elseif order = "fornavn" then
strSQL = "Select * From barometer order by fornavn ASC"
elseif order = "mellemnavn" then
strSQL = "Select * From barometer order by mellemnavn ASC"
elseif order = "efternavn" then
strSQL = "Select * From barometer order by efternavn ASC"
elseif order = "aksp" then
strSQL = "Select * From barometer order by aksp DESC"
else
strSQL = "select * from barometer"
end if
Set rs = Conn.Execute(strSQL)
%> </td>
    <td width="229" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<p><font face="Arial" color="#000000"><small><a href="default1.asp?sort=fornavn"
style="color: rgb(0,0,0)">Fornavn</a> - <a href="default1.asp?sort=mellemnavn"
style="color: rgb(0,0,0)">Mellemnavn</a> - <a href="default1.asp?sort=efternavn"
style="color: rgb(0,0,0)">Efternavn</a></small></font>
<% Else %>
<small><font face="Arial">
<p>Navn - Mellemnavn - Efternavn</font></small> <% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="58" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=alder"><font
    face="Arial" color="#000000"><small>Alder</small></font></a>
<% Else %>
<small><font face="Arial">Alder</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="58" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=klasse"><font
    face="Arial" color="#000000"><small>Klasse</small></font></a>
<% Else %>
<small><font face="Arial">Klasse</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="58" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=samlet"><font
    face="Arial" color="#000000"><small>Samlet</small></font></a>
<% Else %>
<small><font face="Arial">Samlet</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="58" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=patter"><font
    face="Arial" color="#000000"><small>Patter</small></font></a>
<% Else %>
<small><font face="Arial">Patter</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="58" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=roev"><font
    face="Arial" color="#000000"><small>Røv</small></font></a>
<% Else %>
<small><font face="Arial">Røv</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="58" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=krop"><font
    face="Arial" color="#000000"><small>Krop</small></font></a>
<% Else %>
<small><font face="Arial">Krop</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="59" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=cme"><font
    face="Arial" color="#000000"><small>Charme</small></font></a>
<% Else %>
<small><font face="Arial">Charme</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="59" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<a href="default1.asp?sort=aksp"><font
    face="Arial" color="#000000"><small>AKSP</small></font></a>
<% Else %>
<small><font face="Arial">AKSP</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
    <td width="164" align="center" height="16" valign="middle"><!--webbot bot="HTMLMarkup"
    startspan --><% if session("lvl") = "4" then %>
<small><font face="Arial">Kommentar</font></small>
<% Else %>
<small><font face="Arial">Kommentar</font></small>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></td>
  </tr>
<% do while not rs.EOF %>
  <tr>
    <td width="68" height="19" align="center">
<%
    If rs("billede") <> "" Then
        Response.Write ""<a href=""java script:vindue('ShowPicture.asp','" & rs("billede") & "')""><img border=""1"" src=""" & rs("billede") & """ width=""10"" height=""10""></a>"
        Session("billede") = rs("billede")
    Else
        Response.Write "Intet"
    End If
%>
</td>
    <td width="229" height="19" align="center"><p align="left"><small><font face="Arial"><%if session("lvl") = "4" then
        if rs("mellemnavn") = null then
            strNavn = rs("fornavn") & " " & rs("efternavn")
        else
            strNavn = rs("fornavn") & " " & rs("mellemnavn") & " " & rs("efternavn")
        end if
    response.write strNavn
else
    response.write(rs("efternavn"))
end if%></font></small></td>
    <td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("alder")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("klasse")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("samlet")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("patter")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("roev")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="58" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("krop")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="59" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("cme")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="59" height="19" align="center"><small><font face="Arial"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<% =rs("aksp")%>
<% Else %>
<% Response.Write "X" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></font></small></td>
    <td width="164" height="19" align="center"><p align="left"><a
    href="default1.asp?id=<%=rs("id")%>" style="color: rgb(0,0,0)"><!--webbot
    bot="HTMLMarkup" startspan --><% if session("lvl") = "4" then %>
<small><font face="Arial"><span
    style="color: rgb(0,0,0)"><%=left(rs("kommentar"),20)%></span></font></small>
<% Else %>
<% Response.Write "" %>
<% end if %><!--webbot bot="HTMLMarkup" endspan --></a>...</td>
  </tr>
<%  rs.movenext %>
<%loop %>
</table>
</center></div>

<p>&nbsp;</p>
</body>
</html>


//>Rune
Avatar billede medions Nybegynder
01. oktober 2002 - 22:54 #46
så gør sådan her i stedet:

<%
    If rs("billede") <> "" Then'
%>
        <a href="java script: vindue('ShowPicture.asp','<% Response.Write(rs("billede")) %>');"><img border="1" src="<% Response.Write(rs("billede")) %>" width="10" height="10"></a>
<%
        Session("billede") = rs("billede")
    Else
        Response.Write "Intet"
    End If
%>

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 22:58 #47
Jeg prøvede at trykke og der kom en popup (billedekryds) men den resizede da. og da jeg så prøvede et andet lavede den fejl
Avatar billede medions Nybegynder
01. oktober 2002 - 23:02 #48
Det lyder weird nu! *G*

//>Rune
Avatar billede medions Nybegynder
01. oktober 2002 - 23:04 #49
Men prøv lige at skriv i ShowPicture.asp:

<html>
<head>
<script language="JavaScript">
    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }
</script>
</head>

<body OnLoad="ResizeWin();">
    Billedet og sti: <b><% Response.Write(Session("billede")) %></b><p>
    <a href="java script:window.close()"><img src="<% Response.Write(Session("billede")) %>" border="0" name="ProductPic"></a>
</body>
</html>

Så kan du se hvad der er galt...! -Og husk nu at det skal være den rigtige sti! -og at der er en extention på ".gif eller .jpg"

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 23:09 #50
Billedet og sti: 1q og hvis jeg prøver med et som i databasen hedder noget mere end filnavn altså med efternavn så fejler den
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 23:12 #51
gave til din mail
Avatar billede medions Nybegynder
01. oktober 2002 - 23:15 #52
<html>
<head>
<script language="JavaScript">
    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }
</script>
</head>

<body OnLoad="ResizeWin();">
    Billedet og sti: <b><% Response.Write(Session("billede")) %></b><p>
    <a href="java script:window.close()"><img src="<% Response.Write(Session("billede")) %>.gif" border="0" name="ProductPic"></a>
</body>
</html>

//>Rune
Avatar billede no_doubt Nybegynder
01. oktober 2002 - 23:18 #53
samme fejl
Avatar billede medions Nybegynder
01. oktober 2002 - 23:21 #54
Har du opdateret sitet?

//>Rune
Avatar billede medions Nybegynder
01. oktober 2002 - 23:22 #55
Ok, ret det lige til dette igen:

<html>
<head>
<script language="JavaScript">
    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }
</script>
</head>

<body OnLoad="ResizeWin();">
    Billedet og sti: <b><% Response.Write(Session("billede")) %></b><p>
    <a href="java script:window.close()"><img src="<% Response.Write(Session("billede")) %>" border="0" name="ProductPic"></a>
</body>
</html>

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:00 #56
done
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:01 #57
then ?
Avatar billede medions Nybegynder
02. oktober 2002 - 00:03 #58
øhh ja, efter hvad jeg kan se så virker det da!

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:04 #59
hva !?
Avatar billede medions Nybegynder
02. oktober 2002 - 00:05 #60
Er det da ik' sådan det skal være?

Ellers så prøv at gøre sådan her:

<html>
<head>
<script language="JavaScript">
    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }
</script>
</head>

<body OnLoad="ResizeWin();">
    Billedet og sti: <b><% Response.Write(Session("billede")) %></b><p>
    <a href="java script:window.close()"><img src="<% Response.Write(Session("billede")) %>" border="0" width="100" height="100"></a>
</body>
</html>

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:06 #61
Jamen den viser ikke billedet og laver fejl på selve siden
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:07 #62
Avatar billede medions Nybegynder
02. oktober 2002 - 00:09 #63
Hmm jeg ved ik' hvad der er galt med den nederste.... Men det virker da på alle de andre!

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:10 #64
nu åbner alle billeder som 1qfoto.jpg
Avatar billede medions Nybegynder
02. oktober 2002 - 00:11 #65
øhhh ja?

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:12 #66
show......asp resizer da ikke
Avatar billede medions Nybegynder
02. oktober 2002 - 00:13 #67
Ok, fjern Height og Width og skriv name="ProductPic" istedet for i samme image tag!

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:15 #68
hvorfor er der defineret en højde og brede ? width="100" height="100"></a>
Avatar billede medions Nybegynder
02. oktober 2002 - 00:17 #69
Glem dem, bare slet dem...!

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:17 #70
hvis jeg laver en ny person og i billede skrive 2q.jpg virker det da ikke, se TEST
Avatar billede medions Nybegynder
02. oktober 2002 - 00:19 #71
<html>
<head>
<script language="JavaScript">
    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }
</script>
</head>

<body OnLoad="ResizeWin();">
    Billedet og sti: <b><% Response.Write(Session("billede")) %></b><p>
    <a href="java script:window.close()"><img src="<% Response.Write(Session("billede")) %>" border="0" name="ProductPic"></a>
</body>
</html>

og det her i det nuværende dokument:

<script language="JavaScript">
function vindue(url)
    {
        window.open(url, '', "scroll, resizable, z-index=1,top=0,left=0")
    }
</script>

<%
    If rs("billede") <> "" Then'
%>
        <a href="java script: vindue('ShowPicture.asp');"><img border="1" src="<% Response.Write(rs("billede")) %>" width="10" height="10"></a>
<%
        Session("billede") = rs("billede")
    Else
        Response.Write "Intet"
    End If
%>

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:23 #72
alle links referer til 2q.jpg nu...??? men nu resizede den da.. på en måde
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:25 #73
nu prøvede jeg 1q.jpg som billede og så bruger alle den. det skal passe til id'et
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:30 #74
Er det pga. af sessions ?
Avatar billede medions Nybegynder
02. oktober 2002 - 00:31 #75
At hvad?

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:33 #76
Hvis man vælge et af de små billeder og ser det så pejer alle linksne på det første billede og popper op med det, hvis du så reloader siden og tager et andet gentager proceduren sig
Avatar billede medions Nybegynder
02. oktober 2002 - 00:35 #77
Det forstår jeg sq ikke *G*

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:37 #78
nej men du kan godt se det ikke ?
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:48 #79
Kan man ikke requeste det eller sådan noget
Avatar billede medions Nybegynder
02. oktober 2002 - 00:55 #80
Jeg får denne fejl hvis jeg går ind på sitet nu:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/ShowPicture.asp, line 20

Hvad er det du vil Requeste :-)

Men prøv med en QueryString...!

<html>
<head>
<script language="JavaScript">
    function ResizeWin () {
        strWidth = document.ProductPic.width+60
        strHeight = document.ProductPic.height+170
        if (navigator.appVersion.indexOf("3.") == -1 ) {
            if (strWidth >= screen.availWidth-20) strWidth = screen.availWidth-20;
            if (strHeight >= screen.availHeight-20) strHeight = screen.availHeight-20;
            window.resizeTo(strWidth,strHeight)
        }
    }
</script>
</head>

<body OnLoad="ResizeWin();">
    Billedet og sti: <b><% Response.Write(Request.QueryString("id")) %></b><p>
    <a href="java script:window.close()"><img src="<% Response.Write(Request.QueryString("id")) %>" border="0" name="ProductPic"></a>
</body>
</html>

og det her i det nuværende dokument:

<script language="JavaScript">
function vindue(url)
    {
        window.open(url+"?id=<%= rs("billede")%>", '', "scroll, resizable, z-index=1,top=0,left=0")
    }
</script>

<%
    If rs("billede") <> "" Then'
%>
        <a href="java script: vindue('ShowPicture.asp');"><img border="1" src="<% Response.Write(rs("billede")) %>" width="10" height="10"></a>
<%
        Session("billede") = rs("billede")
    Else
        Response.Write "Intet"
    End If
%>

//>Rune

//>Rune
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 00:59 #81
nu bliver der ikke angivet noget billede.
Avatar billede no_doubt Nybegynder
02. oktober 2002 - 13:26 #82
Nogen der kan hjælpe mere ?
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 14:36 #83
lukker
Avatar billede medions Nybegynder
04. oktober 2002 - 17:24 #84
Jamen undskyld jeg da overhovedet prøvede at hjælpe dig!!

//>Rune
Avatar billede no_doubt Nybegynder
04. oktober 2002 - 19:49 #85
arh sorry jeg opretter et med det halve det var også meningen
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
Kurser inden for grundlæggende programmering

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