Avatar billede celal Nybegynder
10. november 2003 - 10:21 Der er 14 kommentarer og
1 løsning

Åben Hjemmeside index

Jeg har en Index.asp, som ser således ud.

<%@ Language=VBScript %>

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="VI60_defaultClientScript" content="JavaScript">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="keywords" content="byggeri, nyheder, produkter, byggeprodukter, byggematerialer, byggevarer, producenter, leverandører, byggeinformation, byggeviden, byggelove, love, regler, normer, standarder, bygningsreglement, bøger, publikationer, BPS, Byggeriets Planlægningssystem, Byg-Erfa, bygerfa, byggeerfaring, erfaringsformidling, klassifikation, SfB, sfb, kurser, konferencer, efteruddannelse, kursuscenter, kursuscentre, konferencecenter, konferencecentre, byggevareudstilling, byggevareudstillinger, udstilling, udstillinger, brochurer, fritidshuse, pejse, brændeovne, vinduer, døre, ventilation, isolering, vægge, trapper, badeværelser, badeværelsesudstyr, køkken, køkkener, brusekabiner, spabade,håndvaske">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Byggecentrum - Information om bolig og byggeri</title>


</head>

<frameset frameborder="0" framespacing="0" border="0" cols="20%,80%">
  <frameset rows="*,62%">
    <frame src="logo.htm" name="indhold" scrolling="no" noresize marginheight="7" target="_self">
    <frame src="indhold.htm" scrolling="no" marginheight="2" marginwidth="4" target="main" noresize>
  </frameset>

  <frameset rows="17%,83%">
    <frame src="top.htm" name="top" scrolling="no" noresize target="_self">
    <frame src="hoved.htm" name="main" noresize target="main" scrolling="auto">
    <%
    Responce.Write("Dette er en test1")
    If(InStr(1, location.hostname, "page1", 1)) Then

    %>
    <frame src="hoved.htm" name="main" noresize target="main" scrolling="auto">
    Responce.Write("Dette er en test2")
    <%
    else
    %>
        <frame src="bh.htm" name="main" noresize target="main" scrolling="auto">
        Responce.Write("Dette er en test3")
    <%
    end if
    %>


  </frameset>
  <noframes>
  <body>
    <p>This web page uses frames, but your browser doesn't support them.</p>

  </body>
  </noframes>
</frameset>

</html>


Men det virker ikke, jeg få gølgende fejl:
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A01A8)
Et objekt er obligatorisk: ''
/index.asp, line 27


det skal være muligt at kunne definere forskellige lokationer på Index.asp.

Er der nogen som kan fortælle mig hvad der er galt?

Hvordan løser jeg dette bedst?
Avatar billede nil.dk Nybegynder
10. november 2003 - 10:23 #1
Det hedder Response og ikke Responce
Avatar billede erikjacobsen Ekspert
10. november 2003 - 10:23 #2
Response.Write("Dette er en test1")
Avatar billede celal Nybegynder
10. november 2003 - 10:31 #3
hmmm, der stadig fejl, og fejlen ligger på denne linie:

If(InStr(1, location.hostname, "page1", 1)) Then
Avatar billede erikjacobsen Ekspert
10. november 2003 - 10:37 #4
hvad er det du forventer der står i location?
Avatar billede celal Nybegynder
10. november 2003 - 10:38 #5
Avatar billede erikjacobsen Ekspert
10. november 2003 - 10:39 #6
Så check den her for at finde det.

du kan formentlig bruge request.querystring - den vil indeholde "page1"
Avatar billede erikjacobsen Ekspert
10. november 2003 - 10:40 #7
Avatar billede celal Nybegynder
10. november 2003 - 13:22 #8
kan du ikke koden til funktionen som jeg kan bruge? du må meget gerne skrive koden...
Avatar billede celal Nybegynder
10. november 2003 - 14:39 #9
Okay, er nu kommet frem til følgende kode:

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="VI60_defaultClientScript" content="JavaScript">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="keywords" content="byggeri, nyheder, produkter, byggeprodukter, byggematerialer, byggevarer, producenter, leverandører, byggeinformation, byggeviden, byggelove, love, regler, normer, standarder, bygningsreglement, bøger, publikationer, BPS, Byggeriets Planlægningssystem, Byg-Erfa, bygerfa, byggeerfaring, erfaringsformidling, klassifikation, SfB, sfb, kurser, konferencer, efteruddannelse, kursuscenter, kursuscentre, konferencecenter, konferencecentre, byggevareudstilling, byggevareudstillinger, udstilling, udstillinger, brochurer, fritidshuse, pejse, brændeovne, vinduer, døre, ventilation, isolering, vægge, trapper, badeværelser, badeværelsesudstyr, køkken, køkkener, brusekabiner, spabade,håndvaske">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Byggecentrum - Information om bolig og byggeri</title>


