Schneekopf - Sommervariante - Rund um den Schneekopf
Telefon: +49(0)36845-50 414 | Telefax: +49(0)36845-50 500
Gemeinde Gehlberg | E-Mail: info@gemeinde-gehlberg.de
Impressum | Datenschutz/Haftungsausschluss
Blick vom Schneekopfturm Richtung Oberhof (NW) Herzlich Willkommen auf den Seiten www.schneekopfcam.de | www.schneekopf.tv | Blick vom Schneekopfturm Richtung Beerberg (SW) Blick vom Schneekopfturm Richtung Neuhaus/Masserberg (SO) Blick vom Schneekopfturm Richtung Thüringer Becken (NO)
Startseite
<%if request.form("aktion") = "fertig" then%> <% a = day(date()) b = month(date()) c = year(date()) sessionid = a * b * c 'response.write(id) sessionidform = int(request.form("sessionid")) if sessionidform = sessionid then bild=request.form("bild") von = 1000000 bis = 9999999 grussnummer = Wuerfel(von,bis) function Wuerfel(von, bis) randomize Wuerfel = Fix(rnd*(bis-von+1))+von end function bild=request.form("bild") namev=request.form("namevon") namea=request.form("namean") emailv=request.form("emailvon") if emailv = "" then emailv = "info@mediaonline-gotha.de" else end if emaila=request.form("emailan") gruss=request.form("gruss") back=request.form("back") if back = "" then back = ffffff else end if font=request.form("font") Set conn = Server.CreateObject("ADODB.Connection") Conn.Connectionstring = "schneekopf" Conn.Open, "admin" sql = "INSERT INTO empfaenger (grussnummer, bild, namev, namea, emailv, emaila, gruss)" sql = sql & " VALUES('" & grussnummer & "', '" & bild & "', '" & namev & "', '" & namea & "', '" & emailv & "', '" & emaila & "', '" & gruss & "')" 'response.write(sql) conn.execute sql conn.close dim o set o = Server.CreateObject("ADISCON.SimpleMail.1") ' create mailer! o.MailServer = "mail3.cm-system.de" o.Sender = emailv o.SenderName = namev o.Recipient = emaila 'o.CCRecipient= "annett@jeschke.cc" o.BCCRecipient= "hbley@cm-system.de" o.Subject = "Internetpostkarte von " & namev o.MessageText = "Hallo " & namea & + Chr(13) + Chr(10) &_ "Sie haben eine Postkarte von " & namev & " erhalten" & + Chr(13) + Chr(10) &_ " " & + Chr(13) + Chr(10) &_ "Durch einen Klick auf die untenstehende Internet-Adresse (URL) können Sie sich die Kartengrüße ansehen." & + Chr(13) + Chr(10) &_ " " & + Chr(13) + Chr(10) &_ "http://www.schneekopfcam.de/touristinformation_digitale_postkarten_ansehen_wintervariante.asp?grusskarte=" & grussnummer & + Chr(13) + Chr(10) &_ " " & + Chr(13) + Chr(10) &_ "Ein Projekt von http://www.schneekopfcam.de" call o.Send set o = Nothing else end if else end if %>

| drucken | zurück |

Touristinformation - Digitale Postkarten
Ihre digitale Postkarte wurde versendet an <%=request.form("namean")%>
Wenn Sie wollen können nun die nächste Postkarte versenden
   
   
   
   
    <% a = day(date()) b = month(date()) c = year(date()) sessionid = a * b * c %>
                                
Bitte wählen Sie eine der obigen Postkarten zum versenden.
 
 
Absender  Name *
E-Mail *
Empfänger Name *
E-Mail *
Gruß
Die mit * gekennzeichneten Felder müssen ausfüllt werden.
       
| drucken | zurück | nach oben |
| 98559 Gemeinde Gehlberg | Hauptstraße 41 | Telefon: +49(0)36845-50 414 | Telefax: +49(0)36845-50 500 |

 

Logo "Thüringer Wald"

Der Schneekopf (978 m über NN) ist einer der markantesten Berge des Thüringer Waldes.
 
 

 

Webdesin, Webhosting, Werbung, Printdesign, Schulungen; Ihre Internet Service Agentur in Gotha und Thueringen, Tel: 03621/510220