R Robson Medlem sedan dec. 2001 200 inlägg Trådstart 23 mars 2004 08:20 #1 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>
@nders Medlem sedan juni 2000 32 967 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
O OveRRidE Medlem sedan feb. 2001 12 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. 2000 3 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.
O OveRRidE Medlem sedan feb. 2001 12 078 inlägg
Engine^ skrev:
OveRRidE - du ska inte bråka med andras kod...
Jag visste att det skulle komma.
R Robson Medlem sedan dec. 2001 200 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. 2000 3 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å.
R Robson Medlem sedan dec. 2001 200 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. 2000 3 887 inlägg Tja... jag såg inga fel någonstans.
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.
