Formfelt (tekst) til dato i database

Hvad med at benytte funktionen...
date()

på den måde behøver du ikke requeste den fra HTML siden, og du er sikker på det er den samme dato på Siden hver gang ...

-Ellebaek

sørg for først at dele din indtastning op i:
dag, måned, år.

jeg regner med det drejer sig om en accessdatabase:

dtmRigtigDato = \"#\" & måned & \"/\" & \"dag\" & \"/\" & \"år\" & \"#\"

så skal du sætte datofeltet = dtmRigtigDato

sådan!

Checker lige..

der er ikke en mulighed for at tage et indtastet felt og dele det op ?

Jeg ved det er mere besværligt men se min kode:

<%
Response.Buffer = True
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Comm = Server.CreateObject(\"ADODB.Command\")
Set RS  = Server.CreateObject(\"ADODB.RecordSet\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"waitlist.mdb\")
Conn.Open DSN
Comm.ActiveConnection = Conn

If Request.QueryString(\"new\") <> \"\" Then
Comm.CommandText = \"Select * From Liste Where (ID like \'%\" & R_Count & \"%\')\"
RS.Open Comm,,1,3
  RS.Addnew
    RS(\"Navn\") = Request.Form(\"vnavn\")
    RS(\"Opskrevet_af\") = Request.Form(\"rnavn\")
    RS(\"adresse\") = Request.Form(\"adresse\")
    RS(\"Post\") = Request.Form(\"postnr\")
    RS(\"By\") = Request.Form(\"by\")
    RS(\"Telefon\") = Request.Form(\"telefon\")
    RS(\"e_mail\") = Request.Form(\"email\")
    RS(\"dato\") = Request.Form(\"rdato\")
    RS(\"31_12_00\") = Request.Form(\"31_12_00\")
    RS(\"betalt\") = Request.Form(\"betalt\")
    RS(\"1_nej\") = Request.Form(\"1_nej\")
    RS(\"2_nej\") = Request.Form(\"2_nej\")
    RS(\"3_nej\") = Request.Form(\"3_nej\")
    RS(\"ryk_i_bund\") = Request.Form(\"ryk_i_bund\")
    RS(\"bor_i_ab\") = Request.Form(\"bor_i_ab\")
    RS(\"barn_fødeår\") = Request.Form(\"barn_fødeår\")
  RS.Update
RS.Close
End If
   
If Request.QueryString(\"del\") <> \"\" Then
    Comm.CommandText = \"Select * From Liste Where (ID = \" & Request.QueryString(\"del\") & \")\"
    RS.Open Comm,,1,3
If RS.eof or RS.bof then
  Response.Write \"Not in database.\"
Else
  RS.Delete
    RS.Update
    RS.Close
end if
End If

If Request.QueryString(\"save\") <> \"\" Then
    Comm.CommandText = \"Select * From Liste Where (ID = \" & Request.QueryString(\"save\") & \")\"
    RS.Open Comm,,1,3
        RS(\"Navn\") = Request.Form(\"vnavn\")
        RS(\"Opskrevet_af\") = Request.Form(\"rnavn\")
        RS(\"adresse\") = Request.Form(\"adresse\")
        RS(\"Post\") = Request.Form(\"postnr\")
        RS(\"By\") = Request.Form(\"by\")
        RS(\"Telefon\") = Request.Form(\"telefon\")
        RS(\"e_mail\") = Request.Form(\"email\")
        RS(\"dato\") = Request.Form(\"rdato\")
        RS(\"31_12_00\") = Request.Form(\"31_12_00\")
        RS(\"betalt\") = Request.Form(\"betalt\")
        RS(\"1_nej\") = Request.Form(\"1_nej\")
        RS(\"2_nej\") = Request.Form(\"2_nej\")
        RS(\"3_nej\") = Request.Form(\"3_nej\")
        RS(\"ryk_i_bund\") = Request.Form(\"ryk_i_bund\")
        RS(\"bor_i_ab\") = Request.Form(\"bor_i_ab\")
        RS(\"barn_fødeår\") = Request.Form(\"barn_fødeår\")
    RS.Update
    RS.Close
End If

sql = \"Select * From Liste\"
If request.form(\"search\") <> \"\" then
  search = request.form(\"search\")
  sql = sql & \" WHERE ((Navn like \'%\" & search & \"%\') OR (opskrevet_af like \'%\" & search & \"%\') OR (dato like \'%\" & search & \"%\') OR (adresse \'%\" & search & \"%\') OR (post like \'%\" & search & \"%\') OR (by like \'%\" & search & \"%\') OR (telefon like \'%\" & search & \"%\') OR (e_mail like \'%\" & search & \"%\') OR (barn_fødeår like \'%\" & search & \"%\'))\"
end if

Comm.CommandText = sql
RS.Open Comm,,1,3

%>
<html>
<head>
<title>Venteliste administrations side</title>
<META NAME=\"Generator\" CONTENT=\"Microsoft FrontPage 4.0\">
<link rel=stylesheet href=\"../../bille.css\" type=\"text/css\">
</head>
<body TEXT=\"#000000\" OnLoad=\"document.forms[0].search.focus();\">
<br>

<center><font FACE=\"Arial\" SIZE=\"4\" COLOR=\"#000000\"><strong>Ekstern Venteliste administrations side</font></strong></center>
<br>
<br>
<font FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\">
<center>
På denne side har du forskellige muligheder.<br>
Du kan rette eller slette personer på ventelisten.<br>
Lav de fornødne rettelser og tryk på GEM ÆNDRINGER,<br>
eller slet person ved at trykke på SLET.<br>
<br>
<form method=post action=ext1-admin.asp name=searchform>
Søg: <input type=text name=search><br>
<input type=submit name=submit value=\"Søg\">
</form>
<br>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr><td>Name:</td><td>Beboer:</td><td>Dato:</td></tr>
<%

For i = 1 To RS.RecordCount
    Response.Write \"<form method=\"\"Post\"\" action=\"\"ext1-admin.asp?save=\" & RS(\"ID\") & \"\"\"><tr><td><input type=\"\"\"\" value=\"\"\" & RS(\"Navn\") & \"\"\" name=\"\"vnavn\"\"></td>    <td><input type=\"\"\"\" value=\"\"\" & RS(\"opskrevet_af\") & \"\"\" name=\"\"rnavn\"\"></td>    <td><input type=\"\"\"\" value=\"\"\" & RS(\"adresse\") & \"\"\" name=\"\"adresse\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"post\") & \"\"\" name=\"\"post\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"by\") & \"\"\" name=\"\"by\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"telefon\") & \"\"\" name=\"\"telefon\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"e_mail\") & \"\"\" name=\"\"email\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"dato\") & \"\"\" name=\"\"dato\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"31_12_00\") & \"\"\" name=\"\"31_12_00\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"betalt\") & \"\"\" name=\"\"betalt\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"1_nej\") & \"\"\" name=\"\"1_nej\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"2_nej\") & \"\"\" name=\"\"2_nej\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"3_nej\") & \"\"\" name=\"\"3_nej\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"ryk_i_bund\") & \"\"\" name=\"\"ryk_i_bund\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"bor_i_ab\") & \"\"\" name=\"\"bor_i_ab\"\"></td><td><input type=\"\"\"\" value=\"\"\" & RS(\"barn_fødeår\") & \"\"\" name=\"\"barn_fødeår\"\"></td><td><input type=\"\"submit\"\" value=\"\"GEM ÆNDRINGER\"\"><input type=\"\"button\"\" value=\"\"SLET\"\" onclick=\"\"document.location.href=\'liste-admin.asp?del=\" & RS(\"ID\") & \"\'\"\"></td></tr></center></font></form>\"
    RS.MoveNext
Next
R_Count = RS.RecordCount + 1
    Response.Write \"<form method=\"\"Post\"\" action=\"\"ext1-admin.asp?new=\" & \"R_Count\" & \"\"\"><tr><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"vnavn\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"rnavn\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"adresse\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"post\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"by\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"telefon\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"email\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"dato\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"31_12_00\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"betalt\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"1_nej\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"2_nej\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"3_nej\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"ryk_i_bund\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"bor_i_ab\"\"></td><td><input type=\"\"\"\" value=\"\"\"\" name=\"\"barn_fødeår\"\"></td><td><input type=\"\"submit\"\" value=\"\"Opret Ny\"\"></td></tr></center></font></form>\"
%>
</table>

</table>
</body>
</html>

joda. men hvordan vil du så skelne mellem

20/03/1980
03/20/80
03-20-80
20-03-1980
12-11-80

og så videre

he.. det er jo det..

og så skal jeg jo have flettet det ind i den ene linie.. !?

Duer desværre ikke.. jeg leder videre..