Jeg skal høre om der er en som kan se hvad der går galt her. Hver gang jeg opdatere denne side, så ændre de 3 dato felter fra dd-md-yyyy til md-dd-yyyy og tilbage igen hvis jeg opdatere siden igen. Her er den del hvor jeg opdatere siden. --------------------------- <% If (CStr(Request("MM_update")) = "form1") Then If (Not MM_abortEdit) Then ' execute the update Dim MM_editCmd
' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "nyheder_oversigt.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> -------------------------
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Jeg har opdaget en lille sjov ting omkring disse dato ændringer. Hvis dd er under 13 bytter den om på dd-md. Hvis dd er over over 12 bytter den ikke om på disse tal mere. Er der nogen som har en god forklaring på dette?
Hvor skal jeg gøre det. Snakker vi om databasen, eller er det oppe i koden: MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(Request.Form("Dato"), Request.Form("Dato"), null)) ' adDBTimeStamp
Hvor mydate ind henne? Den kommer frem med denne fejl ----------------- Microsoft VBScript runtime error '800a000d'
Type mismatch: 'mydate'
/modul/nyheder_oversigt.asp, line 55 --------------------------- linje 55 er den nye linje MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(mydate(Request.Form("Dato")), mydate(Request.Form("Dato")), null))
kan godt se at mydate er = med denne kode --------------- function mydate(adate) mydate=datepart("yyyy",adate)&"-"&datepart("m",adate)&"-"&datepart("d",adate) end function ----------------------- Men den skal vel ind tidligere oppe i koden, men hvor får jeg den ind uden at den blander sig i noget af det andet.
Jeg har forsøgt at ligge det ind flere steder nu, men den ændre stadigvæk i datoen ----------------------- <% If (CStr(Request("MM_update")) = "form1") Then If (Not MM_abortEdit) Then ' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_ConnOuresport1_STRING MM_editCmd.CommandText = "UPDATE nyhed SET Overskrift = ?, Dato = ?, brodtekst = ?, nyhedforsiden = ?, billedetekst1 = ?, visnyhed = ?, Visnyhedforside = ?, Starte = ?, slut = ? WHERE NyhedID = ?"
MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 203, 1, 536870910, Request.Form("Overskrift")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(mydate(Request.Form("Dato")), mydate(Request.Form("Dato")), null)) 'MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(Request.Form("Dato"), Request.Form("Dato"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 203, 1, 536870910, Request.Form("brodtekst")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 203, 1, 536870910, Request.Form("nyhederforsiden")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 203, 1, 536870910, Request.Form("billedetekst1")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("visnyhed"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("visnyhedforside"), 1, 0)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 135, 1, -1, MM_IIF(Request.Form("Starte"), Request.Form("Starte"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 135, 1, -1, MM_IIF(Request.Form("slut"), Request.Form("slut"), null)) ' adDBTimeStamp MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close function mydate(adate) mydate=datepart("yyyy",adate)&"-"&datepart("m",adate)&"-"&datepart("d",adate) end function ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "nyheder_oversigt.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> ---------------------------------------
Jeg mangler stadigvæk hjælp til dette problem. Jeg har set denne kode som der er flere der har omtalt <% dato = "04-06-2003" strDato = Year(dato) & "-" & Month(dato) & "-" & Day(dato) SQL = "INSERT INTO tablenavn (dato) VALUES (#" & strDato & "#)" %> hvordan får jeg den passet sammen med min kode fra dreamweaver, indtil nu er det ikke lykkes mig at få det til at virke efter hensigten.
Synes godt om
Ny brugerNybegynder
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.