Untitled Document

``` Permalänk: https://www.webforum.nu/p/100114 ## #2 — @nders, 2004-03-23T08:24Z 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 Permalänk: https://www.webforum.nu/p/1305474 ## #3 — OveRRidE, 2004-03-23T08:42Z 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. Permalänk: https://www.webforum.nu/p/1305484 ## #4 — Engine^, 2004-03-23T09:29Z **OveRRidE** \- du ska inte bråka med andras kod... ;) ``` ``` 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. :) Permalänk: https://www.webforum.nu/p/1305506 ## #5 — OveRRidE, 2004-03-23T10:57Z > **Engine^ skrev:** > > **OveRRidE** \- du ska inte bråka med andras kod... ;) Jag visste att det skulle komma. ;) Permalänk: https://www.webforum.nu/p/1305563 ## #6 — Robson, 2004-03-23T12:14Z Så här ser koden ut. Gästboken är en från Gruvsjö. Texten Sponsorer/Partners kommer nedanför första kolumnen... ``` Untitled Document

[red][b] [/b][/red]

Sponsorer
Partners

``` Permalänk: https://www.webforum.nu/p/1305620 ## #7 — Engine^, 2004-03-23T12:17Z Vi är fortfarande intresserade av denna fil... ``` "> ``` Det är den du verkar ha problem med. HTML-koden runt omkring den är det inga fel på. Permalänk: https://www.webforum.nu/p/1305622 ## #8 — Robson, 2004-03-23T12:23Z Här är gastbok/gastbok.asp ``` <% '##############Ä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,"$1$2") regExp.Pattern = "([url]ftp://[/url])([\S]*)" strText = regExp.Replace(strText,"$1$2") regExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])" strText = regExp.Replace(strText,"$1") regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*) " strText = regExp.Replace(strText,"$1 ") regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)"" target=""_blank"">([^<]*)" strText = regExp.Replace(strText,""">$2") strText = Replace(Trim(strText),vbCrLf, "
") 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%> <%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db If Request.Querystring("do")= "" Then%>

Gästboken
Ditt namn:	Rubrik:
Din e-mail: valfritt	Hemsida: valfritt
Meddelande:

<%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%>

Inget har skrivit i gästboken.

<%Else%>
<%With RecSet .MoveFirst .PageSize = InlaggPerSida .AbsolutePage = sida End With Sidor = RecSet.PageCount If Sidor > 1 Then%>

<%For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=FixDigits(Sid,2)%><%Else%> <%=FixDigits(Sid,2)%> <%End If Next%>

<%End If X = 0 Do While Not RecSet.EOF And X < RecSet.PageSize%> <%If Recset("svar") <> "" Then%> <%End If%>

<%=Recset("rubrik")%> \| <%=Recset("namn")%>	(<%=FormatDateTime(RecSet("datum"),4)%>)"> <%If RecSet("url") <> "" Then%>" target="_blank">"> <%End If%><%If RecSet("mail") <> "" Then%>">"><%End If%>
<%=Link(RecSet("msg"))%>

Svar: <%=Replace(RecSet("svar"), vbCrLf, " ")%>

<%X = X+ 1 Recset.MoveNext Loop If Sidor > 1 Then%>

<%For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=FixDigits(Sid,2)%><%Else%> <%=FixDigits(Sid,2)%> <%End If Next%>

<%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%>