Jag include en fil men då blir utsendet helt annerlunda, för en funktion som jag ha döpt till hule. Jag skulle utforma det så här:include fil problem.
Include fil i gästboken, fungerar allt layouten funkgerar och ser ut som innnan. Men så är det inte i
hule som jag include en fil. Då ändras utsendet till något helt annat.
Include filerna har inget med grafiken att göra.Sv:include fil problem.
<-- Infoga include fil -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<-- eller fingoa include filen här istället---A
<!DOCTYPE HTML PUBLIC "-/ i/W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="javascript">
var uri = 'http://impse.tradedoubler.com/imp/img/1067/1088301?' + new String (Math.random()).substring (2, 11);
document.write('');
</script>
<script language="javascript">
var uri = 'http://impse.tradedoubler.com/imp/img/28345/1088301?' + new String (Math.random()).substring (2, 11);
document.write('
');
</script>
<%
if session("AnvändarId") ="" then
response.Redirect "../../../"
else
end if
%>
<%
set con = createobject("Adodb.connection")
con.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../../../../../db/pluget-nu.mdb") & ";"
set rst = con.execute("select * from Useracounts where id="& cLng(replace(request.querystring("Anvid"),"'","''")))
if not rst.eof then
AnvNamn = rst("Anv")
%>
<title><%=rst("Anv")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../../../css/1024-768.CSS" type="text/css">
<%
else
end if
con.close
set con = Nothing
set rst = Nothing
%>
</head>
<body>
<iframe name="menu" src="../menu.asp?AnvId=<%=cLng(Request.querystring("AnvId"))%>" framespacing="0" frameborder="0" border="0" height="50" width="100%" scrolling="no">
</iframe>
<%
response.write "<div class=Hule>"
response.write "<Table border=""0"">"
set con = server.createobject("adodb.connection")
con.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("/../../../../../db/pluget-nu.mdb") & ";"
set rst = con.execute("select * from UserAcounts where id=" & cLng(request.QueryString("AnvId")))
if not rst.eof then
response.write "<tr></tr><tr>"
response.write "<Td>" & rst("press") & "</Td>"
else
response.write "Fel uppstod försök om en stund igen."
end if
con.close
set con = Nothing
set rst = Nothing
if cLng(session("AnvändarId")) = cLng(replace(request.QueryString("AnvID"),"'","''")) then
response.write "</tr><tr>"
response.write "<td>Updatera hule</td>"
response.write "</tr><tr></tr>"
else
response.write "</tr><tr>"
response.write "<td>skicka björnbär</td>"
response.write "<td>Skapa vänskap</td>"
end if
response.write "</tr><tr></tr>"
response.write "</table>"
response.write "</div>"
%>
</body>
</html>
<code>
Hur jag än använde include, i dom 2 nämnda raderan vilket jag än använder blir det ändå samma problem.
Problemet blir att unne hållet får annat utsendet tar man bort include filen så ser det ut som vanligt, perfekt. Men jag tycker det är skumt att den klabbar så. I include filen använder jag följande kod.
<%
Funkttion DatabasAnslutning
Dim con
set con = server.creareobject("Adodb.connection")
con.open "Sökväg"
end funktion
%>
Där jag infogar databaskopplingen
skriver jag längst ner
con.close
set con = Nothing
</code>
Eller gör 1 funktion i include filen som stänger som anropas längst ner på sidan.
Sv: include fil problem.
Inklud fil:
<%
Function OpenConnection()
Set OpenConnection = CreareObject("ADODB.Connection")
OpenConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;;" & _
"Persist Security Info=False;" & _
"Data Source=" & Server.MapPath("../../../../../db/pluget-nu.mdb") & ";"
End funktion
%>
Sidan du inkluderar i:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
%>
<-- Infoga include fil -->
<%
Sub WriteHeader(Title)
%>
<!DOCTYPE HTML PUBLIC "-/ i/W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="javascript">
var uri = 'http://impse.tradedoubler.com/imp/img/1067/1088301?' + new String (Math.random()).substring (2, 11);
document.write('
');
</script>
<script language="javascript">
var uri = 'http://impse.tradedoubler.com/imp/img/28345/1088301?' + new String (Math.random()).substring (2, 11);
document.write('
');
</script>
%>
<title><%=Server.HTMLEncode(Title)%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../../../css/1024-768.CSS" type="text/css">
<%
</head>
<body>
<%
End Sub
Sub WritePresentation(AnvId, AnvNamn, AnvPress)
Response.Write "<iframe name=""menu"" src=""../menu.asp?AnvId=" & Server.URLEncode(AnvId) & """ framespacing=""0"" frameborder=""0"" border=""0"" height=""50"" width=""100%"" scrolling=""no""></iframe>"
Response.Write "<div class=Hule>"
Response.Write "<table border=""0"">"
Response.write "<tr></tr><tr>"
Response.write "<td>" & Server.HtmlEncode(AnvPress) & "</td>"
If AnvId = CLng(session("AnvändarId")) Then
Response.write "</tr><tr>"
Response.write "<td>Updatera hule</td>"
Response.write "</tr><tr></tr>"
Else
Response.write "</tr><tr>"
Response.write "<td>skicka björnbär</td>"
Response.write "<td>Skapa vänskap</td>"
End if
Response.write "</tr><tr></tr>"
Response.write "</table>"
Response.write "</div>"
End Sub
Sub WriteFooter()
%>
</body>
</html>
<%
End Sub
Dim con
Dim rst
Dim AnvId
Dim AnvNamn
If session("AnvändarId") ="" then
response.Redirect "../../../"
Else
AnvId = cLng(Request.QueryString("Anvid"))
Set con = OpenConnection()
Set rst = con.Execute("SELECT * FROM Useracounts WHERE id=" & Anvid)
If not rst.eof then
WriteHeader rst("Anv")
WritePresentation AnvId, rst("Anv"), rst("press")
WriteFooter
Else
WriteHeader "Användare saknas"
Response.write "Det finns ingen användare med angivna id!<br>" & vbCrLf & _
"Det kan bero på att du använder en gammal länk eller användaren är borttagen.<br>" & vbCrLf
WriteFooter
End if
rst.close
Set rst = nothing
con.close
Set con = Nothing
End if
%>