Avatar billede foralias Praktikant
08. december 2006 - 10:51 Der er 15 kommentarer og
2 løsninger

SQL / ASP / datoformat endnu engang

Ja så fik jeg også problemet :-(
Jeg har et booking system som skal skrive nogle datoer ned i en MSSQL database.
Hvis jeg skriver dem som standart amerikansk mm/dd/yyyy så giver det ingen problem, men skriver jeg dem som dd-mm-åååå så giver det selvfølgelig fejl :-(

Det "sjove" er så at de står dd-mm-åååå i databasen, hvis jeg kigger i den med enterprise manageren. Det fatter jeg så bare ikke en bjælde af????
Den godkender ikke det input, den selv spytter ud i den anden ende.
Jeg håber i kan hjælpe. Poster gerne koden, vil bare ikke fylde spm. med for meget "unødigt" læsestof.

Lidt info:
Jeg har tilføjet LCID 1030 på alle sider.
Webserver og SQL server er ikke samme maskine.
De er begge administreret af mig, dvs. jeg har direkte adgang til dem.
Siden er lavet i DW
Avatar billede fennec Nybegynder
08. december 2006 - 11:04 #1
Det har intet at gøre med hvordan de ser ud i databasen eller hvilken LCID du har sat. Alle databaser har et format som de kommunikere på. MS-SQL godtager åbentbart mm/dd/yyyy formatet men normalt bruger man yyyy-mm-dd/yyyymmdd formatet. Du skal altså bare lave en konverterings funktion:

function DBDate(fDate)
dim fDag, fMon, fYear
    fDag = right("0"& day(fDate))
    fMon = right("0"& month(fDate))
    fYear = year(fDate)
    DBDate = fYear & fMon fDay
end function

sql = "insert into enTabel(enDato) values('"& DBdate(date()) &"')"
Avatar billede mitbrugernavn Praktikant
08. december 2006 - 11:34 #2
i SQL sætningen vender den dag og måned om, dvs som følgende

'dindato som skal sættes ind = dd/mm/yyyy
dindato = "13-12-2006"

dinDBdato = day(dindato) & "/" & month(dindato) & "/" & year(dindato)
' når du så indsætter dinDBdato så vender den month og day om - prøv det

jeg mener at kan læse i dit spørgsmål at den godtager ved indsæt mm/dd/yyyy
Avatar billede foralias Praktikant
08. december 2006 - 11:41 #3
Ok!
Så åbenbare jeg min umiddelbare mangel på viden ;-)
Kan jeg gøre det direkte på side, eller skal jeg poste dem til en anden som så konvertere dem.
I dag har jeg et skjult felt for dags dato samt et for afhentning og et for levering, som brugeren selv skal udfylde, enten vha en popup kalender eller bare skrive dd-mm-åååå.
Avatar billede foralias Praktikant
08. december 2006 - 11:41 #4
mitbrugernavn -> Ja den godtaget mm/dd/yyyy
Avatar billede mitbrugernavn Praktikant
08. december 2006 - 11:44 #5
-> fennec

den er da lidt (meget) gal med din function
fDag og senere fDay
der mangler et & tegn i DBDate
og den indsætter således = 2006128

og så melder den følgende fejl
Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'right'
/hosmig/dato_test.asp, line 31

function DBDate(fDate)
dim fDag, fMon, fYear
    fDag = right("0"& day(fDate)) 'dette er linie 31
    fMon = right("0"& month(fDate))
    fYear = year(fDate)
    DBDate = fYear & fMon & fDag
end function
response.write DBdate(date())
Avatar billede foralias Praktikant
08. december 2006 - 11:44 #6
Koden som den ser ud nu er:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../../../Connections/Online.asp" -->

<%
session.lcid=1030
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "book_ny") Then

  MM_editConnection = MM_Online_STRING
  MM_editTable = "dbo.booking"
  MM_editRedirectUrl = "tilfoej-gods.asp?booking=nybook"
  MM_fieldsStr  = "book_nr|value|usernr|value|afs_navn|value|afs_adr1|value|afs_adr2|value|afs_adr3|value|afs_post|value|afs_by|value|Afs_land|value|modt_navn|value|lev_navn|value|modt_adr1|value|lev_adr1|value|modt_adr2|value|lev_adr2|value|modt_adr3|value|lev_adr3|value|modt_post|value|lev_post|value|modt_by|value|lev_by|value|modt_land|value|lev_land|value|opr_dato|value|afh_dato|value|ank_dato|value"
  MM_columnsStr = "Book_nr|none,none,NULL|usernr|none,none,NULL|Afs_navn|',none,''|Afs_adr1|',none,''|Afs_adr2|',none,''|Afs_adr3|',none,''|Afs_post|',none,''|Afs_by|',none,''|Afs_land|none,none,NULL|Modt_navn|',none,''|Lev_navn|',none,''|Modt_adr1|',none,''|Lev_adr1|',none,''|Modt_adr2|',none,''|Lev_adr2|',none,''|Modt_adr3|',none,''|Lev_adr3|',none,''|Modt_post|',none,''|Lev_post|',none,''|Modt_by|',none,''|Lev_by|',none,''|Modt_land|none,none,NULL|Lev_land|none,none,NULL|opr_dato|',none,NULL|afh_dato|',none,NULL|ank_dato|',none,NULL"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim book
