RobsonMedlem sedan dec. 2001200 inlägg Hej,
Får inte detta att funka. Har en gästbok som ligger i mappen gastbok. Den tar mer utrymme än den tänkta kolumnen samt att gästboken inte funkar...
Tycker inte den inkluderade filen borde bli större än 417 p ??
Vill inte ha en iframe.
Robson
<table width="772" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="205" valign="top" background="Images/LowerBkgr.gif"><img src="Images/LeftBkgr.gif" width="205" height="364" usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="124,77,180,92" href="gastbok.asp"><area shape="rect" coords="135,58,172,70" href="Default.asp"></map>
</td>
<td width="417" valign="top" bgcolor="#FFFFFF"> <br>
<!--#Include file="gastbok/gastbok.asp"--> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font></td>
<td width="150" bgcolor="#000000" valign="top">
<div align="center">
<table width="140" border="0" cellspacing="3" cellpadding="0" align="center">
<tr>
<td>
<div align="center"><img src="Images/Sponsorer/test.jpg" width="140" height="54"></div>
</td>
@ndersMedlem sedan juni 200032 969 inlägg Du får felsöka den resulterande html-koden.
"Inte funkar" är också en mycket dålig felbeskrivning, som egentligen bara kan resultera i svaret "jaha, då får du se till att laga den då."
Mvh
OveRRidEMedlem sedan feb. 200112 078 inlägg Om din includefil innehåller HTML-element som är specifierat bredare än 417 px, så kommer de att 'override:a' de element som de ligger i.
Engine^Medlem sedan dec. 20003 887 inlägg OveRRidE - du ska inte bråka med andras kod... ;)
<td width="417" valign="top" bgcolor="#FFFFFF"> <br>
<!--#Include file="gastbok/gastbok.asp"--> [red][b]<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
</font>[/b][/red]</td>
Det rödmarkerade gör ju absolut ingen nytta...
Som @nders sa: hur ser din gastbok.asp ut? Det är där det inte fungerar som det ska. Vill du inte fixa det själv får du allt lov att visa hur koden ser ut. :)
OveRRidEMedlem sedan feb. 200112 078 inlägg
Engine^ skrev:
OveRRidE - du ska inte bråka med andras kod... ;)
Jag visste att det skulle komma. ;)
RobsonMedlem sedan dec. 2001200 inlägg Så här ser koden ut. Gästboken är en från Gruvsjö. Texten Sponsorer/Partners kommer nedanför första kolumnen...
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="gastbok/style.css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="772" border="0" cellspacing="0" cellpadding="0">
<td width="205" valign="top"><img src="Images/LeftBkgr.gif" width="205" height="364"></td>
<td width="417" valign="top"><!--#Include file="gastbok/gastbok.asp"--></td>
<td width="150" valign="top"><font color="#000000">Sponsorer<br>
Partners </font></td>
</table>
</body>
</html>
Engine^Medlem sedan dec. 20003 887 inlägg Vi är fortfarande intresserade av denna fil...
"><!--#Include file="gastbok/gastbok.asp"-->
Det är den du verkar ha problem med. HTML-koden runt omkring den är det inga fel på.
RobsonMedlem sedan dec. 2001200 inlägg Här är gastbok/gastbok.asp
<link rel="stylesheet" type="text/css" href="gastbok/style.css">
<%
'##############ÄNDRA DETTA#############################
InlaggPerSida = 3 ' Antal nyhetsrubriker per sida
INC = "gastbok.asp" ' Sidan du inkluderar gastbok.asp i
db = Server.MapPath("gastbok/db/gastbok.mdb") ' Databasens sökväg
'#####################################################
Function Link(strText)
strText = Server.HTMLEncode(strText)
Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true
regExp.Pattern = "([url]http://[/url]|www)([\S]*)"
strText = regExp.Replace(strText,"<a href=""http://$1$2"" target=""_blank"">$1$2</a>")
regExp.Pattern = "([url]ftp://[/url])([\S]*)"
strText = regExp.Replace(strText,"<a href=""$1$2"" target=""_blank"">$1$2</a>")
regExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])"
strText = regExp.Replace(strText,"<a href=""mailto:$1"" target=""_blank"">$1</a>")
regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)</a> "
strText = regExp.Replace(strText,"</a>$1 ")
regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)"" target=""_blank"">([^<]*)</a>"
strText = regExp.Replace(strText,""">$2</a>")
strText = Replace(Trim(strText),vbCrLf, "<br>")
strText = Replace(Trim(strText),"http://http://", "http://")
Link = strText ' Skriver ut texten, uppdelad och fin!
End Function
Function Fixa(str)
Fixa = Replace(Trim(str),"'","''")
End function
Function FixDigits(Value,Digits)
FixDigits = Space(Digits) & Value
FixDigits = Right(FixDigits,Digits)
FixDigits = Replace(FixDigits," ","0")
End Function%>
<!--
##########################################
Gruvsjo Gästbok v3
Åsa Gruvsjö ©
[url]www.gruvsjo.com[/url]
[email]Asa@gruvsjo.com[/email]
Fri att använda om ni låter copyrightkoden stå kvar!
##########################################
-->
<script src="gastbok/js.js"></script>
<table cellpadding="1" cellspacing="0" width="370" border="0">
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
If Request.Querystring("do")= "" Then%>
<table border="0" width="370" align="center" cellpadding="3" cellspacing="0">
<form method="post" action="<%=INC%>?do=add" name="gastbok" onSubmit="return Gb()">
<tr>
<td colspan="2" style="border-bottom: 1px solid #000000"><font size="2"><b>Gästboken</b></font></td></tr>
<tr>
<td width="80"><b>Ditt namn:</b><br><input type="text" name="namn" size="25"></td>
<td><b>Rubrik:</b><br><input type="text" name="rubrik" size="25"></td>
</tr>
<tr>
<td><b>Din e-mail:</b> valfritt<br><input type="text" name="mail" size="25"></td>
<td><b>Hemsida:</b> valfritt<br><input type="text" name="url" size="25"></td>
</tr>
<tr>
<td valign="top" colspan="2"> <b>Meddelande:</b><br><textarea name="msg" cols="50" rows="8"></textarea></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Posta inlägg"></td>
</tr>
</form>
</table>
<%Set Recset = Server.CreateObject("ADODB.Recordset")
' Sidscriptet är nerladdat från [url]http://www.fatmilk.nu/[/url]
' Skrivet av Ludvig "geek" Lindblom
' [email]geek@fatmilk.nu[/email]
Sidan = Request.QueryString("next")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
With RecSet
.CursorLocation = 3
.CacheSize = InlaggPerSida
End With
SQL = "Select * From gastbok Order By datum desc"
RecSet.Open SQL, Conn
If RecSet.EOF Then%>
<br>
<table border="0" width="370" align="center" cellpadding="3" cellspacing="0">
<tr>
<td><i>Inget har skrivit i gästboken.</i></td>
</tr>
</table>
<%Else%>
<br>
<%With RecSet
.MoveFirst
.PageSize = InlaggPerSida
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount
If Sidor > 1 Then%>
<table border="0" width="370" align="center" cellpadding="3" cellspacing="0" style="border: 1px solid #000000">
<tr>
<td valign="top" bgcolor="#98A9E4">
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><b><%=FixDigits(Sid,2)%></b><%Else%> <a href="<%=INC%>?next=<%=Sid%>"><%=FixDigits(Sid,2)%></a> <%End If
Next%>
</td>
</tr>
</table>
<br>
<%End If
X = 0
Do While Not RecSet.EOF And X < RecSet.PageSize%>
<table border="0" width="370" align="center" cellpadding="3" cellspacing="0" style="border: 1px solid #000000">
<tr>
<td bgcolor="#98A9E4" width="300"><b><%=Recset("rubrik")%></b> | <%=Recset("namn")%></td><td align="right" bgcolor="#98A9E4" width="100"><img src="gastbok/bilder/klocka.gif" border="0" alt="<%=FormatDateTime(RecSet("datum"),2)%> (<%=FormatDateTime(RecSet("datum"),4)%>)"> <%If RecSet("url") <> "" Then%><a href="<%=RecSet("url")%>" target="_blank"><img src="gastbok/bilder/homepg.gif" border="0" alt="<%=RecSet("url")%>"></a> <%End If%><%If RecSet("mail") <> "" Then%><a href="mailto:<%=RecSet("mail")%>"><img src="gastbok/bilder/email.gif" border="0" alt="<%=RecSet("mail")%>"></a><%End If%></td>
</tr>
<tr>
<td colspan="2"><%=Link(RecSet("msg"))%></td>
</tr>
<%If Recset("svar") <> "" Then%>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2"><b>Svar:</b> <i><%=Replace(RecSet("svar"), vbCrLf, "<br>")%></i></td>
</tr>
<%End If%>
</table>
<br>
<%X = X+ 1
Recset.MoveNext
Loop
If Sidor > 1 Then%>
<table border="0" width="370" align="center" cellpadding="3" cellspacing="0" style="border: 1px solid #000000">
<tr>
<td valign="top" bgcolor="#98A9E4">
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><b><%=FixDigits(Sid,2)%></b><%Else%> <a href="<%=INC%>?next=<%=Sid%>"><%=FixDigits(Sid,2)%></a> <%End If
Next%>
</td>
</tr>
</table>
<%End If
Recset.Close
Set Recset = Nothing
End If
ElseIf Request.QueryString("do") = "add" Then
Namn = Request.Form("namn")
Rubrik = Fixa(Request.Form("rubrik"))
Mail = Request.Form("mail")
Msg = Fixa(Request.Form("msg"))
Ip = Request.Servervariables("REMOTE_ADDR")
Url = Request.Form("url")
If Url <> "" Then
If Left(Url,7) = "http://" Then
Url = Url
Else
Url = "http://" & Url
End If
End If
Conn.Execute("Insert Into gastbok(namn, mail, url, msg,ip, rubrik) Values('"& namn &"','"& mail &"','"& url &"','"& msg &"','"& Ip &"','"& rubrik &"')")
Response.Redirect INC
End If
Conn.Close
Set Conn=Nothing%>
</table>
Engine^Medlem sedan dec. 20003 887 inlägg Tja... jag såg inga fel någonstans. :l
Du lär behöva utveckla "gästboken inte funkar" en hel del. Bredden på själva gästboken är bara 370, så där ska inte uppstå några bekymmer.
