Notifikationer

Markér alle som læst Log ud

steen_hansen Forsker

19. februar 2002 - 22:25 Der er 19 kommentarer og
1 løsning

Få tidspunkt for indlæg

Hvis en bruger poster et indlæg, vil jeg gerne have serverens tidsvisning angivet, både dato og hh:mm. I dansk tidsformat, selvølgelig.

Jeg har noget kode her:

<%
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 TOP 5 * FROM debat ORDER BY ID DESC"
Set RS = Conn.Execute( SQL )

while NOT RS.EOF
text=RS("kommentar")
text = replace(text,vbcrLF," ")
response.write "<tr><td>" & "Forfatter: " & "" & "" & RS("nick") & "</td></tr>"
response.write "<tr><td>" & "Emne: " & "" & "" & RS("emne") & "" & "</td></tr>"
response.write "<tr><td col span=""2"">" &text & " " & "" & "Login for at deltage i debatten" & "" & "</td></tr>"
response.write "<tr><td colpan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
RS.MoveNext
text=""
wend

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

Synes godt om

excession Nybegynder

19. februar 2002 - 22:28 #1

du skal have et felt i databasen i indlæg tabellen som hedder f.eks. dato

når brugeren så poster et indlæg skal du også tilføje datoen..

dato = Time

osv..

-- xs

Synes godt om

steen_hansen Forsker

19. februar 2002 - 22:34 #2

Hej igen, excession!

Hvordan skal det se ud i koden, når tid og dato skal ned i databasen?

Og hvordan skal de se ud, når det skal trækkes ud på siden?

Synes godt om

steen_hansen Forsker

19. februar 2002 - 22:37 #3

Jeg har tilføjet to recordset i databasen: "dato" og "tid". "dato" har fået langt datoformat, og "tid" har fået langt klokkeslætsformat.

Nu skal det ned i databasen, og trækkes ud på siden. I et dansk format.

Synes godt om

excession Nybegynder

19. februar 2002 - 22:43 #4

Her er et _eksempel_ på hvordan du sætter det ind i databasen:

nick = request.form("brugernavn")
indlaeg = request.form("indlaeg")
opretdato = Time

strSQL = "INSERT INTO debat (nick, indlaeg, opretdato) VALUES ("
strSQL = strSQL & "'" & brugernavn & "', "
strSQL = strSQL & "'" & indlaeg & "', "
strSQL = strSQL & "#" & opretdato &"#, "
strSQL = strSQL & ");"

når du vil have det ud igen skal det se sådan 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 TOP 5 * FROM debat ORDER BY ID DESC"
Set RS = Conn.Execute( SQL )

while NOT RS.EOF
text=RS("kommentar")
text = replace(text,vbcrLF," ")
response.write "<tr><td>" & "DATO OG TID: " & "" & "" & RS("opretdato") & "</td></tr>"
<tr><td>" & "Forfatter: " & "" & "" & RS("nick") & "</td></tr>"
response.write "<tr><td>" & "Emne: " & "" & "" & RS("emne") & "" & "</td></tr>"
response.write "<tr><td col span=""2"">" &text & " " & "" & "Login for at deltage i debatten" & "" & "</td></tr>"
response.write "<tr><td colpan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
RS.MoveNext
text=""
wend

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

-- xs

Synes godt om

excession Nybegynder

19. februar 2002 - 22:49 #5

nå ok.. så skal koden for indsættelse i databasen se sådan ud:

nick = request.form("brugernavn")
indlaeg = request.form("indlaeg")
dato = FormatDateTime(Now, 1)
tid = FormatDateTime(Now, 4)

strSQL = "INSERT INTO debat (nick, indlaeg, dato, tid) VALUES ("
strSQL = strSQL & "'" & brugernavn & "', "
strSQL = strSQL & "'" & indlaeg & "', "
strSQL = strSQL & "#" & dato &"#, "
strSQL = strSQL & "#" & tid &"# "
strSQL = strSQL & ");"

-- xs

Synes godt om

excession Nybegynder

19. februar 2002 - 22:51 #6

og når du hiver dato og tid ud skal det se sådan 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 TOP 5 * FROM debat ORDER BY ID DESC"
Set RS = Conn.Execute( SQL )

