Notifikationer

Markér alle som læst Log ud

Slettet bruger

23. august 2005 - 23:50 Der er 12 kommentarer og
1 løsning

Kan ikke få vist klokken

jeg kan ikke får mit script til at vise klokslet for hvornår jeg har jeg skrevet en tekst til min blog... jeg kan fint få scriptet til at vise dato, men jeg kan ikke få tiden vist... når jeg kigger i DB'en så viser den kun datoen men ikke klokken....
siden der gemmer min tekst ser således ud:
<form action="form_ac.asp" method="post">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="381">
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="1">Overskrift:</FONT></td>
<td width="381"><input type="text" name="overskrift" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81" valign="top"><FONT FACE="VERDANA" SIZE="1">Tekst:</FONT></td>
<td width="381"><textarea class="area" rows="10" name="tekst" cols="33"></textarea></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="Send spørgsmål" name="Send" class="button"></p>
<p align="center"><font face="Verdana" size="1"><a href="faq.asp">Tilbage </a></font></p>
</form>
--------
Skriv.asp
<form action="form_ac.asp" method="post">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="381">
<tr>
<td width="81"><FONT FACE="VERDANA" SIZE="1">Overskrift:</FONT></td>
<td width="381"><input type="text" name="overskrift" size="44" maxlength="255"></td>
</tr>
<tr>
<td width="81" valign="top"><FONT FACE="VERDANA" SIZE="1">Tekst:</FONT></td>
<td width="381"><textarea class="area" rows="10" name="tekst" cols="33"></textarea></td>
</tr>
</table>
</center>
</div>
<p align="center"><input type="submit" value="send" name="Send" class="button"></p>
<p align="center"><font face="Verdana" size="1"><a href="index.asp">Tilbage </a></font></p>
</form>
<p>

Synes godt om

Slettet bruger

23. august 2005 - 23:53 #1

flot ... den rigtige gem.asp ser således ud:
<%
' Declaring variables
Dim overskrift, tekst, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
overskrift = ChkString(Request.Form("overskrift"))
tekst = ChkString(Request.Form("tekst"))

data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")
sql_insert = "insert into users (overskrift, tekst, dato) values ('" & _
overskrift & "', '" & tekst & "','"&date()&"')"

' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Response.Write ""
%>

Synes godt om

erikjacobsen Ekspert

23. august 2005 - 23:55 #2

Er det ikke forventeligt. date() giver en tekst som fx.: "23-08-2005"

Synes godt om

erikjacobsen Ekspert

23. august 2005 - 23:57 #3

Feltet ser ud til at være et almindeligt tekstfelt. Du kan evt bruge

date() & " " & time()

Synes godt om

softspot Forsker

23. august 2005 - 23:58 #4

Dato er en streng i databasen eller hvad (den gemmes i det mindste som en streng)?

Hvis der ikke er noget tidspunkt på værdien i databasen kommer der heller ikke i output...

Synes godt om

softspot Forsker

23. august 2005 - 23:59 #5

eller du kan bruge now()

Synes godt om

Slettet bruger

24. august 2005 - 00:02 #6

dato er det strengen i db hedder

Synes godt om

Slettet bruger

24. august 2005 - 00:06 #7

Jeg har sat dette date() & " " & time() ind i form_ac.asp men får denne fejl:
Microsoft VBScript compilation error '800a0401'

Expected end of statement

form_ac.asp, line 26

overskrift & "', '" & tekst & "','"&date() & " " & time()"')"
---------------------------------------------------------^

linie 26: overskrift & "', '" & tekst & "','"&date() & '" " & time()"')"

Synes godt om

erikjacobsen Ekspert

24. august 2005 - 00:07 #8

Det er heller ikke det jeg skriver du skal skrive

Synes godt om

Slettet bruger

24. august 2005 - 00:14 #9

hvordan skal jeg så evt skrive det så tiden også kommer med?

Synes godt om

softspot Forsker

24. august 2005 - 00:14 #10

stumpi >> Ja, det gættede jeg også på (læs: det vidste jeg godt ;)).

prøv dette:

<%
' Declaring variables
Dim overskrift, tekst, data_source, con, sql_insert

' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

' Receiving values from Form
overskrift = ChkString(Request.Form("overskrift"))
tekst = ChkString(Request.Form("tekst"))

data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")
sql_insert = "insert into users (overskrift, tekst, dato) values ('" & _
overskrift & "', '" & tekst & "','"&now()&"')"

' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Response.Write ""
%>

Synes godt om

Slettet bruger

24. august 2005 - 00:19 #11

softspot det virkede som det skal med dit forslag... mange tak for hjælpen... hvis du lige smider et svar så får du pointene :o)

Synes godt om

softspot Forsker

24. august 2005 - 00:21 #12

Glad for at du hjalp :)

Synes godt om

softspot Forsker

24. august 2005 - 00:34 #13

Øøøh, først tak for point :)

Dernæst, så var der lige en lille tyrkfejl i mit sidste statement "Glad for at du hjalp :)", hvor jeg mente "Glad for at det hjalp :)". På den anden side så hjalp du mig med at avancere lidt på listen her på eksperten, så det er måske fair nok at det var hvad jeg skrev :D

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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