Stellenbörse

<% If (0 = Request.ServerVariables("CONTENT_LENGTH")) Then %> Die Vereinigung der Deutschen Medizinischen Fach- und Standespresse e. V. bietet Mitgliedern und Nichtmitgliedern die Möglichkeit, hier Stellengesuche und -angebote zu veröffentlichen. Auf Wunsch kann dies auch anonym vorgenommen werden. Der Kontakt wird in diesem Fall über die Geschäftsstelle hergestellt. Die Angebote werden im Internet und in den Mitgliederrundschreiben veröffentlicht.

Eine Haftung für die Angaben wird durch die Vereinigung der Deutschen Medizinischen Fach- und Standespresse e. V. nicht übernommen. Bitte nutzen Sie für Ihre Ausschreibungen die unten aufgeführten Formulare.
Alle Stellenangebote/gesuche werden nach 3 Monaten automatisch herausgenommen.

Veröffentlichte Inserate

Ausschreibung eines Stellengesuches

Ausschreibung eines Stellenangebotes

<% else 'es wurde was gesendet es wird auf Fehler überprüft strStellena = Trim(Request("stellena")) strAnford = Trim(Request("anford")) strAbsendera = Trim(Request("absendera")) strEmaila = Trim(Request("emaila")) strErrorString="" If not len(strStellena) > 0 then strErrorString="Keine Angabe zum Stellenangebot
" If not len(strAnford) > 0 then strErrorString=strErrorString & "Keine Angabe zu den Anforderungen
" If not len(strAbsendera) > 0 then strErrorString=strErrorString & "Absender fehlt
" If (not len(strEmaila) > 0 or instr(strEmaila, "@") = 0) then strErrorString=strErrorString & "Bitte geben sie eine gültige Email-Adresse an" if not "" =strErrorString then %>

Ihr Eintrag konnte nicht aufgenommen werden. Es fehlen einige Informationen:

<%=strErrorString%>

Bitte benutzen Sie den "Zurück"-Button Ihres Browsers um die fehlenden Daten einzutragen.

<%else 'jetzt sind alle Felder mit Inhalt gefüllt, es wird in die DB eingeschrieben sql = "Insert into tblAngebot(dtmDatum, strStellenangebot, strAnford, strAbsender, strEmail) " sql = sql & "VALUES( " sql = sql & "date()," sql = sql & "'" & Replace(strStellena,"'","''") & "'," sql = sql & "'" & Replace(strAnford,"'","''") & "'," sql = sql & "'" & Replace(strAbsendera,"'","''") & "'," sql = sql & "'" & Replace(strEmaila,"'","''") & "')" Set DataConn = Server.CreateObject("ADODB.Connection") 'DataConn.Open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("w05a0201_db\stellen.mdb") DataConn.Open = vn_Stellenboerse_STRING Set cmdTemp = Server.CreateObject("ADODB.Command") cmdTemp.CommandText = sql cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn cmdTemp.Execute Set cmdTemp = Nothing Set DataConn = Nothing %>

Danke für Ihren Eintrag

zu den veröffentlichten Angeboten <% end if end if %>