while NOT RS.EOF
text=RS("kommentar")
text = replace(text,vbcrLF," ")
response.write "<tr><td>" & "DATO OG TID: " & "" & "" & RS("dato") & "-" & RS("tid") & "</td></tr>"
<tr><td>" & "Forfatter: " & "" & "" & RS("nick") & "</td></tr>"
response.write "<tr><td>" & "Emne: " & "" & "" & RS("emne") & "" & "</td></tr>"
response.write "<tr><td col span=""2"">" &text & " " & "" & "Login for at deltage i debatten" & "" & "</td></tr>"
response.write "<tr><td colpan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
RS.MoveNext
text=""
wend

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

-- xs

Synes godt om

excession Nybegynder

19. februar 2002 - 22:52 #7

jeg har tiføjet linien her i din kode:

"<tr><td>" & "DATO OG TID: " & "" & "" & RS("dato") & "-" & RS("tid") & "</td></tr>"

-- xs

Synes godt om

steen_hansen Forsker

19. februar 2002 - 22:57 #8

Hmmm - jeg prøver lige at finde ud af dine indlæg. Vender tilbage lige om lidt.

Min indtastnings-formular ser sådan her ud (er inkluderet i default.asp):

<form method="POST" action="default.asp">
<table border="0" cellpadding="6" cellspacing="0" width="100%" class="tekst11" bgcolor="#EEEEEE">
<tr>
<td colspan="2">
Indtast debatemne
</td>
</tr>
<tr>
<td>Forfatter:</td>
<td><input type="text" name="nick" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td>Emne:</td>
<td><input type="text" name="emne" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td valign="top">Kommentar:</td>
<td><textarea rows="15" name="kommentar" style="background-color: #ffff99;" cols="51" id="input"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send debatemne" name="send_debatemne" id="input">    <input type="reset" value="Nulstil" name="nulstil" id="input"></td>
</tr>
</table>
</form>

Mit udtræk ser sådan her 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 TOP 5 * FROM debat ORDER BY ID DESC"
Set RS = Conn.Execute( SQL )

while NOT RS.EOF
text=RS("kommentar")
text = replace(text,vbcrLF," ")
response.write "<tr><td>" & "Forfatter: " & "" & "" & RS("nick") & "</td></tr>"
response.write "<tr><td>" & "Emne: " & "" & "" & RS("emne") & "" & "</td></tr>"
response.write "<tr><td col span=""2"">" &text & " " & "" & "Login for at deltage i debatten" & "" & "</td></tr>"
response.write "<tr><td colpan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
RS.MoveNext
text=""
wend

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

Synes godt om

steen_hansen Forsker

19. februar 2002 - 23:01 #9

Sorry, kode til formularfelter:

<%
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, kommentar) values('" & Request.Form("nick") & "', '" & Request.Form("emne") & "', '" & Request.Form("kommentar") & "')"

Conn.Execute(strSQL)

response.redirect ("default.asp")

Conn.Close
Set Conn = nothing
end if
%>

Og formular:

<form method="POST" action="default.asp">
<table border="0" cellpadding="6" cellspacing="0" width="100%" class="tekst11" bgcolor="#EEEEEE">
<tr>
<td colspan="2">
Indtast debatemne
</td>
</tr>
<tr>
<td>Forfatter:</td>
<td><input type="text" name="nick" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td>Emne:</td>
<td><input type="text" name="emne" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td valign="top">Kommentar:</td>
<td><textarea rows="15" name="kommentar" style="background-color: #ffff99;" cols="51" id="input"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send debatemne" name="send_debatemne" id="input">    <input type="reset" value="Nulstil" name="nulstil" id="input"></td>
</tr>
</table>
</form>

Synes godt om

steen_hansen Forsker

19. februar 2002 - 23:09 #10

excession, når brugeren poster et indlæg, benytter jeg ovenstående formular og kode. Men det kan vel ikke forenes med dit forslag? Hvordan skal jeg få dit til at passe ind i mit?

Synes godt om

excession Nybegynder

19. februar 2002 - 23:10 #11

ok så skal den her linie fra din kode se sådan ud:

dato = FormatDateTime(Now, 1)
tid = FormatDateTime(Now, 4)

