Hej, Stäng av Visa egna HTTP felmeddelande i IE så ser du felet i klartext, lättare att felsöka då. Fick följande felmeddelande då jag slog av Visa egna felmeddelande. Hittade svaret själv efter lite letande här på pellesoft.se....Problem med databasanslutning efter flytt från IIs5 till IIS6?
Jag håller på att flytta koden nedan från en IIS5 (Win2000) till en IIS6 server (Win2003).
Men får då bara upp följande följande fel:
___________________________________________________________________________
Sidan kan inte visas
Ett problem uppstod med sidan du försöker nå och den kan inte visas.
--------------------------------------------------------------------------------
Försök med något av följande:
Öppna startsidan för exchsrv1 och sök efter länkar till den information du vill ha.
Klicka på knappen Uppdatera eller försök igen senare.
Klicka på Sök om du vill leta efter information på Internet.
Du kan även se en lista över relaterade platser.
HTTP 500 - Internt serverfel
Internet Explorer
___________________________________________________________________________
Jag försöker anropa en SQL-server databas som ligger kvar på den gamla (Win2000) servern.
Antar att det är fel i koden då jag öppnar databasen. Har letat och försökt med olika lösningar men inte lyckats.
Har samma problem när jag ska anropa vår AS400. Där har jag märkt att problem bara uppstår då jag anropar en vy.
Kanske finns ett amband här eftersom det även är en vy i SQL-servern jag försöker anropa.
Någon som har en idé om detta?
Mvh
Fredrik
<code>
<%@ Language=VBScript %>
<% Option Explicit %>
<html>
<head>
<title>
Order i handdator detalj
</title>
<link rel=stylesheet href="../css/listor.css" type="text/css">
<!--#Include file="../Include/funktioner.asp"-->
</head>
<body>
<%
'------------ Deklarering av variabler ----------------
Dim strQuery, conn, rst
Dim AdressId, Leveranssatt
Dim raknare, rad, radfarg, radfargdatum, Gammalt_datum, Packkod_farg, Packkod_text
'------------------------------------------------------
AdressId = Request("AdressId")
Leveranssatt = Request("Levsatt")
If AdressId <> "" then
strquery= "SELECT * FROM Plockhuvud4 WHERE WarehouseArea = 'Detaljgods' AND CustomerAddressId = '" & AdressId & "' AND Pickingstatus <=1"
ElseIf Leveranssatt <> "" then
strquery= "SELECT * FROM Plockhuvud4 WHERE WarehouseArea = 'Detaljgods' AND Deliverytype = '" & Leveranssatt & "' AND Pickingstatus <=1"
Else
strquery= "SELECT * FROM Plockhuvud4 WHERE WarehouseArea = 'Detaljgods' AND Pickingstatus <=1"
End If
'------------------- Öppna databasen ---------------------
set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=MSDASQL;" & _
"Driver={SQL Server};" & _
"Server=SQL01W2K;" & _
"Database=ISABDB;" & _
"Uid=sa;" & _
"Pwd=xx"
'---------------------------------------------------------
Set rst = Server.CreateObject("ADODB.recordset")
rst.Open strQuery, conn
%>
<b>Ordrar i handdatorsystemet DETALJLAGER <% Response.Write FormatDateTime(date) & " " & time %></b>
<div id="Knappar" style="position:absolute; left:440px; top:0px; visibility: visible">
<INPUT TYPE="button" VALUE="Uppdatera" onClick="Javascript:document.location.reload();">
</div>
<div id="Text" style="position:absolute; left:550px; top:0px; visibility: visible">
Listan visar det som är kvar att plocka på <br>utskrivna ordrar.
</div>
<table border=0 cellspacing=0 cellpadding=1 rules=box>
<%
IF rst.EOF THEN
Response.Write "Det finns inga ordrar."
ELSE %>
<tr>
<%
'Rubriker
Response.Write "<th align=left width=30 valign=top></th>"
Response.Write "<th align=left width=140 valign=top>Namn</th>"
Response.Write "<th align=left width=100 valign=top>Levort</th>"
Response.Write "<th align=left width=50 valign=top>Ordernr</th>"
Response.Write "<th align=left width=10 valign=top></th>"
Response.Write "<th align=left width=170 valign=top>Godsmärke</th>"
Response.Write "<th align=left width=100 valign=top>Leveranssätt</th>"
'Response.Write "<th align=left width=80 valign=top>Lagerområde</th>"
Response.Write "<th align=right width=30 valign=top>Rader</th>"
Response.Write "<th align=right width=40 valign=top>Vikt</th>"
Response.Write "<th align=right width=10 valign=top></th>"
Response.Write "<th align=right width=40 valign=top>Krok</th>"
Response.Write "<th align=right width=50 valign=top></th>"
%>
</tr>
<tr>
<%
'Rader
raknare = 0
While not rst.EOF
raknare = raknare + 1
rad = rad + 1
radfarg = "#FFFFFF"
IF rad = 2 THEN radfarg = "#F2F2F2"
IF rad = 2 THEN rad = 0
If date > rst("Transactiondate") then
radfargdatum = "#FF5959"
End If
If date = rst("Transactiondate") then
radfargdatum = "#FFFF00"
End If
If date < rst("Transactiondate") then
radfargdatum = "#C0C0C0"
End If
If Gammalt_datum <> rst("Transactiondate") then
Response.Write "<tr>"
Response.Write "<td colspan=5 align=left valign=top bgcolor=" & radfargdatum & "><b>" & rst("Transactiondate") & "</b></td>"
Response.Write "<td colspan=9 align=left valign=top bgcolor=" & radfargdatum & "></td>"
Response.Write "</tr>"
rad = 0
End If
If rst("Pickingstatus") = 1 then
Response.Write "<td align=left valign=top>*" & rst("ActiveHandhelds") & "</td>"
else
Response.Write "<td align=left valign=top>" & rst("ActiveHandhelds") & "</td>"
End If
'Response.Write "<td align=left valign=top></td>"
Response.Write "<td align=left valign=top bgcolor=" & radfarg & ">" & Svenska(left(rst("CustomerName"),17)) & ""
Response.Write "" & left(Ta_bort_siffror(rst("CustomerAddress3")),15) & "</td>" "
Response.Write "<td align=left valign=top bgcolor=" & radfarg & ">" & rst("Ordernumber") & "
Response.Write "" & rst("Orderindex") & " "
Response.Write "" & rst("OurReference") & " "
Response.Write "" & rst("DeliveryDescription") & "</td>"
'Response.Write "<td align=left valign=top bgcolor=" & radfarg & ">" & rst("Warehousearea") & "</td>"
Response.Write "<td align=right valign=top bgcolor=" & radfarg & ">" & rst("Antal_plockrader") & "</td>"
Response.Write "<td align=right valign=top bgcolor=" & radfarg & ">" & FormatNumber(rst("Vikt"),0) & "</td>"
Response.Write "<td align=right valign=top bgcolor=" & radfarg & ">kg</td>"
Response.Write "<td align=right valign=top bgcolor=" & radfarg & ">" & FormatNumber(rst("FragilityQuantity"),0) & "</td>"
'-------------- Färger för etikettmärkning ---------------
If rst("PackingCode") = "10" then
Packkod_farg = "#66FF33"
Packkod_text = "Plannja"
ElseIf rst("PackingCode") = "11" then
Packkod_farg = "#FF9900"
Packkod_text = "Corus"
Else
Packkod_farg = "#FFFFFF"
Packkod_text = ""
End If
'---------------------------------------------------------
Response.Write "<td align=right valign=top bgcolor=" & Packkod_farg & ">" & Packkod_text & "</td>"
Gammalt_datum = rst("Transactiondate")
%>
</tr>
<%
rst.MoveNext
Wend
Response.Write raknare & " ordrar <br><br>"
END IF
rst.Close
AdressId = ""
Leveranssatt = ""
conn.Close
Set conn = nothing
Set rst = nothing
%>
</table>
</body>
</html>
</code>
Svara
Sv: Problem med databasanslutning efter flytt från IIs5 till IIS6?
//Anna-KarinSv: Problem med databasanslutning efter flytt från IIs5 till IIS6?
Mappen Include ligger i roten. Hur skriver jag för att fixa detta.
/Fredrik
------------------------------------------------------------------
Active Server Pages error 'ASP 0131'
Disallowed Parent Path
/lager/order_i_handdator_detalj.asp, line 10
The Include file '../Include/funktioner.asp' cannot contain '..' to indicate the parent directory. Sv: Problem med databasanslutning efter flytt från IIs5 till IIS6?
Det var anropet av "include" filer som var problemet
Ändrade från följande:
<code>
<!--#Include file="../Include/funktioner.asp"-->
</code>
till
<code>
<!--#Include virtual="/Include/funktioner.asp"-->
</code>
Mvh
//Fredrik