Visning i Netscape???
Jeg kan ikke få vist gennereret hele asp-filen når jeg vil se den med netscape???Jeg har lavet et site der er bygget op af et frameset med 2 frames("Top" og "Body").
Sitet fungere glimrende i IE5.5 og IE6.0 - men jeg får kun præsenteret bagrundsfarven og ca. halvdelen af kategori-overskrifterne.
Der hentes en menu(Flash) ind i top-framet som sender en besked via URL-strengen om hvilken side der skal hentes ind i Body-framet.
Det er som om at Netscape ikke får hele request.qureyString - strengen med... Eller???
Hvis nogen kender til dette problem så vil det glæde mig at hører mere...
Kildekoden til det dokument der skal hentes ser således ud:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<head>
<title>www.stochholmx.dk - Kunstnerside med Allan Stochholm og Hanne Stovhholm Exe - Udført af KB3 MultiMedieDesign</title>
<style ="css/text">
<!--#include file="../css/style.css"-->
</style>
<script language="JavaScript">
function visVaerk()
{
iwin = window.open("visVaerk.asp", "iwin", "status=no, toolbar=no, location=no,menu=no, scrollbar=no, width=400,height=550,top=50,left=200,screenY=150,screenX=100'");
}
</script>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FBFFF8">
<!-- OVERORDNET TABEL -->
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%" height="324" BORDER="0">
<TR VALIGN="Top"><TD ALIGN="center">
<!-- INDHOLDS PLACERINGS TABEL -->
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="790" BORDER="0">
<TR VALIGN="Top"><TD ALIGN="center">
<%
'**************************************************
'**************************************************
'** **
'** KATEGORISERING AF SIDERNE OG DB-UTRÆK **
'** **
'** ("mode") = A ==> Allans side **
'** ("mode") = H ==> Hannes side **
'** **
'** ("Kat") = 1 ==> BILLEDER **
'** ("Kat") = 2 ==> ASSEMBLAGE & SKULPTUR **
'** ("Kat") = 3 ==> BOGOMSLAG **
'** ("Kat") = 4 ==> UDSMYKNING **
'** ("Kat") = 5 ==> PLAKATER **
'** ("Kat") = 6 ==> TEGNINGER **
'** ("Kat") = 7 ==> BIOGRAFI **
'** ("Kat") = 8 ==> KONTAKT **
'** ("Kat") = 9 ==> LINKS **
'** **
'**************************************************
'**************************************************
If request.queryString("Kat") = "Intro" Then
If request.queryString("mode") = "A" Then
%>
<!--#include file="../Allan/visIntro.asp"-->
<%
End If
If request.queryString("mode") = "H" Then
%>
<!--#include file="../Hanne/visIntro.asp"-->
<%
End If
End If
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/Stochholmx.mdb")
Conn.Open DSN
'If request.queryString("Kat") <> "" Then
strKat = request.queryString("Kat")
Response.Write "<TABLE CELLSPACING=""0"" CELLPADDING=""0"" WIDTH=""100%"" BORDER=""0"">"
Response.Write "<TR VALIGN=""Top"" HEIGHT=""12""><TD ALIGN=""Left"" CLASS=""SubSkrift"">"
'*********
'********* OVERSKRIFTER TIL KATEGORIERNE
'*********
If strKat = "1" Then
Response.Write "BILLEDER"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "2" Then
Response.Write "ASSAMBLAGE / SKULPTUR"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "3" Then
Response.Write "BOGOMSLAG"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "4" Then
Response.Write "UDSMYKNING"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "5" Then
Response.Write "PLAKATER"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "6" Then
Response.Write "TEGNINGER"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "7" Then
Response.Write "BIOGRAFI"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "8" Then
Response.Write "KONTAKT"
Response.Write "</TD></TR></TABLE>"
End If
If strKat = "9" Then
Response.Write "LINKS"
Response.Write "</TD></TR></TABLE>"
End If
'******
'****** FAST FORBINDELSE TIL DATABASEN!!! ******
'******
If request.queryString("side") = "Thumb" Then
'******
'****** SQL-sætning til DATABASE utræk ******
'******
SQL="SELECT * FROM TabVaerker WHERE Fld_Kunstner='" & request.queryString("mode") & "' AND Fld_Kategori='Kat" & request.queryString("Kat") & "' ORDER BY Fld_Prioritet"
set RS = Conn.Execute(SQL)
If (RS.BOF OR RS.EOF) Then
Response.Write "<TABLE CELLSPACING=""0"" CELLPADING=""0"" HEIGHT=""300"">"
Response.Write "<TR VALIGN=""Middle""><TD ALIGN=""center"" CLASS=""Overskrift"">"
Response.Write "DER ER INGEN VÆRKER UNDER DETTE PUNKT ENDNU...<BR>"
Response.Write "VI ARBEJDER PÅ SAGEN - TAK FOR DIN INTERESSE!</TD></TR>"
Response.Write "<TR VALIGN=""middle""><TD ALIGN=""center"" CLASS=""Main"">"
Response.Write "<TABLE CELLSPACING=""0"" CELLPADING=""0"" BORDER=""0"">"
Response.Write "<TR VALIGN=""middle"" HEIGHT=""120"">"
Else
Response.Write "<TABLE CELLSPACING=""0"" CELLPADING=""0"" HEIGHT=""300"">"
Response.Write "<TR VALIGN=""Top""><TD ALIGN=""center"" CLASS=""Main"">"
Response.Write "Klik på udsnittene af VÆRKERNE for at se hele billedet i stor<BR>"
Response.Write "evt. serier vil blive vist sammen i mindre størrelser først</TD></TR>"
Response.Write "<TR VALIGN=""middle""><TD ALIGN=""center"" CLASS=""Main"">"
Response.Write "<TABLE CELLSPACING=""0"" CELLPADING=""0"" BORDER=""0"">"
Response.Write "<TR VALIGN=""middle"" HEIGHT=""120"">"
Count = 1
Do While Not(RS.EOF OR RS.BOF)
If Count = 5 Then
Response.Write "</TR><TR VALIGN=""middle"" HEIGHT=""120"">"
Count = 1
Else
Response.Write "<TD CLASS=""Main"" ALIGN=""center"" width=""120"">"
'************ DEFINITION AF NOGLE VARIABLER
strMode = "&mode=" & request.queryString("mode")
strKat = request.queryString("Kat")
If RS("Fld_Serie") <> "" Then
Response.Write "<A HREF='../ssi/visPopUp.asp?ID=" & RS("ID") & strMode & "&Kat=" & strKat & "&Serie=" & RS("Fld_Serie") & "&side=' border='0'>"
Response.Write "<img src='../db/Kat" & request.queryString("Kat") & "/" & RS("Fld_Thumb") & "' border='0' ALT='" & RS("Fld_Titel") & "'>"
Response.Write "</A>"
Else
Response.Write "<A HREF='../ssi/visPopUp.asp?ID=" & RS("ID") & strMode & "&Kat=" & strKat & "&Serie=" & RS("Fld_Serie") & "&side=Big' border='0'>"
Response.Write "<img src='../db/Kat" & request.queryString("Kat") & "/" & RS("Fld_Thumb") & "' border='0' ALT='" & RS("Fld_Titel") & "'>"
Response.Write "</A>"
End If
Response.Write "</TD>"
RS.MoveNext
Count = Count + 1
End If
Loop
Response.Write "</TR></TABLE>"
End If
End If
Response.Write "</TD></TR></TABLE>"
If strKat = "7" Then
SQL = "SELECT * FROM TabBio WHERE Fld_Kunstner='" & request.queryString("mode") & "'"
set RS = Conn.Execute(SQL)
Response.Write "<TABLE CELLSPACING=""0"" CELLPADING=""0"" WIDTH=""500"" HEIGHT=""320"">"
Response.Write "<TR VALIGN=""middle""><TD ALIGN=""center"" CLASS=""Main"">"
Response.Write RS("Fld_Bio")
Response.Write "</TD></TR></TABLE>"
End If
If request.queryString("Kat") = "8" Then
SQL = "SELECT *FROM TabKontakt WHERE Fld_Kunstner='" & request.queryString("mode") & "'"
set RS = Conn.Execute(SQL)
Response.Write "<TABLE CELLSPACING=""0"" CELLPADING=""0"" HEIGHT=""320"">"
Response.Write "<TR VALIGN=""middle""><TD ALIGN=""Left"" CLASS=""Overskrift"">"
Response.Write RS("Fld_Navn") & "<BR>"
Response.Write RS("Fld_Adresse") & "<BR>"
Response.Write RS("Fld_Postnr") & " " & RS("Fld_By") & "<BR>"
Response.Write "<BR>"
Response.Write "Tlf.nr.: " & RS("Fld_Tlf") & "<BR>"
Response.Write "Email: " & "<A HREF=""mailto:" & RS("Fld_Email") & """>" & RS("Fld_Email") & "</A>"
Response.Write "</TD></TR></TABLE>"
End If
If request.queryString("Kat") = "9" Then
SQL = "SELECT *FROM TabLinks ORDER BY Fld_LinkName"
set RS = Conn.Execute(SQL)
Response.Write "<TABLE CELLSPACING=""0"" CELLPADING=""0"" HEIGHT=""320"">"
Response.Write "<TR VALIGN=""middle""><TD ALIGN=""center"" CLASS=""Main"">"
Do While Not (RS.BOF OR RS.EOF)
If RS("Fld_Check") <> request.queryString("mode") Then
Response.Write "<A HREF=""" & RS("Fld_Link") & """ TARGET=""Blank"">" & RS("Fld_LinkName") & "</A><BR><BR>"
End If
RS.MoveNext
Loop
Response.Write "</TD></TR></TABLE>"
End If
Response.Write "</TD></TR></TABLE>"
Response.Write "</TD></TR></TABLE>"
Response.Write "</body>"
Response.Write "</html>"
%>
*********************** SLUT **********************
Hvis jeg udkommentere (') Nr. 2 If sætning:
If request.queryString("side") = "Thumb" Then
Så kan jeg godt få vist Billeder og andre værker!?!?!?!
Venligst
Kristian Bjørn