strSQL = "insert into debat (nick, emne, kommentar, dato, tid) values('" & Request.Form("nick") & "', '" & Request.Form("emne") & "', '" & Request.Form("kommentar") & "', #" & dato & "#, & #" & tid & "#& "')"

-- xs

Synes godt om

steen_hansen Forsker

19. februar 2002 - 23:19 #12

Det hjalp ikke? Der er ikke noget som helst, hvor dato og tid burde stå?

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

dato = FormatDateTime(Now, 1)
tid = FormatDateTime(Now, 4)

'strSQL = "insert into debat (nick, emne, kommentar) values('" & Request.Form("nick") & "', '" & Request.Form("emne") & "', '" & Request.Form("kommentar") & "')"
strSQL = "insert into debat (nick, emne, kommentar, dato, tid) values('" & Request.Form("nick") & "', '" & Request.Form("emne") & "', '" & Request.Form("kommentar") & "', #" & dato & "#, & #" & tid & "#& "')"

Conn.Execute(strSQL)

response.redirect ("default.asp")

Conn.Close
Set Conn = nothing
end if
%>

Synes godt om

steen_hansen Forsker

19. februar 2002 - 23:21 #13

Skal jeg ikke benytte

request.form("dato")
request.form("tid")

?

Synes godt om

excession Nybegynder

19. februar 2002 - 23:28 #14

nej bare som du har ovenover

hvad melder den af fejl ?

-- xs

Synes godt om

steen_hansen Forsker

19. februar 2002 - 23:29 #15

Ingen fejl, men heller ingen dato, intet tidspunkt

Synes godt om

steen_hansen Forsker

19. februar 2002 - 23:44 #16

... ingenting

Synes godt om

steen_hansen Forsker

19. februar 2002 - 23:55 #17

Vi snakkes ved i morgen?

Synes godt om

excession Nybegynder

20. februar 2002 - 00:24 #18

og du lavede dit udtræk med det her? :

<%
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 TOP 5 * FROM debat ORDER BY ID DESC"
Set RS = Conn.Execute( SQL )

while NOT RS.EOF
text=RS("kommentar")
text = replace(text,vbcrLF," ")
response.write "<tr><td>" & "DATO OG TID: " & "" & "" & RS("dato") & "-" & RS("tid") & "</td></tr>"
<tr><td>" & "Forfatter: " & "" & "" & RS("nick") & "</td></tr>"
response.write "<tr><td>" & "Emne: " & "" & "" & RS("emne") & "" & "</td></tr>"
response.write "<tr><td col span=""2"">" &text & " " & "" & "Login for at deltage i debatten" & "" & "</td></tr>"
response.write "<tr><td colpan=""2""><img src=""/images/bundlinie.gif"" border=""0""></td></tr>"
RS.MoveNext
text=""
wend

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

-- xs

Synes godt om

steen_hansen Forsker

20. februar 2002 - 00:31 #19

Med det her:

<%
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, kommentar) values('" & Request.Form("nick") & "', '" & Request.Form("emne") & "', '" & Request.Form("kommentar") & "')"

Conn.Execute(strSQL)

response.redirect ("default.asp")

Conn.Close
Set Conn = nothing
end if
%>

Og formular:

<form method="POST" action="default.asp">
<table border="0" cellpadding="6" cellspacing="0" width="100%" class="tekst11" bgcolor="#EEEEEE">
<tr>
<td colspan="2">
Indtast debatemne
</td>
</tr>
<tr>
<td>Forfatter:</td>
<td><input type="text" name="nick" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td>Emne:</td>
<td><input type="text" name="emne" style="background-color: #ffff99;" size="35" id="input"></td>
</tr>
<tr>
<td valign="top">Kommentar:</td>
<td><textarea rows="15" name="kommentar" style="background-color: #ffff99;" cols="51" id="input"></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Send debatemne" name="send_debatemne" id="input">    <input type="reset" value="Nulstil" name="nulstil" id="input"></td>
</tr>
</table>
</form>

Synes godt om

steen_hansen Forsker

20. februar 2002 - 00:47 #20

excession, jeg bliver nødt til at daffe i seng nu. Vi snakkes ved i morgen?

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS