Länkar fungerar ej

12 december, 2008

Jag har ett litet problem som jag inte vet om det går att lösa

Jag har fått en hemsida gjord till mig av ett företag problemet är att jag inte får den att fungera utanför deras egna servrar , de kan inte hjälpa mig

Problemet är att länkningen inte fungerar , jag får upp startsidan men om jag klickar på en länk får jag felmedelande 404, jag kan inget om ASP själv och vet inte om det går att lösa

Såhär ser iaf menyn ut men vet inte om man kanske behöver mera information än så

<td class="leftmenus" style="width: <%= strLeft %>; vertical-align: top">
	<div id="subContainer" style="width:100%; text-align: <%= LeftMenusAlign %>; text-align: left">

<% If tmenuBorderSquare = "1" Then
	strTopTableBorder = " style=""border: 1px solid " & tmenuBorderColor & ";"""
End If %> 	
	<div id="subMenuPlacement"<%= strTopTableBorder %>>

<%
strSQL = "SELECT * FROM indhold WHERE tilhoerer = 0 and aktiv = 'ja' ORDER BY sorter"
Set rs = connection.Execute(strSQL)


If Not (rs.EOF or rs.BOF) Then
If tmenuBorderSep = "1" Then
	tdCounter = 0
End If	
Do While Not (rs.EOF or rs.BOF)
	If tmenuBorderSep = "1" Then
		If tdCounter > 0 Then
			strTopMenuTDBorder = " style=""border-top: 1px solid " & tmenuBorderColor & ";"""
		End If
	End If 	
	If (guestbook <> 1 AND rs("id") = 128) OR (nyhedsbrev <> 1 AND rs("ID") = 8) Then
	Else
	 	eksterntLink 	= 	rs("eksterntLink")
	 	strFilnavn 		= 	rs("filnavn")
	 	strSidenavn 	= 	rs("navn")

	 	If strFilnavn <> "" Then
	 		strLink = "/" & rs("ID") & "-" & StripString(strFilnavn) & ".htm"
	 	Else
	 		strLink = "/" & rs("ID") & "-" & StripString(strSidenavn) & ".htm"
	 	End If
		if trim(eksterntLink) <> "" then
		  if eksterntLink <> null then
				eksterntLink = replace(eksterntLink,"http://","")
			end if %>
			<a href="http://<%= eksterntLink %>" target="_blank" class="topmenuLinks" id="link<%= rs("id") %>">
			<div class="subTopMenu" onmouseover="this.className='subTopMenu_over';" onmouseout="this.className='subTopMenu';"<%= strTopMenuTDBorder %>>
			<%=strSidenavn %>
			</div>
			</a><%
		else %>
			<a href="<%= strLink %>" target="_self" class="topmenuLinks" id="link<%= rs("id") %>">
			<div class="subTopMenu" onmouseover="this.className='subTopMenu_over';" onmouseout="this.className='subTopMenu';"<%= strTopMenuTDBorder %>>
			<%=strSidenavn%>
			</div>
			</a> <%
		end if
		If pID <> "" Then
			strSQL = "SELECT * FROM indhold WHERE tilhoerer = " & pID & " and aktiv = 'ja' ORDER BY sorter"
			Set rs2 = connection.Execute(strSQL)
		Else
			strSQL = "SELECT * FROM indhold WHERE tilhoerer = " & ID & " and aktiv = 'ja' ORDER BY sorter"
			Set rs2 = connection.Execute(strSQL)
		End if

		If Not (rs2.EOF or rs2.BOF) Then
		 Do While Not (rs2.EOF or rs2.BOF)

			If rs2("tilhoerer") = rs("id") Then
			  eksterntLink	=	rs2("eksterntLink")
			 	strFilnavn 		= rs2("filnavn")
			 	strSidenavn 	= rs2("navn")

	 	If strFilnavn <> "" Then
	 		strLink = "/" & rs2("ID") & "-" & pID & "-" & StripString(strFilnavn) & ".htm"
	 	Else
	 		strLink = "/" & rs2("ID") & "-" & pID & "-" & StripString(strSidenavn) & ".htm"
	 	End If
		if trim(eksterntLink) <> "" then
		  if eksterntLink <> null then
				eksterntLink = replace(eksterntLink,"http://","")
			end if %>
			<a href="http://<%= eksterntLink %>" target="_blank" class="submenuLinks">
			<div class="subMenu" onmouseover="this.className='subMenu_over';" onmouseout="this.className='subMenu';">
			<%=strSidenavn %>
			</div>
			</a>	 <%
		else %>
			<a href="<%= strLink %>" target="_self" class="submenuLinks">
			<div class="subMenu" onmouseover="this.className='subMenu_over';" onmouseout="this.className='subMenu';">
			<%=strSidenavn%>
			</div>
			</a> <%
		end if
	If Request("tilhoerer") <> "" Then

			strSQL = "SELECT * FROM indhold WHERE tilhoerer = " & request("tilhoerer") & " and aktiv = 'ja' ORDER BY sorter"
			Set rs3 = connection.Execute(strSQL)

		ElseIf Request("tilhoerer") = "" Then

			strSQL = "SELECT * FROM indhold WHERE tilhoerer = " & ID & " and aktiv = 'ja' ORDER BY sorter"
			Set rs3 = connection.Execute(strSQL)
		End if

		If Not (rs3.EOF or rs3.BOF) Then
		 Do While Not (rs3.EOF or rs3.BOF)

				If rs3("tilhoerer") = rs2("id") Then

	 	strFilnavn 		= rs3("filnavn")
	 	strSidenavn 	= rs3("navn")
	  eksterntLink 	= rs3("eksterntLink")
		If strFilnavn <> "" Then
			strLink = "/" & rs3("id") & "-" & pID & "-" & rs3("tilhoerer") & "-" & StripString(strFilnavn) & ".htm"
		Else
			strLink = "/" & rs3("id") & "-" & pID & "-" & rs3("tilhoerer") & "-" & StripString(strSidenavn) & ".htm"
		End If
		if trim(eksterntLink) <> "" then
		  if eksterntLink <> null then
				eksterntLink = replace(eksterntLink,"http://","")
			end if %>
			<a href="http://<%= eksterntLink %>" target="_blank" class="sub2menuLinks">
			<div class="sub2Menu" onmouseover="this.className='sub2Menu_over';" onmouseout="this.className='sub2Menu';">
			<%=strSidenavn %>
			</div>
			</a>	 <%
		else %>
			<a href="<%= strLink %>" target="_self" class="sub2menuLinks">
			<div class="sub2Menu" onmouseover="this.className='sub2Menu_over';" onmouseout="this.className='sub2Menu';">
			<%=strSidenavn%>
			</div>
			</a> <%
		end if
	End if
			 rs3.MoveNext
			 loop
			End if
			End if

		 rs2.MoveNext
		 loop
		End if
end if
rs.MoveNext
If tmenuBorderSep = "1" Then
 tdCounter = tdCounter + 1
End If 
loop
End if
%>
	</div>
</div>
</td>

12 december, 2008

Eftersom dina länkar ligger i en SQL databas så måste du be om en export av databasen för att sedan importera in i en annan SQL databas och koppla emot den.

kan du inget om SQL så är mitt förslag att du ber ditt nya webhotell hjälpa dig.

Hoppas de har SQL stöd

lycka till.

12 december, 2008

Eftersom dina länkar ligger i en SQL databas så måste du be om en export av databasen för att sedan importera in i en annan SQL databas och koppla emot den.

Jag tror inte detta är problemet. Om inte databasen hade existerat hade detta resulterat i VBScript-errors, men som det är nu så lyckas den ju uppenbarligen generera sidan, fast med felaktiga länkar.

De interna länkarna är uppbyggda i koden som relativa (till webbroten) länkar. Om din webbplats inte ligger i webbroten (ex. www.site.se/) utan ex. ligger på ett webbhotell med medlemsmappar (ex. www.site.se/~anvnamn/) så kommer inte ovanstående kod att fungera som avsett. Vilken situation stämmer in på din sajt?

[inlägget ändrat 2008-12-12 09:45:47 av Anjuna Moon]

12 december, 2008

Jag har inte provat kört den på webhotellet än utan bara lokat på IIS men tycker att den borde fungera även där, har sökt webhotellet jag har idag men inte fått svar från support än , har nämligen inte möjlighet att köra asp för det jag betalar idag men tänker inte skaffa ett dyra abonemang innan jag vet att allt fungerar som det ska

Just nu ligger default.asp i

C:/inetpub/wwwroot/www/

Databasen ligger i

C:/inetpub/wwwroot/db

12 december, 2008

Just nu ligger default.asp i

C:/inetpub/wwwroot/www/

Har du i IIS satt denna mapp som rot för sajten, eller är roten satt till mappen ovanför, dvs. C:/inetpub/wwwroot/? (jag gissar på det senare och där har du ditt problem). Eftersom de interna länkarna är skapade på formen "/något.html" så kommer IIS att leta efter filerna relativt webbroten (det är detta det inledande tecknet / gör). Om roten är wwwroot och inte wwwroot/www/ så kommer alltså länken "/något.html" att översättas till "http://localhost/något.html" och inte "http://localhost/www/något.html"

Beroende på vilken typ av adress du skapar på webbhotellet kommer du bli tvungen att justera koden något. Om länkarna enbart skapas i den kod-bit du redan visat så är det inget stort jobb att anpassa om det skulle behövas.

Om du på webbhotellet använder ett eget domännamn så kommer koden fungera som den är. Om du däremot skaffar ett konto med webbhotellets domännamn samt att din sajt hamnar i en undermapp, då måste du anpassa koden.

Anpassningen består enbart i att du plockar bort den inledande "/" i skapandet av länkarna, ex. på rader som ser ut så här:

strLink = "/" & rs("ID") & .....

som då skall ändras till

strLink = rs("ID") & ....

Den andra ändringen är att lägga till följande på varje sida (inom HEAD-taggarna)

<base href="http://localhost/www/" />

fast med "localhost/www" ersatt mot den adress din sida kommer få.

Det här kanske låter förvirrande, säg till isåfall så försöker jag uttrycka det bättre.

12 december, 2008

Har du i IIS satt denna mapp som rot för sajten, eller är roten satt till mappen ovanför, dvs. C:/inetpub/wwwroot/? (jag gissar på det senare och där har du ditt problem). Eftersom de interna länkarna är skapade på formen "/något.html" så kommer IIS att leta efter filerna relativt webbroten (det är detta det inledande tecknet / gör). Om roten är wwwroot och inte wwwroot/www/ så kommer alltså länken "/något.html" att översättas till "http://localhost/något.html" och inte "http://localhost/www/något.html"

Home Directory är inställd på Local path:

C:\Inetpub\wwwroot\www

och jag antar att det betyder att roten är satt att vara www katalogen

Ska testa ta bort / och se vad som händer

12 december, 2008

Home Directory är inställd på Local path:
C:\Inetpub\wwwroot\www

och jag antar att det betyder att roten är satt att vara www katalogen

Korrekt antagande, men detta borde betyda att allt är som det skall. När du klickar på en länk som ger 404, kontrollera adressen i adressfönstret och jämför med den plats där filen faktiskt ligger. Hur skiljer de sig åt?

[inlägget ändrat 2008-12-12 11:14:59 av Anjuna Moon]

12 december, 2008

Alltså sidnamnet som skrivs ut är ju hämtat frånn databasen om jag förstår det rätt så själva sidan /sida.htm finns ju inte som en htm fil någonstans utan byggs väll upp utfriån databasen i default.asp sidan

Antar att detta som finns i default säger nått sånt

strSQL = "SELECT indhold FROM indhold WHERE ID = " & ID 
	Set rs = connection.Execute(strSQL)
	If Not (rs.EOF or rs.BOF) Then

   Response.Write rs("indhold")


	End if 
             End if
   %><!--#include virtual="/includes/pages/gallery.asp"--><% 
   sitemap =request("sitemap")
  if ID = 8 AND sitemap <> "true" then %>
    <!--#include virtual="/includes/pages/nyhedsbrev.asp"--><%
 elseif ID = 10 AND sitemap <> "true" then %>
    <!--#include virtual="/includes/pages/kontaktos.asp"--><%
  elseif ID = 128 AND sitemap <> "true" then %>
    <!--#include virtual="/includes/pages/guestbook.asp"--><%
 end if %>
        &nbsp;
     </div>
   </div>
         </td>

12 december, 2008

Av vad jag sett av din kod är det enda som lagras i databasen namnen på filerna som länkarna skall peka på. Filerna i sig måste ju finnas fysiskt på servern. Annars hade länkarna varit av asp-typ med extra querystring-information som styr innehållet.

12 december, 2008

Tex så länkar ju startsidan tilll /169-starsida.htm

men denna sida är ju egentligen /default.asp men inte heller den fungerar om man klickar på länken fungera ju dock som sagt om man bara knappar in http://localhost/

det finns ju dock en ganska stor mängd med filer som jag fått så kan inte direkt skriva ner alla här , tror inte heller alla behövs då det säkerligen är utgått från en mall och allt överflödigt är inte borttaget , finns tex minst 3 olika meny filer

12 december, 2008

Nu har jag inte varit med från början men Hugin verkar mena att de filer som informationen i db länkar till inte finns och har inte funnits.

Då är det tal om url-rewrite som inte är inställt på din egen server

Är det du som gjort sajten från början, Hugin?

Det känns som du hugin får visa lite mer.

Hur ser katalog- och databasstrukturen ut?

12 december, 2008

Nej jag har inte gjort den själv utan fått den gjord av ett företag och när jag sagt upp webhotellet där så har jag fått hela sidan på CD

Sidan innehåller följande

Först en katalog med databasen (Access)

Sen en katalog med default.asp samt ytterligare 3 kataloger varav 2 innehåller bilder så de är irrelevanta

den 3:e katalogen innehåller ytterligare 5 kataloger

1st med stylesheets

1st med vem som gjort sidan

1st med javascript

1st med asp sidor som kontaktformulär, galleri, meny osv

1st med databaskoppligen

db/ wkh.mdb

www/default.asp