Dim book_numRows

Set book = Server.CreateObject("ADODB.Recordset")
book.ActiveConnection = MM_Online_STRING
book.Source = "SELECT * FROM dbo.booking"
book.CursorType = 0
book.CursorLocation = 2
book.LockType = 1
book.Open()

book_numRows = 0
%>
<%
Dim land
Dim land_numRows

Set land = Server.CreateObject("ADODB.Recordset")
land.ActiveConnection = MM_Online_STRING
land.Source = "SELECT *  FROM dbo.Landekoder"
land.CursorType = 0
land.CursorLocation = 2
land.LockType = 1
land.Open()

land_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script language="JavaScript" src="pupdate.js">

/*
Popup calendar script by Sev Kotchnev (webmaster@personal-connections.com)
For full source code and installation instructions to this script
Visit http://www.dynamicdrive.com
*/

</script>
<%
If isEmpty(Session("Usernr")) Then
  Response.Redirect("../../login.asp")
End If
dim usernr
usernr=Session("Usernr")
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
.style8 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: x-small; }
.style9 {font-size: x-small}
.style10 {color: #FF0000}
-->
</style>
</head>

<body>
<%
dim book_nr_temp
book_nr_temp=Session("book_nr")
Session("Usernr")=usernr
session("usernr")=session("usernr")
Session("book_nr")=session("book_nr")
%>
<form action="<%=MM_editAction%>" method="POST" name="book_ny">
  <p class="style8">Ny booking. Nr.
    <%response.Write(book_nr_temp)%>
    <input name="book_nr" type="hidden" id="book_nr" value="<%response.Write(book_nr_temp)%>" />
    <input type="hidden" name="usernr" value="<%response.Write(usernr)%>" />
  </p>
  <table width="500" border="0">
    <tr>
      <td width="10%" class="style8"><span class="style8">Afsender</span></td>
      <td width="38%" class="style8"><span class="style9"></span></td>
      <td width="4%" class="style8"><span class="style9"></span></td>
      <td width="10%" class="style8"><span class="style9"></span></td>
      <td width="38%" class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Navn:</span></td>
      <td class="style8"><input tabindex="1" name="afs_navn" type="text" id="afs_navn" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="2" name="afs_adr1" type="text" id="afs_adr1" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="3" name="afs_adr2" type="text" id="afs_adr2" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="4" name="afs_adr3" type="text" id="afs_adr3" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Postnr.:</span></td>
      <td class="style8"><input tabindex="5" name="afs_post" type="text" id="afs_post" size="10" maxlength="10" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">By:</span></td>
      <td class="style8"><input tabindex="6" name="afs_by" type="text" id="afs_by" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style9">Land:</span></td>
      <td class="style8"><label>
        <select name="Afs_land" id="Afs_land" tabindex="7">
          <%
While (NOT land.EOF)
%>
          <option value="<%=(land.Fields.Item("Kode").Value)%>"><%=(land.Fields.Item("Land").Value)%></option>
          <%
  land.MoveNext()
Wend
If (land.CursorType > 0) Then
  land.MoveFirst
Else
  land.Requery
End If
%>
        </select>
      </label></td>
      <td class="style8"><span class="style9"></span></td>
      <td colspan="2" rowspan="2" class="style8">Hvis anden leverings adresse udfyld da nedenst&aring;ende</td>
    </tr>
    <tr>
      <td class="style8">&nbsp;</td>
      <td class="style8">&nbsp;</td>
      <td class="style8">&nbsp;</td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Modtager</span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style8">Levering</span></td>
      <td class="style8"><span class="style9"></span></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Navn:</span></td>
      <td class="style8"><input tabindex="8" name="modt_navn" type="text" id="modt_navn" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style8">Navn:</span></td>
      <td class="style8"><input tabindex="15" name="lev_navn" type="text" id="lev_navn" size="30" maxlength="30" /></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="9" name="modt_adr1" type="text" id="modt_adr1" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="16" name="lev_adr1" type="text" id="lev_adr1" size="30" maxlength="30" /></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="10" name="modt_adr2" type="text" id="modt_adr2" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="17" name="lev_adr2" type="text" id="lev_adr2" size="30" maxlength="30" /></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="11" name="modt_adr3" type="text" id="modt_adr3" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style8">Adresse:</span></td>
      <td class="style8"><input tabindex="18" name="lev_adr3" type="text" id="lev_adr3" size="30" maxlength="30" /></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">Postnr.:</span></td>
      <td class="style8"><input tabindex="12" name="modt_post" type="text" id="modt_post" size="10" maxlength="10" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style8">Postnr.:</span></td>
      <td class="style8"><input tabindex="19" name="lev_post" type="text" id="lev_post" size="10" maxlength="10" /></td>
    </tr>
    <tr>
      <td class="style8"><span class="style8">By:</span></td>
      <td class="style8"><input tabindex="13" name="modt_by" type="text" id="modt_by" size="30" maxlength="30" /></td>
      <td class="style8"><span class="style9"></span></td>
      <td class="style8"><span class="style8">By:</span></td>
      <td class="style8"><input tabindex="20" name="lev_by" type="text" id="lev_by" size="30" maxlength="30" /></td>
    </tr>
    <tr>
      <td class="style8">Land:</td>
      <td class="style8"><label>
        <select name="modt_land" id="modt_land" tabindex="14">
          <%
While (NOT land.EOF)
%>
          <option value="<%=(land.Fields.Item("Kode").Value)%>"><%=(land.Fields.Item("Land").Value)%></option>
          <%
  land.MoveNext()
Wend
If (land.CursorType > 0) Then
  land.MoveFirst
Else
  land.Requery
End If
%>
        </select>
      </label></td>
      <td class="style8">&nbsp;</td>
      <td class="style8">Land:</td>
      <td class="style8"><label>
        <select name="lev_land" id="lev_land" tabindex="21">
          <%
While (NOT land.EOF)
%>
          <option value="<%=(land.Fields.Item("Kode").Value)%>"><%=(land.Fields.Item("Land").Value)%></option>
          <%
  land.MoveNext()
Wend
If (land.CursorType > 0) Then
  land.MoveFirst
Else
  land.Requery
End If
%>
        </select>
      </label></td>
    </tr>
    <tr>
      <td class="style8">&nbsp;</td>
      <td class="style8">&nbsp;</td>
      <td class="style8">&nbsp;</td>
      <td class="style8"><input name="opr_dato" type="text" id="opr_dato" value="<%response.write(date)%>" /></td>
      <td class="style8">&nbsp;</td>
    </tr>
    <tr>
      <td class="style8">Afhentes</td>
      <td class="style8"><label>
        <input name="afh_dato" type="text" id="afh_dato" size="10" maxlength="10" />
      <a href="#" onClick="getCalendarFor(document.book_ny.afh_dato);return false">[Vælg her]</a></label></td>
      <td class="style8">&nbsp;</td>
      <td class="style8">Leveres</td>
      <td class="style8"><label>
        <input name="ank_dato" type="text" id="ank_dato" size="10" maxlength="10" />
      <a href="#" onClick="getCalendarFor(document.book_ny.ank_dato);return false">[Vælg her]</a></label></td>
    </tr>
    <tr>
      <td colspan="5" class="style8"><div align="center" class="style10">BEMÆRK! Datoformat skal være mm/dd/åååå. For en sikkerheds skyld brug kalenderen.</div></td>
    </tr>
  </table>
  <p>
  <label></label>
  <label>
  <input tabindex="22" type="submit" name="Submit" value="Opret" />
  </label>
  </p>
  <input type="hidden" name="MM_insert" value="book_ny">
</form>
<script language="JavaScript">
if (document.all) {
document.writeln("<div id=\"PopUpCalendar\" style=\"position:absolute; left:0px; top:0px; z-index:7; width:200px; height:77px; overflow: visible; visibility: hidden; background-color: #FFFFFF; border: 1px none #000000\" onMouseOver=\"if(ppcTI){clearTimeout(ppcTI);ppcTI=false;}\" onMouseOut=\"ppcTI=setTimeout(\'hideCalendar()\',500)\">");
document.writeln("<div id=\"monthSelector\" style=\"position:absolute; left:0px; top:0px; z-index:9; width:181px; height:27px; overflow: visible; visibility:inherit\">");}
else if (document.layers) {
document.writeln("<layer id=\"PopUpCalendar\" pagex=\"0\" pagey=\"0\" width=\"200\" height=\"200\" z-index=\"100\" visibility=\"hide\" bgcolor=\"#FFFFFF\" onMouseOver=\"if(ppcTI){clearTimeout(ppcTI);ppcTI=false;}\" onMouseOut=\"ppcTI=setTimeout('hideCalendar()',500)\">");
document.writeln("<layer id=\"monthSelector\" left=\"0\" top=\"0\" width=\"181\" height=\"27\" z-index=\"9\" visibility=\"inherit\">");}
else {
document.writeln("<p><font color=\"#FF0000\"><b>Error ! The current browser is either too old or too modern (usind DOM document structure).</b></font></p>");}
</script>
<noscript><p><font color="#FF0000"><b>JavaScript er ikke aktiveret i din browser !</b></font></p></noscript>
<table border="1" cellspacing="1" cellpadding="2" width="200" bordercolorlight="#000000" bordercolordark="#000000" vspace="0" hspace="0"><form name="ppcMonthList"><tr><td align="center" bgcolor="#CCCCCC"><a href="java script:moveMonth('Back')" onMouseOver="window.status=' ';return true;"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b>< </b></font></a><font face="MS Sans Serif, sans-serif" size="1">
<select name="sItem" onMouseOut="if(ppcIE){window.event.cancelBubble = true;}" onChange="switchMonth(this.options[this.selectedIndex].value)" style="font-family: 'MS Sans Serif', sans-serif; font-size: 9pt"><option value="0" selected>2000 • Januar</option><option value="1">2000 • Februar</option><option value="2">2000 • Marts</option><option value="3">2000 • April</option><option value="4">2000 • Maj</option><option value="5">2000 • Juni</option><option value="6">2000 • Juli</option><option value="7">2000 • August</option><option value="8">2000 • September</option><option value="9">2000 • Oktober</option><option value="10">2000 • November</option><option value="11">2000 • December</option><option value="0">2001 • Januar</option></select></font><a href="java script:moveMonth('Forward')" onMouseOver="window.status=' ';return true;"><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b> ></b></font></a></td></tr></form></table>
<table border="1" cellspacing="1" cellpadding="2" bordercolorlight="#000000" bordercolordark="#000000" width="200" vspace="0" hspace="0"><tr align="center" bgcolor="#CCCCCC"><td width="20" bgcolor="#FFFFCC"><b><font face="MS Sans Serif, sans-serif" size="1">Sø</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">Ma</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">Ti</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">On</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">To</font></b></td><td width="20"><b><font face="MS Sans Serif, sans-serif" size="1">Fr</font></b></td><td width="20" bgcolor="#FFFFCC"><b><font face="MS Sans Serif, sans-serif" size="1">Lø</font></b></td></tr></table>
<script language="JavaScript">
if (document.all) {
document.writeln("</div>");
document.writeln("<div id=\"monthDays\" style=\"position:absolute; left:0px; top:52px; z-index:8; width:200px; height:17px; overflow: visible; visibility:inherit; background-color: #FFFFFF; border: 1px none #000000\"> </div></div>");}
else if (document.layers) {
document.writeln("</layer>");
document.writeln("<layer id=\"monthDays\" left=\"0\" top=\"52\" width=\"200\" height=\"17\" z-index=\"8\" bgcolor=\"#FFFFFF\" visibility=\"inherit\"> </layer></layer>");}
else {/*NOP*/}
</script>
</body>
</html>
<%
book.Close()
Set book = Nothing
%>
<%
land.Close()
Set land = Nothing
%>
Avatar billede fennec Nybegynder
08. december 2006 - 12:02 #7
mitbrugernavn >>
Du har ganske ret i at min funktion var forkert. Sådan er det når man skriver det direkte her på E, og ikke gider teste det først :o)

