Tagwall !!!

http://www.webcafe.dk/artikler/php/phpmysqlgaestebog/ < der er en tourial på en gæstebog.. du kan evt. lave den om til tagwall..

Okay.. Så det du mener er, at du har skrevet en hel gæstebog, men kan ikke finde ud af at poste data til den!?

I så fald, så skal du skrive noget kode, så vi kan kigge på den. Hvis det ikke er det du mener, så er jeg ikke helt sikker på, at jeg forstår spørgsmålet! ;)

Mvh,

Thomas Regin.

Prøv at kigge lidt på denne tagwall...
Så finder du nok ud af det:

http://www.hg.markjensen.dk/scripts/asp/zip/tagwall.zip

schnitz_dk --> Kategorien er ASP :)

schnitz >> Tror nærmere det er noget i ASP han søger.

Ja det skal helst være ASP ... tjekker lige linksene! :)

Kan ikke åbne http://www.hg.markjensen.dk/scripts/asp/zip/tagwall.zip ... :( har nogle problemer med WinZip!

Hmm... se dette så som er indsæt siden:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("tagwall.mdb")
Conn.Open DSN

Function RemoveHTML(strContent)
Do
pos = 1
tmpBegin = InStr(pos,strContent,"<")
If tmpBegin > 0 Then
pos = tmpBegin
If LCase(mid(strContent,tmpBegin,7)) = "<script" Then
tmpEnd = Instr(tmpBegin,LCase(strContent),"</script>")
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-8)
ElseIf LCase(mid(strContent,tmpBegin,2)) = Chr(60) & "%" Then
tmpEnd = Instr(tmpBegin,LCase(strContent),"%" & Chr(62))
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd-3)
Else
tmpEnd = InStr(pos,strContent,">")
If tmpEnd > 0 Then
strContent = Left(strContent,tmpBegin-1) & Right(strContent,Len(strContent)-tmpEnd)
Else
strContent = Left(strContent,tmpBegin-1)
Exit Do
End If
End If
Else
Exit Do
End If
Loop
RemoveHTML = strContent
End Function

dim Navn
Navn = Request.Form("Navn")

dim Besked
Besked = Request.Form("Besked")

If Navn = "" AND Besked = "" Then
Response.Redirect "tilfoj.asp?fejl=1"

Elseif Navn = "" Then
Response.Redirect "tilfoj.asp?fejl=Navn"

Elseif Besked = "" Then
Response.Redirect "tilfoj.asp?fejl=Besked"

End if

strNavn = RemoveHTML(Request.Form("Navn"))
strEmail = RemoveHTML(Request.Form("Email"))
If StrComp(strEmail, "", 1 ) = 0 Then strEmail = "Ingen e-mail"
strHjemmeside = RemoveHTML(Request.Form("Hjemmeside"))
If StrComp(strHjemmeside, "http://", 1 ) = 0 Then strHjemmeside = "Ingen hjemmeside"
strDato = Now
strBesked = RemoveHTML(Request.Form("Besked"))

strSQL = "Insert into Tagwall (Navn, Email, Hjemmeside, Dato, Besked) values('"& strNavn &"', '"& strEmail &"', '"& strHjemmeside &"',  '"& strDato &"', '"& strBesked & "')"


Conn.Execute(strSQL)


Conn.Close
Set Conn = Nothing

Response.Redirect "tagwall.asp"
%>

Nej, jeg har skrevet dette:

Navn:
[INPUT]

E-mail:
[INPUNT]

Besked:
[TEXTAREA]

... Men kan ikke finde ud af at få kodet det således, at de besøgendes beskeder - altså det som de udfylder i formularen - bliver "posted" altså skrevet i gæstebogen!

Glem den sidste besked! :P

Er ikke helt med på hvordan jeg skal 'bearbejde' den kode ... altså hvor og hvordan skal den bruges!! :/

Jeg må indrømme jeg kender faktisk næsten intet til ASP ... dett er jo netop derfor jeg spørger de kloge hoveder! :D

den bliver da postet : http://www.hg.markjensen.dk/scripts/asp/test/tagwall/tagwall.asp

JA!! Det er lige præcis sådan én jeg leder efter!! Hvordan har du kodet den??

... Kan ikke downloade den?!??

Hmm...

Jeg har smidt indsæt side koden i mit indlæg 18:58:34 kig lidt på den.

Ja okay. Men du må ikke tro at jeg sådan lige kan "gennemskue" den kode, for jeg er sQ en skovl til ASP! :D
Det mest avancerede jeg har lavet i ASP var en dato!

Kan du forklare dig lidt nærmere .. ??

Prøv lige at læse lidt her først:

http://www.html.dk/tutorials/asp/

I skal alle have mange tak for jeres indsats. Det svar jeg har fået mest ud af er midlertidigt exp-ralles.

Jeg takker