www/includes/pages/*.asp

www/includes/asp/*.asp

Såhär ser default.asp ut

<% session.LCID=1030 %>
<!--#include virtual="/includes/html/credits&doctype.asp"-->
<!--#include virtual="/includes/asp/dbconn.asp"-->
<!--#include virtual="/includes/asp/vars.asp"-->
<!--#include virtual="/includes/asp/site_config.asp"-->
<!--#include virtual="/includes/asp/functions.asp"-->
<!--#include virtual="/includes/asp/catch_visitor.asp"-->
<% 
strHUA = LCase(Request.Servervariables("HTTP_USER_AGENT")) '*****BROWSER CHECK*******

openConn()

ID = Request("ID")
pID = Request("pID")

If ID = "" OR ID = 1 Then
strSQL = "SELECT indhold.id FROM indhold WHERE indhold.niveau = 1 ORDER BY indhold.sorter"
Set rs = connection.Execute(strSQL)
If Not (rs.EOF or rs.BOF) Then
	ID = rs("id")
End if
Else
ID = CLng(ID)
End if
If pID = "" Then
pID = ID
End if

menusID = ID

session("content") %>
<html>
<head>

<% strSQL = "SELECT sidenavn, keywords, description, topbillede FROM indhold WHERE ID = " & ID

	Set rs = connection.Execute(strSQL)
strSidenavn = rs("sidenavn")
strKeywords = rs("keywords")
strDescription = rs("description")
strTopbillede = rs("topbillede")

	If strSidenavn <> ""Then
		sidetitel = strSidenavn
	Else
		sidetitel = firmanavn
	End If

	If strKeywords <> "" Then
		soegeord = strKeywords
	Else
	  soegeord = keywords
	End If

	If strDescription <> ""Then
		beskrivelse = strDescription
	Else
		beskrivelse = description
	End If

'Get template height - if blank, adjust to content
If strPageHeight <> "" Then
strPageHeight = " height: " & strPageHeight & ";"
Else
strPageHeight = ""
End If

	%>	
 <title><%=sidetitel%></title>
 <meta name="description" content="<%=beskrivelse%>">
 <meta name="keywords" content="<%=firmanavn%>,<%= sidetitel %>,<%=soegeord%>">
 <meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
 <link rel="StyleSheet" href="/includes/stylesheets/default.asp?<%=Now%>" type="text/css">
 <script language="JavaScript" src="/includes/javascripts/checkEmail.js" type="text/javascript"></script>
 <script language="JavaScript" src="/includes/javascripts/openWindow.js" type="text/javascript"></script>
 <script language="JavaScript" src="/includes/javascripts/dato.js" type="text/javascript"></script>
 <script language="JavaScript" src="/includes/javascripts/functions.js" type="text/javascript"></script>
 <% If flashFileName <> "" Then %>
 	<script language="JavaScript" src="/includes/javascripts/swfObject.js" type="text/javascript"></script>
<% End If %>
 <% If menuPlacering = "dropdowntop" OR menuPlacering = "dropdownbottom" Then %>
	<script language="javascript">	
		<!--#include virtual="/includes/asp/menu/menu_scr.inc"-->
	</script>  
<% End If %>
</head>
<body style="margin:0px;"<%= bodyOnload %>>	
	<table width="100%" height="100%" cellpadding="0" cellspacing="0" border="0">
		<tr>
			<% If sideAlign <> "left" Then %>
			<td style="background: url(/pictures/bg/bgleft.jpg) top right no-repeat;">&nbsp;</td>
		<% End If %>
			<td align="center" valign="top" style="width: 865px; background: <%= background %>"> 				
 <table cellspacing="0" cellpadding="0" border="0" style="width:100%;<%= strPageHeight %>; text-align:<%=sideAlign%>;">
  <tr>
   <td align="<%= sideAlign %>">
    <table name="outer" cellspacing="0" cellpadding="0" border="0" style="width:865px;<%= strPageHeight %>; text-align:<%=sideAlign%>; background:url(/pictures/bg/repeat.jpg);">
     <tr>
      <td class="topBG" colspan="2" style="vertical-align:top;">
       <table name="topIndhold" cellspacing="0" cellpadding="0" border="0" style="width:100%; height:100%;">
        <tr>
         <td style="vertical-align:top;">
         	<div style="width: 865px; height: <%= strTop %>; position: relative;" id="topContainer">
         		<% If functionsPlacement = "top" Then %>
							<!--#include virtual="/includes/pages/sitefunctions.asp"-->
						<% End If %>

         		<% If flashFileName <> "" and flashActive = "1" Then %>
							<!--#include virtual="/includes/pages/flash.asp"-->
						<% End If %>

	    			<%
	    			'Image here
	    			If dynamicTpics = "1" Then
	    				Response.Write "<div id=""dynamicPicPlacement"">" & VbCrLf
		    			If strTopbillede <> "" Then
		    				Response.Write "<img src=""/data/images/Toppictures/" & strTopbillede & """ alt="""" title="""">" & VbCrLf 
		    			End If
		    			Response.Write "</div>" & VbCrLf
		    		End If
	    			%>
	    		<% If menuPlacering = "top" Then %>
	        	<div id="topMenuPlacement">
	        		<!--#include virtual="/includes/pages/topmenu.asp"-->
	        	</div>
	        <% End If %>
	    		<% If menuPlacering = "dropdowntop" Then %>
	        	<div id="topMenuPlacement">
	        		<!--#include virtual="/includes/asp/menu/body_menu.inc" -->
	        	</div>
	        <% End If %>
          </div>
         </td>
        </tr>
       </table>
      </td>
     </tr>
     <tr>
      <td style="vertical-align:top; background: url(/pictures/bg/content.jpg) top left no-repeat;">
       <table cellspacing="0" cellpadding="0" border="0" style="width:100%; height: <%= strContentH %>">
        <tr>
				<% If (menuPlacering = "top" OR menuPlacering = "bottom") AND menuSubAlign = "left" Then %>
					<!--#include virtual="/includes/pages/submenus_mtop.asp"-->
				<% End If %>          	
				<% If menuPlacering = "sub" AND menuSubAlign = "left" Then %>
					<!--#include virtual="/includes/pages/submenus_only.asp"-->
				<% End If %> 
         <td class="content" style="vertical-align:top; color:<%= normal %>; width: <%= strContent %>;">
         	<div id="content" style="margin: <%= contentMargin %>; width: <%= contentWidth %>;">
          <% If request("search") = "true" Then %>
              <!--#include virtual="/includes/pages/sogning.asp"-->

          <% ElseIf request("siteMap") = "true" Then %>
              <!--#include virtual="/includes/pages/siteMap.asp"--> 
         <% ElseIf request("send") = "ja" Then %>
           <!--#include virtual="/includes/pages/send.asp"-->
          <% Else 

	strSQL = "SELECT indhold FROM indhold WHERE ID = " & ID 
	Set rs = connection.Execute(strSQL)
	If Not (rs.EOF or rs.BOF) Then

   Response.Write rs("indhold")


	End if 
             End if
   %><!--#include virtual="/includes/pages/gallery.asp"--><% 
   sitemap =request("sitemap")
  if ID = 8 AND sitemap <> "true" then %>
    <!--#include virtual="/includes/pages/nyhedsbrev.asp"--><%
 elseif ID = 10 AND sitemap <> "true" then %>
    <!--#include virtual="/includes/pages/kontaktos.asp"--><%
  elseif ID = 128 AND sitemap <> "true" then %>
    <!--#include virtual="/includes/pages/guestbook.asp"--><%
 end if %>
        &nbsp;
     </div>
   </div>
         </td>
<%
strImg = Request.Querystring("img")

If pID <> "" Then
uside = "&pID=" & pID
Else
uside = ""
End if

If strImg = "" Then

If Not strId = "0" Then

	If strId = "" Then

		strId = ID

	End if

	strId = CLng(strId)

	strSQL = "SELECT indhold.gallery FROM indhold WHERE indhold.id=" & strId	
	Set galRs = connection.Execute(strSQL)
	If Not (galRs.EOF or galRs.BOF) Then

		If Not galRs("gallery") = "" or Not galRs("gallery") = "0" Then

			strSQL = "SELECT gallery_folder.name as gal_name,gallery_image.id,gallery_image.name,gallery_image.type,gallery_image.headline,gallery_image.alt,gallery_image.hidden,gallery_folder.hidden FROM gallery_image,gallery_folder WHERE gallery_image.gallery=" & galRs("gallery") & " AND gallery_image.hidden=False AND gallery_folder.id=" & galRs("gallery") & " AND gallery_folder.hidden=False ORDER BY gallery_image.order"
			Set imgRs = connection.Execute(strsQL)
			If Not (imgRs.EOF or imgRs.BOF) Then

				tableSkift = 0

				Session("gallery") = ""

				i = (0 - 1)
%>
<br>
<div style="background-color:<%=galleryBorder%>;height:18px;padding-top:2px;padding-left:10px;;color:<%=galleryTekst%>">
<b>Galleri: <%=imgRs("gal_name")%></b>
</div>
<table border="0" cellpadding="2" cellspacing="10" style="width:100%;">
<tr>
<%
			 Do While Not (imgRs.EOF or imgRS.BOF)

				If Session("gallery") = "" Then

					Session("gallery") = imgRs("id")

				Else

					Session("gallery") = Session("gallery") & "," & imgRs("id")

				End if

				If tableSkift = 3 Then

					Response.Write " </tr>" & vbCrlf
					Response.Write " <tr>"

					tableSkift = 1
				Else

					tableSkift = tableSkift + 1

				End if

				i = i + 1

%>
<td style="text-align:center;border:1px solid <%=galleryBorder%>;height:125px;width:33%;padding-bottom:3px;">
 <a href="/default.asp?ID=<%=ID%><%= uside %>&img=<%=i%>" target="_self"><img src="/data/gallery/thumb/<%=imgRs("id")%>.<%=imgRs("type")%>" border="0" alt="<%=imgRs("alt")%>"></a><br>
 <%=imgRs("headline")%>
</td>
<%
			 imgRs.MoveNext
			 Loop

			If tableSkift < 3 Then
			 Do While tableSkift < 3
%>
<td style="height:125px;width:33%;">&nbsp;</td>
<%
			  tableSkift = tableSkift + 1
			 Loop
			End If
%>
</tr>
</table>
<%
			End if
%>
<%
		End if
	End if
End if
Else

strImg = CLng(Request.Querystring("img"))

arrGallery = Split(Session("gallery"),",")

strSQL = "SELECT gallery_image.id,gallery_image.name,gallery_image.type,gallery_image.headline,gallery_image.alt,gallery_image.hidden FROM gallery_image WHERE gallery_image.id=" & arrGallery(strImg)
Set rs = connection.Execute(strSQL)
If Not (rs.EOF or rs.BOF) Then

strBack = strImg - 1
strNext = strImg + 1

%>
<a name="gallery"></a>
<br>
<div style="text-align:center;border:1px solid <%=galleryBorder%>;">
<div style="background-color:<%=galleryBorder%>;height:25px;padding-top:3px;">
<%
If Cint(strBack) > -1 Then
%>
<input type="button" class="galleryButton" value="&laquo; Föregående bild" onclick="document.location.href='default.asp?ID=<%=ID%><%= uside %>&img=<%=strBacK%>#gallery'"> 
<%
Else
%>
<input type="button" class="galleryButton" value="&laquo; Föregående bild" style="color:<%=galleryKnapDeaktiv%>;"> 
<%
End if
%>
<input type="button" class="galleryButton" value="Tillbaka till galleriet" onclick="document.location.href='/default.asp?ID=<%=ID%><%= uside %>'"> 
<%
If Cint(strNext) < Cint(UBound(arrGallery)+1) Then
%>
<input type="button" class="galleryButton" value="Nästa bild &raquo;" onclick="document.location.href='default.asp?ID=<%=ID%><%= uside %>&img=<%=strNext%>#gallery'"> 
<%
Else
%>
<input type="button" class="galleryButton" value="Nästa bild &raquo;" style="color:<%=galleryKnapDeaktiv%>;"> 
<%
End if
%>
</div>
<br>
<img src="/data/gallery/<%=rs("id")%>.<%=rs("type")%>" alt="">
<br><br>
<div style="background-color: <%=galleryBorder%>;text-align:left;padding:10px;color:<%=galleryTekst%>;">
<b><%=rs("headline")%></b><br>
<%
hep = rs("alt")
if hep <> "" then
hep = Replace(hep, VbCrLf, "<br>")
Response.Write hep
end if
%>
</div>
</div>
<%
End if
End if
%>
				<% If (menuPlacering = "top" OR menuPlacering = "bottom") AND menuSubAlign = "right" Then %>
					<!--#include virtual="/includes/pages/submenus_mtop.asp"-->
				<% End If %>
				<% If menuPlacering = "sub" AND menuSubAlign = "right" Then %>
					<!--#include virtual="/includes/pages/submenus_only.asp"-->
				<% End If %> 
        </tr>
       </table>
      </td>
     </tr>
		<tr>
			<td style="background: url(pictures/bg/bottom.jpg); height: <%= strBottom %>;">
				<div style="width: 865px; height: <%= strBottom %>; position: relative;" id="bottomContainer">
	    		<% If menuPlacering = "bottom" Then %>
	        	<div id="topMenuPlacement">
	        		<!--#include virtual="/includes/pages/topmenu.asp"-->
	        	</div>
	        <% End If %>
	    		<% If menuPlacering = "dropdownbottom" Then %>
	        	<div id="topMenuPlacement">
	        		<!--#include virtual="/includes/asp/menu/body_menu.inc" -->
	        	</div>
	        <% End If %>		        
	    		<% If functionsPlacement = "bottom" Then %>
	        		<!--#include virtual="/includes/pages/sitefunctions.asp"-->
	        <% End If %>		        
					&nbsp;
				</div>
			</td>
		</tr>
    </table>
   </td>
  </tr>
 </table>
</td>
<td style="background: url(/pictures/bg/bgright.jpg) top left no-repeat;">&nbsp;</td>
</tr>
</table>	
<script type="text/javascript" src="/includes/javascripts/activex.js"></script>
</body>
</html>
<%
if not session("online") = "true" then
session("online") = "true"
end if
closeConn()
%>

12 december, 2008

Nu har jag inte varit med från början men

Jag lämnar över tråden i dina kompetenta händer, jag har lite för lite tid för tillfället.

12 december, 2008

169-starsida.htm

Finns denna fil fysiskt?

Om så inte är fallet så handlar det om url-rewrite och en tilläggskomponent (ISAPI_rewrite) måte installeras på den webbserver som skall användas. (eller det kanske räcker att man sätter 404-sidan till default.asp eventuellt)

ISAPI_rewrite omvandlar då "169-starsida.htm" till en url som anropas i default.

Det kan jag inte helt säkert säga utan att titta i include filerna.

[inlägget ändrat 2008-12-12 16:15:52 av Jonas_Bo]

15 december, 2008

Mailade över lite filer till dig i fredags , skulle vara väldigt tacksam om du kunde kika på det

169-starsida.htm är som sagt egentligen default.asp som hämtar sitt innehåll från databasen

Jag har installerat ISAPI_rewrite3 men det hjälpte inte

15 december, 2008

Ja det var det jag frågade, om den fanns fysiskt eller ej, vilket du nu bekräftade. Det är ju inte säkert att den använder sig av ISAPI_rewrite, men det var en möjlighet. Den kan vara att den använder sig av 404-felside-metoden istället.

Det får du lättast reda på genom att fråga de som gjorde sajten, eller lusläsa genom includefilerna.

Endast en installation av ISAPI_rewrite hjälper nog inte. Det måste ställas in på rätt sätt för att det skall fungera, antar jag.

15 december, 2008

Här hittade jag någonting

Är det någon hjälp ?

         		<% If functionsActive = "1" Then %>		

          		<% If funcBackActive = "1" Then %>
          			<div id="backDiv" title="<%= funcBackTitle %>" onclick="location.href='/';"><%= funcBackTitle %></div>
          		<% End If %>

							<% If funcContactUsActive = "1" Then %>
          			<div id="contactDiv" title="<%= funcContactUsTitle %>" onclick="location.href='/10-<%= StripString(funcContactUsTitle) %>.htm';"><%= funcContactUsTitle %></div>
          		<% End If %>

          		<% If funcNewsLetterActive = "1" Then %>
          			<div id="newsLetterDiv" title="<%= funcNewsLetterTitle %>" onclick="location.href='/8-<%= StripString(funcNewsLetterTitle) %>.htm';"><%= funcNewsLetterTitle %></div>
          		<% End If %>

          		<% If funcSearchActive = "1" Then %>
          			<div id="searchDiv" title="<%= funcSearchTitle %>">
	               <form name="soegning" action="/<%=ID%>-<%= StripString(funcSearchSubmit) %>.htm?search=true" method="post" target="_top">
	               <input type="text" value="<%= funcSearchInputTxt %>" name="soegeord" style="width:100px; height:14px; background-color:#ffffff; color: #999999; font-size: 9px;" onfocus="clearText(this);">&nbsp;
	               <a onClick="document.soegning.submit(); return false;" style="cursor:pointer;color: <%=functionColor %>;"><%= funcSearchSubmit %></font></a>
	               </form>	          			
          			</div>
          		<% End If %>

          		<% If funcSitemapActive = "1" Then %>
          			<div id="sitemapDiv" title="<%= funcSitemapTitle %>" onclick="location.href='/<%=id%>-<%= StripString(funcSitemapTitle) %>.htm?sitemap=true';"><%= funcSitemapTitle %></div>
          		<% End If %>

          		<% If funcPrintActive = "1" Then %>
          			<div id="PrintDiv" title="<%= funcPrintTitle %>" onclick="openWindow('printPage.asp?ID=<%=ID%>',570,400)"><%= funcPrintTitle %></div>
          		<% End If %>

          		<% If funcDateActive = "1" Then %>
          			<div id="DateDiv" title="<%= funcDateTitle %>"><%= funcDateTitle %><%= FormatDateTime(Now(), funcDateFormat) %></div>
          		<% End If %>

		         <% End If %>

15 december, 2008

Om de inte har använt sig av ISAPI_rewrite så har de antagligen använt ett anpassat 404-skript (samt i IIS:en angett detta som 404-dokument under Custom Error Pages).

Du bör ta reda på vilket skript detta är (kan vara default.asp men lika väl heta något annat). Sen behöver du titta på detta skript för att förstå hur det funkar, alt. posta det här så att vi kan hjälpa till med det.

/Cluster

------------------------------------------------------

I do not fear computers. I fear the lack of them

--------> http://eforum.kicks-ass.net <---------

15 december, 2008

Här hitta jag nått som kanske hjälper lite

[iSAPI_Rewrite]

RepeatLimit 32

# Block external access to the httpd.ini and httpd.parse.errors files
RewriteRule /httpd(?:\.ini|\.parse\.errors).* / [F,I,O]
# Block external access to the Helper ISAPI Extension
RewriteRule .*\.isrwhlp / [F,I,O]
RewriteRule /(\d+)(?:-(\d+))?(?:-(\d+))?-[^?/]+\.htm(?:\?(.*))? /default.asp\?ID=$1(?2&pID=$2)(?3&tilhoerer=$3)(?4&$4:) [i,L]

15 december, 2008

Hur ser catch_visitor.asp (i mappen /includes/asp/) ut?

/Cluster

------------------------------------------------------

I do not fear computers. I fear the lack of them

--------> http://eforum.kicks-ass.net <---------

15 december, 2008

Hur ser catch_visitor.asp (i mappen /includes/asp/) ut?

Såhär

<!--#include virtual="/includes/asp/vars.asp"-->
<!--#include virtual="/includes/asp/functions.asp"-->
<!--#include virtual="/includes/asp/dbconn.asp"-->

<%
openConn()		

strSQL = "SELECT ip FROM statistik_ip WHERE ip='" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set controlRs = connection.execute(strSQL)

If controlRs.eof Then

	strPage = Request.Querystring("ID")

	If strPage = "" Then

		strSQL = "SELECT indhold.id FROM indhold WHERE niveau=1 ORDER BY sorter"
		Set rs = connection.Execute(strSQL)

		If Not (rs.EOF or rs.BOF) Then
		  strPage = rs("id")
		End if

	Else
	  strPage = strPage
	End if

	If Session("id") = "" Then

		strIp	 	= Request.ServerVariables("REMOTE_ADDR")
		strDato = Month(Now()) & "-" & Day(Now()) & "-" & Year(Now()) & " " & Time()
		strSetside 	= strPage
		strAfsender 	= Request.ServerVariables("HTTP_REFERER")
		strSprog 	= Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

			strHUA = LCase(Request.Servervariables("HTTP_USER_AGENT"))

			' Macintosh
			If Instr(strHUA,"mac") Then
				strOS = "Macintosh"

			' Windows
			ElseIf Instr(strHUA,"windows") Then
				strOS = "Windows"

			' Linux
			Else
				strOS = "Linux"
			End If


			' Netscape 6
			If Instr(strHUA,"netscape") Then
				strUA = "Netscape 6"

			' Opera
			Elseif Instr(strHUA,"opera") Then
				strUA = "Opera"

			' Konqueror
			Elseif Instr(strHUA,"konqueror") Then
				strUA = "konqueror"

			' Microsoft Internet Explorer
			ElseIf Instr(strHUA,"msie") Then
				strUA = "Microsoft Internet Explorer"

			'Mozilla
			ElseIf Instr(strHUA,"gecko") AND Instr(strHUA,"mozilla") Then
				strUA = "Mozilla"
			Else

			' Standard (ukendt browser)
			If Instr(strHUA,"compatible") Then 
				strUA = "default"

			' Netscape 4
			Elseif Left(strHUA,7) = "mozilla" Then
				strUA = "Netscape 4"
			End If	
			End if

		strBrowser 	= strUa
		strStyresys 	= strOs

		strSQL = "INSERT INTO statistik ([ip],[dato],[sider],[afsender],[sprog],[browser],[styresys]) VALUES ('" & strIp & "','" & strDato & "','" & strSetside & "','" & strAfsender & "','" & strSprog & "','" & strBrowser & "','" & strStyresys & "')"
		connection.Execute(strSQL)

		Session("pages") = strPage

		strSQL = "SELECT MAX(id) as userid FROM statistik"
		Set rs = connection.Execute(strSQL)
		If Not (rs.EOF or rs.BOF) Then

			Session("id") = rs("userid")

		End if

	Else	

		Session("pages") = Session("pages") & "," & strPage

		strSQL = "UPDATE statistik SET [sider]='" & Session("pages") & "' WHERE statistik.id=" & Session("id")
		connection.Execute(strSQL)

	End if

	strSQL = "SELECT indhold.besoegt FROM indhold WHERE indhold.ID=" & strPage
	Set rs = connection.Execute(strSQL)

	If Not (rs.EOF or rs.BOF) Then

		strBesoegt = rs("besoegt") + 1

		strSQL = "UPDATE indhold SET [besoegt]='" & strBesoegt & "' WHERE indhold.ID=" & strPage
		connection.Execute(strSQL)

	End if

End If

Set controlRs = Nothing

closeConn()
%>

15 december, 2008

Måste backa lite till detta:

Jag har fått en hemsida gjord till mig av ett företag problemet är att jag inte får den att fungera utanför deras egna servrar , de kan inte hjälpa mig

Det känns väl som att firman som plockat fram detta till dig måste kunna beskriva vilka förutsättningar som krävs för att du skall få det att fungera. Annars är ju deras levererade produkt ganska oanvändbar/värdelös.

Dvs. Jonas_Bo har helt rätt i påståendet:

Det får du lättast reda på genom att fråga de som gjorde sajten [...]

samt:

Endast en installation av ISAPI_rewrite hjälper nog inte. Det måste ställas in på rätt sätt för att det skall fungera, antar jag.

/Cluster

------------------------------------------------------

I do not fear computers. I fear the lack of them

--------> http://eforum.kicks-ass.net <---------

15 december, 2008

Har redan försökt men de verkar inte så hjälpsamma men får väll försöka igen nu när jag vet lite mera vad jag ska fråga efter

Senste svaret var väll typ att jag kunde ju göra en ny sida i bara html lite snabbt som så likadan ut

Tack för all hjälp så länge iaf

18 december, 2008

Nu har jag löst det , det var ett så enkelt fel som att hänvisningen till httpd filen gick till en tom fil och inte till min egna fil

Nu ska det bara fungera på nya webhotellet också

Länkar fungerar ej

Rekommendera Poster

hugin

Länk till kommentar

Dela på andra webbplatser

LINUX-FTW

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Jonas__B

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Anjuna Moon

Länk till kommentar

Dela på andra webbplatser

Jonas__B

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Jonas__B

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Cluster

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Cluster

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Cluster

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

hugin

Länk till kommentar

Dela på andra webbplatser

Arkiverat

Vem är online 0 Medlemmar, 0 anonym, 30 gäster (Visa hela listan)

Populära medlemmar

Publika meddelanden

Senaste som Tittar

Senaste inlägg