foralias >>
Du bruger så crapy Macromedia kode til database insættelse. Jeg har før prøvet at skrive tilføjelser til det, med katastrofale følger. Det er noget nær umuligt at rette i.
Avatar billede foralias Praktikant
08. december 2006 - 12:06 #8
:-) ja desværre. Det er dog lykkedes for mig før.
Alternativt, kan jeg jo lave "mellemregningen" som jeg skrev om før.
Avatar billede mitbrugernavn Praktikant
08. december 2006 - 12:09 #9
:-))))  ja jeg opgiver også at følge din kode - men du kører følgende direkte før din insert sætning

dagsdato = date()
dagsdato = day(date()) & "/" & month(date()) & "/" & year(date())

afhentning = request("afhentning") 'eller hvad dit formfelt hedder
dato_afhentning = day(afhentning) & "/" & month(afhentning) & "/" & year(afhentning)

levering = request("levering") 'eller hvad dit formfelt hedder
dato_levering = day(levering) & "/" & month(levering) & "/" & year(levering)

prøv det
Avatar billede fennec Nybegynder
08. december 2006 - 12:33 #10
Jeg vil helt klart anbefale at opgive Macromedia koden, også skrive DB inserten selv. Det er meget simpel at lave, og jeg levere gerne de tekst/tal/dato funktioner jeg har, som der skal bruges.

