<% ' FP_ASP ASP-Code, der von einer FrontPage-Komponente automatisch generiert wurde. Nicht verändern. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1031 Err.Clear strErrorUrl = "DKMaklerFehler.htm" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Kann Verbindung nicht herstellen" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Kann Datensatzgruppe nicht erstellen" fp_conn.Open Application("Makler_ConnectionString") FP_DumpError strErrorUrl, "Kann Datenbank nicht öffnen" fp_rs.Open "Makler01", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Kann Datensatzgruppe nicht öffnen" fp_rs.AddNew FP_DumpError strErrorUrl, "Kann keine neue Datensatzgruppe zu Datenbank hinzufügen" Dim arFormFields0(11) Dim arFormDBFields0(11) Dim arFormValues0(11) arFormFields0(0) = "FON" arFormDBFields0(0) = "FON" arFormValues0(0) = Request("FON") arFormFields0(1) = "WWW" arFormDBFields0(1) = "WWW" arFormValues0(1) = Request("WWW") arFormFields0(2) = "LAN" arFormDBFields0(2) = "LAN" arFormValues0(2) = Request("LAN") arFormFields0(3) = "formselect1" arFormDBFields0(3) = "BDL" arFormValues0(3) = Request("formselect1") arFormFields0(4) = "FNA" arFormDBFields0(4) = "FNA" arFormValues0(4) = Request("FNA") arFormFields0(5) = "EMA" arFormDBFields0(5) = "EMA" arFormValues0(5) = Request("EMA") arFormFields0(6) = "FAX" arFormDBFields0(6) = "FAX" arFormValues0(6) = Request("FAX") arFormFields0(7) = "PLZ" arFormDBFields0(7) = "PLZ" arFormValues0(7) = Request("PLZ") arFormFields0(8) = "ASP" arFormDBFields0(8) = "ASP" arFormValues0(8) = Request("ASP") arFormFields0(9) = "STR" arFormDBFields0(9) = "STR" arFormValues0(9) = Request("STR") arFormFields0(10) = "ORT" arFormDBFields0(10) = "ORT" arFormValues0(10) = Request("ORT") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Benutzername" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" fp_rs.Update FP_DumpError strErrorUrl, "Kann Datenbank nicht aktualisieren" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "DKMakler.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Immobilienmakler auf Germany-Gate
 
 

Startseite   Gästebuch   Impressum   Sponsoren  

           Germany-Gate    aktuell informativ unterhaltsam
 
 

 

Info 

 

Wenn auch Sie sich unseren Besuchern durch einen Eintrag in unsere Maklerdatenbank vorstellen möchten, so füllen Sie bitte das nachfolgende Formular aus. Es entstehen Ihnen einmalig Kosten in Höhe von 10 Euro. Drucken Sie bitte die Zahlungsquittung zwecks Überweisung aus. Nur so sind wir in der Lage, die Eintragungskosten gering zu halten. Selbstverständlich schicken wir Ihnen die Quittung auch per Mail zu.

Falls gewünscht, kurze Info an webmaster@germany-gate.com

 

Name
Ansprechpartner   Anrede ?
Strasse
Bundesland
Land / PLZ / Ort
Ort
Telefon
Telefax
E-Mail
Homepage

 

Info 

 

Quittung drucken  klick hier     Acrobat Reader herunterladen

 

 

aktuelles Wetter

 
 
 

Germany Gate