<%@ language=vbscript %> <% 'E-MAIL KONFIGURATION START DIM sendmail, configmail SET sendmail = Server.CreateObject("CDO.Message") SET configmail = CreateObject("CDO.Configuration") configmail.fields(cdosendUsingMethod) = cdoSendUsingPort configmail.fields(cdoSMTPServerPort) = 25 configmail.fields(cdoSMTPServer) = "smtp.pnydegger.ch" configmail.fields(cdoSMTPAuthenticate) = cdoAnonymous configmail.fields.Update sendmail.Configuration = configmail 'E-MAIL KONFIGURATION ENDE %>

		PBC Biel, Linksammlung |  <%DBCON.OPEN DBSTR SQL = "SELECT DISTINCT L_Kat FROM Links" RS.OPEN SQL, DBCON DO WHILE NOT RS.EOF RESPONSE.WRITE "" & RS("L_Kat") & "  |  " RS.MOVENEXT LOOP RS.CLOSE%> <% RESPONSE.WRITE(" ") IF ID1 <> "" THEN ID1 = ID1 ELSE ID1 = "Hallen, Clubs" END IF RESPONSE.WRITE(" " & ID1 & " ") SQL = "SELECT * FROM Links WHERE L_Kat='" & ID1 & "' ORDER BY L_Land DESC, L_Name ASC" RS.OPEN SQL, DBCON DO WHILE NOT RS.EOF RESPONSE.WRITE "" & RS("L_Name") & "  (" & RS("L_Land") & ") " RS.MOVENEXT LOOP RS.CLOSE DBCON.CLOSE%> <%IF ID2 = "L_Vorschlag" and REQUEST.FORM("L_NAME") <> "" AND REQUEST.FORM("L_LINK") <> "" THEN%> <% sendmail.To = "mail@pnydegger.ch" sendmail.From = "PBC_BIEL_HOMEPAGE@PBC_BIEL.CH" sendmail.Subject = "LINK VORSCHLAG" sendmail.HTMLBody = request.form("L_NAME") & " " & request.form("L_LINK") sendmail.send SET configmail = Nothing SET sendmail = Nothing %> Vielen Dank für Ihr Link-Vorschlag. Der Link nach erfolgreicher Überprüfung freigeschaltet. <%ELSE%> <%END IF%>
		Sponsoren und Medien in Zusammenarbeit mit dem PBC Biel
		© WebPublishingy by P.Nydegger