Bare sig til hvis det er noget du er klar på at gøre...
Avatar billede foralias Praktikant
08. december 2006 - 15:35 #11
Jeg prøver lige forslagene, i hører.
Avatar billede ldanielsen Nybegynder
12. december 2006 - 12:59 #12
Den sikre måde at inserte datoer på er:

INSERT INTO Tablenavn (dtmDatofelt) VALUES (CONVERT(datetime, '03-11-2005', 105))

Du bruger altså MSSQL's egen konvertering af streng til dato, og tallet 105 er angivelse af formatet, jeg bruger altid 105, for det er dd-mm-yyyy, som jeg foretrækker og som også er den mest naturlige for danskere.

Hvis du vil selecte en dato, kan du også bruge det:

SELECT CONVERT(datetime, dtmDatofelt, 105) AS strDato FROM Tablenavn
Avatar billede foralias Praktikant
12. december 2006 - 13:11 #13
Hej jeg er pt. taget af opgave. Men vender tilbage ASAP.
Bare lige så i ikke tror jeg har glemt jer ;-)
Avatar billede foralias Praktikant
02. januar 2007 - 12:56 #14
Hejsa igen.
Jeg har lavet en validerings side, og formatere dato der i stedet.
Der er jeg så stødt på et andet problem, http://www.eksperten.dk/spm/752894
Men for at i ikke skal gå tomhændet herfra, bedes i lige smide et svar. Så forsøger jeg at fordele efter bedste evne :-)
Avatar billede fennec Nybegynder
02. januar 2007 - 13:00 #15
.o) <-- One Eyed Jack
Avatar billede foralias Praktikant
10. januar 2007 - 08:59 #16
Ida, du har også strøet lidt visdom herind, så du børe også "honoreres". Smider du lige et svar?
Avatar billede foralias Praktikant
08. marts 2007 - 11:15 #17
Nå vil ikke vente længere :-) Så jeg lukker her. Tak for hjælpen.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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