Point til medion og netsrac

http://www.eksperten.dk/spm/189401

http://www.eksperten.dk/spm/189380

Så lidt :-)

svar

Mine nye bedste venner :o)

Har længe skullet finde ud af det. Tak for hjælpen.

*G* well, fair nok..! ;-)

Ps. stav lige mit nickname ordentlig en anden gang ;-()

Thx 4 Poinz

//>Rune

Sorry, medions :o)

Jeg har mistet min stavekontrol til MSIE :o)

;-)

//>Rune

Jeg har vist sovet lidt i timen :o)

Jeg efterlyste egentlig noget, som kunne vise hvornår et indlæg bliver postet. Altså dato og tidspunkt for, hvornår det blev sendt. Kan I hjælpe med det?

Det her udskriver jo den aktuelle dato og det aktuelle tidspunkt.

Så skal du bare smide Now() i et felt i din database :)

Jeg skal lige se på, hvad vi i det hele taget kom frem til

Hm, kunne du lave koden? Du skal nok få point for det :o)

Jamen det er jo ikke så svært, læg koden som sætter et indlæg ind, så skal jeg lige flette det ind.

<%
if request.form("send_debatemne") >"" then
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

strSQL = "insert into debat (nick, emne, brodtekst, kommentar) values('" & Replace(Request.Form("nick"),"'","''") & "', '" & Replace(Request.Form("emne"),"'","''") & "', '" & Replace(Request.Form("brodtekst"),"'","''") & "', '" & Replace(Request.Form("kommentar"),"'","''") & "')"
Conn.Execute(strSQL)
response.redirect ("default.asp")

Conn.Close
Set Conn = nothing
end if
%>

Så laver du bare et tekst felt der hedder tid og bruger denne sql:

strSQL = "insert into debat (nick, emne, brodtekst, kommentar, tid) values('" & Replace(Request.Form("nick"),"'","''") & "', '" & Replace(Request.Form("emne"),"'","''") & "', '" & Replace(Request.Form("brodtekst"),"'","''") & "', '" & Replace(Request.Form("kommentar"),"'","''") & "','" & Now() & "')"

netsrac, kan du ikke besvare denne her: http://www.eksperten.dk/spm/190025

Hov, når jeg skal trække det ud, hvordan skal koden så se ud?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT emneID, nick, emne, brodtekst, kommentar FROM debat WHERE emneID = " & Request.QueryString("emneID")
Set RS = Conn.Execute (SQL)

while NOT RS.EOF
    response.write "<tr><td><span class=""overskrift17""><b>" &  RS("emne") & "</b></span></td></tr>"
    response.write "<tr><td><span class=""tekst11"">" & "<i>" & "Af: " & "</i>" &  RS("nick") & "</span></td>"
    response.write "<tr><td colspan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
    response.write "<tr><td><span class=""tekst11""><b><p align=""justify"">" & RS("brodtekst") & "</p></b></span></td>"
    kommentar = replace( RS("kommentar"),vbcrLF,"<br>")
    response.write "<tr><td colspan=""2""><span class=""tekst11""><p align=""justify"">" & kommentar & "</p></span></td></tr>"
RS.MoveNext
text=""
wend
response.write "<tr><td colspan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Jeg har sat det her ind, og det virker .... næsten:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT emneID, nick, tid, emne, brodtekst, kommentar FROM debat WHERE emneID = " & Request.QueryString("emneID")
Set RS = Conn.Execute (SQL)

while NOT RS.EOF
    response.write "<tr><td colspan=""2""><span class=""overskrift17""><b>" &  RS("emne") & "</b></span></td></tr>"
    response.write "<tr><td><span class=""tekst11"">" & "<i>" & "Af: " & "</i>" &  RS("nick") & "</span></td>"
    response.write "<td><span class=""tekst11"">" & RS("tid") & "</span></td></tr>"
    response.write "<tr><td colspan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
    response.write "<tr><td colspan=""2""><span class=""tekst11""><b><p align=""justify"">" & RS("brodtekst") & "</p></b></span></td>"
    kommentar = replace( RS("kommentar"),vbcrLF,"<br>")
    response.write "<tr><td colspan=""2""><span class=""tekst11""><p align=""justify"">" & kommentar & "</p></span></td></tr>"
RS.MoveNext
text=""
wend
response.write "<tr><td colspan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Hvor går det galt i kodningen?

Hvad sker der, som der ikke burde ske ? Det er jo ikke nemt uden en fejlmeddelse :)

Den er sådan set i orden mht. datoen. Se ovenstående. Men tabellen driller :o(

Hvordan driller ? Du bliver nød til at forklare det noget bedre hvis man skal hjælpe dig, kan godt være jeg er god, men er ikke gud *g*

SORRY! Jeg mente du var på opgaven :o)

http://www.eksperten.dk/spm/190068