</head>

<frameset frameborder="0" framespacing="0" border="0" cols="20%,80%">
  <frameset rows="*,62%">
    <frame src="logo.htm" name="indhold" scrolling="no" noresize marginheight="7" target="_self">
    <frame src="indhold.htm" scrolling="no" marginheight="2" marginwidth="4" target="main" noresize>
  </frameset>

  <frameset rows="17%,83%">
    <frame src="top.htm" name="top" scrolling="no" noresize target="_self">


<!---------------------------------Nyhedsbrev Link oprettelse---------------------------------------------

<%
    Dim Link= Request.QueryString


            If(Request.QueryString  = "page1")  Then
        %>
                <frame src="bh.htm" name="main" noresize target="main" scrolling="auto">


        <%
            Else If(Request.QueryString  = "page2")  Then
        %>
                <frame src="/test/ballerupudstiller_bal.asp" name="main" noresize target="main" scrolling="auto">


        <%
            Else If(Request.QueryString = "page3")  Then
        %>
                <frame src="analyse.htm" name="main" noresize target="main" scrolling="auto">

        <%
            Else If(Request.QueryString  = "")  Then
        %>
                <frame src="beliggen.htm" name="main" noresize target="main" scrolling="auto">
        <%
            else
        %>

                <frame src="hoved.htm" name="main" noresize target="main" scrolling="auto">
        <%
            end if
        %>

<!----------------------------------------------------------------------------------------------------------
  </frameset>
  <noframes>
  <body>

  <p>Byggecentrum - Bygge- og Boligsektorens Informationscenter. Byggeri, bolig,
  boghandel, efteruddannelse, udstilling, kursuscenter</p>
  <p><!--webbot bot="PurpleText"
  preview="The frameset on this page can be edited with the FrontPage Frames Wizard; use the Open or Open With option from the FrontPage Explorer's edit menu. This page must be saved to a web before you can edit it with the Frames Wizard. Browsers that don't support frames will display the contents of this page, without these instructions. Use the Frames Wizard to specify an alternate page for browsers without frames."
  s-viewable=" " --> </p>
  <p>This web page uses frames, but your browser doesn't support them.</p>

  </body>
  </noframes>
</frameset>

</html>
Avatar billede celal Nybegynder
10. november 2003 - 14:40 #10
Avatar billede celal Nybegynder
10. november 2003 - 14:41 #11
Der ikke nogen af adresserne som virker
erikjacobsen : kan du se hvad der r galt med min kode?
Avatar billede erikjacobsen Ekspert
10. november 2003 - 15:22 #12
Kode der er udkommenteret bliver nok ikke udført ;)
Og din dim link =.... er en kende uautoriseret .... men du bruger den vel heller ikke
Avatar billede celal Nybegynder
11. november 2003 - 14:43 #13
okay, har fået det til at virke:

frameset frameborder="0" framespacing="0" border="0" cols="20%,80%">
  <frameset rows="*,62%">
    <frame src="logo.htm" name="indhold" scrolling="no" noresize marginheight="7" target="_self">
    <frame src="indhold.htm" scrolling="no" marginheight="2" marginwidth="4" target="main" noresize>
  </frameset>

  <frameset rows="17%,83%">
    <frame src="top.htm" name="top" scrolling="no" noresize target="_self">


<!---------------------------------Nyhedsbrev Link oprettelse------------------------>


        <%

            If(Request.QueryString  = "page1")  Then
        %>
                <frame src="bh.htm" name="main" noresize target="main" scrolling="auto">


        <%
            ElseIf(Request.QueryString  = "page2")  Then
        %>
                <frame src="kursusservice.htm" name="main" noresize target="main" scrolling="auto">


        <%
            ElseIf(Request.QueryString = "page3")  Then
        %>
                <<frame src="beliggen.htm" name="main" noresize target="main" scrolling="auto">
        <%
            ElseIf(Request.QueryString  = "")  Then
        %>
                <frame src="beliggen.htm" name="main" noresize target="main" scrolling="auto">
        <%
            ElseIf(Request.QueryString  = null)  Then
        %>

                <frame src="hoved.htm" name="main" noresize target="main" scrolling="auto">
        <%
            end if
        %>


<!-------------------------------------------------------------------------------->
  </frameset>
  <noframes>
  <body>

  </body>
  </noframes>
</frameset>
Avatar billede celal Nybegynder
11. november 2003 - 14:44 #14
Tak for hjælpen... erikjacobsen
Avatar billede celal Nybegynder
23. april 2004 - 10:55 #15
hvis du vil have pointene så må du svare, ellers snupper jeg dem selv
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