Probs med kørsel af website!!!
Min "kunde" klager over at mange ikke kan få vist indholdet af et site jeg har lavet.Det er et kunstnersite og startsiden går fint igennem.
Når man så har valgt enten Hr-Kunstner eller Fru-Kunstner loades sitet i et frameset med en top-frame og en body-frame.
Indholdet i Top-framet er i begge tilfælde en Flash-menu som sender en besked til serveren(ASP) om hvilken side der skal hentes ind i Body-framet. Bekseden bliver sendt via URL-strengen.
So fare - So good.
Når indholdet i body-framet så skal vises, kommer der kun en overskrift frem.
Hvad pokker er der galt!
NB!!!
På min egen PC kan jeg fint kører sitet og få vist alt.
Og jeg har fået min onkel til at prøve at gå ind på sitet og han kan også se det hele.
Jeg bruger Windows 98 og IE 6.0.
Onklen bruger Windows 98 og IE 5.5
Jeg har testet sitet i Opera 6.0 og Netscape 6.2 og i begge browsere kan indholdet fra databasen ikke hentes.
Hvad pokker er der galt(Når nogen kan se sitet og andre ikke???)
Jeg har programmeret/scriptet sitet i ASP/VBScript og brugt CSS til font og layout samt lidt JavaScript til at åbne et vindue med galleri-visning af det valgt billede. Jeg har også brugt SSI.
Her er koden til det der driller:
<HEAD>
<TITLE>Allan Stochholm - Maler og tegner</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 **
'** **
'**************************************************
'**************************************************
'****** FAST FORBINDELSE TIL DATABASEN!!! ******
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") = "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
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"">"
If strKat = "1" Then
Response.Write "BILLEDER"
End If
If strKat = "2" Then
Response.Write "ASSAMBLAGE / SKULPTUR"
End If
If strKat = "3" Then
Response.Write "BOGOMSLAG"
End If
If strKat = "4" Then
Response.Write "UDSMYKNING"
End If
If strKat = "5" Then
Response.Write "PLAKATER"
End If
If strKat = "6" Then
Response.Write "TEGNINGER"
End If
If strKat = "7" Then
Response.Write "BIOGRAFI"
End If
If strKat = "8" Then
Response.Write "KONTAKT"
End If
If strKat = "9" Then
Response.Write "LINKS"
End If
Response.Write "</TD></TR></TABLE>"
'*************************************
'*************************************
' OBS!!!!!
'
' HERTIL KAN GODT VISES
'*************************************
'*************************************
'****** 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 request.queryString("Page") = "Thumb" Then
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 BILLEDERNE 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") & "&Page=' 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") & "&Page=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
Response.Write "</TD></TR></TABLE>"
End If
End If
If request.queryString("Kat") = "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>"
%>
--------------------------
--------------------------
Er det mon noget med databaseforbindelse???
Venligst
Kristian Bjørn
