Stellenbörse Stellengesuch

<% If (0 = Request.ServerVariables("CONTENT_LENGTH")) Then %>
Ausschreibung eines Stellengesuches

Bewerberprofil
Einsatzort
Persönliche Angaben
Absender
E-Mail
anonym
mit veröffentlichen

<% else 'es wurde was gesendet; es wird auf Fehler überprüft: strProfil = Trim(Request("profil")) strOrt = Trim(Request("ort")) strAngaben = Trim(Request("angaben")) strAbsenderg = Trim(Request("absenderg")) strEmailg = Trim(Request("emailg")) Anonym = Request("anonym") strErrorString="" If not len(strProfil) > 0 then strErrorString="Keine Angabe zum Bewerberprofil
" If not len(strOrt) > 0 then strErrorString=strErrorString & "Keine Angabe zum Einsatzort
" If not len(strAngaben) > 0 then strErrorString=strErrorString & "Keine persönlichen Angaben
" If not len(strAbsenderg) > 0 then strErrorString=strErrorString & "Absender fehlt
" If (not len(strEmailg) > 0 or instr(strEmailg, "@") = 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 tblGesuch(dtmDatum, strProfil, strOrt, strAngaben, strAbsender, strEmail, Anonym) " sql = sql & "VALUES( " sql = sql & "date()," sql = sql & "'" & Replace(strProfil,"'","''") & "'," sql = sql & "'" & Replace(strOrt,"'","''") & "'," sql = sql & "'" & Replace(strAngaben,"'","''") & "'," sql = sql & "'" & Replace(strAbsenderg,"'","''") & "'," sql = sql & "'" & Replace(strEmailg,"'","''") & "'," sql = sql & Anonym & ")" 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 %>