<% info = request.form ("info") if info <> "" then ' Add to Database... Set Connection=Server.CreateObject("ADODB.Connection") Connection.Open "DSN=gn1" name = request.form("name") email = request.form("email") city = request.form("city") subject = request.form("subject") transaction = request.form ("transaction") category = request.form("category") amount = request.form("amount") url = request.form("url") if lcase(Left(url + " ",7)) <> "http://" then url = "http://" + url SQL = "Insert into kurzfund (dbkurz,url,name,email,city,subject,transaction,amount,info,created,category) Values (" SQL = SQL + "1," '************** Hier Gerti !!! *************** SQL = SQL & "'" & url & "'," SQL = SQL & "'" & name & "'," SQL = SQL & "'" & email & "'," SQL = SQL & "'" & city & "'," SQL = SQL & "'" & subject & "'," SQL = SQL & transaction & "," SQL = SQL & "'" & amount & "'," SQL = SQL & "'" & info & "'," SQL = SQL & "DateValue('" & Date & "')," SQL = SQL & "'" & category & "')" ' Category 1 is Kurz & Fuendig Connection.Execute (SQL) Connection.Close SET Connection = Nothing end if %>

Suchen

Kategorie
Option
Stadt
Kurztitel
z.B. BMW, 5 Zimmer, Sony, Wohnung, etc...

Klicken Sie hier für eine eigene Eingabe

zurück