nicht angemeldet
Hallo,
habe da ein Problem mit einem ASP/VBScript zum hinzufuegen und editieren einer MS Access 2000 Datenbank. Irgendwie funzt das editieren des Datums nicht.....immer ein Error, wenn ich versuche es zu speichern....(Script siehe unten.)
Und noch eine weitere Frage: Das Script entwickele ich auf meinem Win2000 System mit deutscher Spracheinstellung. Dadurch wird das Datum wie folgt formatiert: tt.mm.yyyy. Es soll aber auf einem englischen Server laufen, daher ist die DB mit mm/tt/yyyy angelegt und gibt einen Fehler aus, wenn der input nach deutscher Schreibweise formatiert ist (aber IIS gibt in deutschem Format aus der db aus!!) Hat einer dafuer eine Loesung? Kann ich Datumsformate festlegen?
Danke & Gruss
Tobi
<!--#include file="../inc/con_db.asp" -->
<%
' *** Request id of record
' get id from query
Dim id
id = Request("id")
%>
<%
' set output variables
Dim headline
headline = (Request("headline"))
Dim date
date = (Request("date"))
if date = "" then date = "NULL"
Dim html_text
html_text = (Request("html_text"))
' *** Connection, SQL-Statement and Recordset
' declare variables
Dim con Dim com Dim sql
' create connection object
Set con = Server.CreateObject("ADODB.Connection")
' establish connection to database
con.Open con_db
' *** Check for id string
' update record
if id <> "" then
' create sql statement
sql = "UPDATE news SET "
sql = sql & "HEADLINE ='" & headline & "',"
sql = sql & " HTML_TEXT ='" & html_text & "'"
sql = sql & " DATE =#" & date & "#,"
sql = sql & " WHERE ID=" & id
' insert new record
else
' create sql statement
sql = "INSERT INTO news "
sql = sql & "(HEADLINE, HTML_TEXT, DATE) "
sql = sql & "VALUES ('" & headline & "', '" & html_text & "', " & date & ") "
end if
' execute the delete
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = con_db
com.CommandText = sql
com.Execute
' close database connection
com.ActiveConnection.Close
%>