<% '--- www.prilex.se ----------- '--- ny_medl_ansok.asp ------- '--- uppdaterad 2013-01-25 --- '--- © - Kenneth Ryding ------ Option Explicit Response.Buffer = TRUE On Error goto 0 If Err<>0 then Response.Write "Det är fel på webbsidan ! " End If %> <%PrintHeader "Medlemsansökan"%> <%'======================[Nedan kod körs när formuläret skickas]========================= IF Request("send") = "true" THEN Dim strFnamn, strEnamn, strAdress, strPostnr, strOrt, strTelefon Dim strMobiltelefon, strTel_jobbet, strEpost, strPersonnr, strDiverse, strIPnummer Dim strKlubb, strMedlem, strKlubbanropnr, strDatum, strFEnamn, strPrilex,StrRegisterdata Dim strUppdaterad, strUppdaterad_av, strAmatorsignal, strSQL DBinsert 'response.write strEpost & "
" & strFnamn & "
" & strEnamn & "
" If strFnamn<>"" and strEnamn<>"" Then strFEnamn = strFnamn +" "+ strEnamn 'response.write strEpost If strEpost="" then strEpost = "webmaster@prilex.se" End If '----skicka mail------------------- strJmailFrom = strEpost ' Avsändare (Email) strJmailFromName = strFEnamn ' Avsändare namn strJmailMottagare = strEpost ' Mottagare (Email) strJmailMottagarex = "info@prilex.se" ' Extra mottagare (Email) strJmailCC = "ordforande@prilex.se" ' CC Mottagare (Email) strJmailBCC = "webmaster@prilex.se" ' BCC Mottagare (Email) strJmailSubject = "Medlemsansökan Prilex" ' Ämne strJmailmsg = "" If strEpost="webmaster@prilex.se" then strEpost ="Ingen e-post angiven" end if ' Variabeln strJmailmsg bygger man upp med vad man vill att mailet skall innehålla strJmailmsg = strJmailmsg & vbCrLf &"Nedanstående uppgifter är nu skickade till Prilex "& vbCrLf & vbCrLf strJmailmsg = strJmailmsg & "Namn : " & strFEnamn & vbCrLf strJmailmsg = strJmailmsg & "Personnr : " & strPersonnr & vbCrLf strJmailmsg = strJmailmsg & "Adress : " & strAdress & vbCrLf strJmailmsg = strJmailmsg & "Postnr : " & strPostnr & vbCrLf strJmailmsg = strJmailmsg & "Ort : " & strOrt & vbCrLf strJmailmsg = strJmailmsg & "Hemtelefon : " & strTelefon & vbCrLf strJmailmsg = strJmailmsg & "Mobiltelefon : " & strMobiltelefon & vbCrLf strJmailmsg = strJmailmsg & "Telefon Arbete : " & strTel_jobbet & vbCrLf strJmailmsg = strJmailmsg & "E-post : " & strEpost & vbCrLf strJmailmsg = strJmailmsg & "Amatörsignal : " & strAmatorsignal & vbCrLf strJmailmsg = strJmailmsg & "Förening : " & strKlubb & vbCrLf strJmailmsg = strJmailmsg & "Anropsnr : " & strKlubbanropnr & vbCrLf & vbCrLf & vbCrLf strJmailmsg = strJmailmsg & "Medlemsavgift : Medlemsavgiften plus administrativ kostnad på 30:- kronor skall" & vbCrLf strJmailmsg = strJmailmsg & " ofördröjligen inbetalas till klubbens bankgironummer 327 - 1129." & vbCrLf strJmailmsg = strJmailmsg & " Har ovanstående avgifter EJ betalts inom en månad efter" & vbCrLf strJmailmsg = strJmailmsg & " inval förfaller medlemskapet. " & vbCrLf & vbCrLf strJmailmsg = strJmailmsg & " MVH Styrelsen i Radioklubben Prilex." & vbCrLf strJmailBody = strJmailmsg 'Response.write strJmailBody strJmailFelmsg = "" strJmailFelmsg = "Det blev ett fel när e-posten skulle skickas." strJmailSvarmsg = "" strJmailSvarmsg = strJmailSvarmsg & "
" & "Tack för din medlemsansökan."& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "Din medlemsansökan är nu skickad till PRILEX utan problem !"& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "Du har även fått en kopia av din ansökan via din e-postadress"& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "som du angav i din ansökan."& "
"& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "Medlemsavgiften plus administrativ kostnad på 30:- kronor skall"& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "ofördröjligen inbetalas till klubbens bankgironummer 327 - 1129."& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "Har ovanstående avgifter EJ betalts inom en månad efter"& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "inval förfaller medlemskapet. "& "
"& "
" strJmailSvarmsg = strJmailSvarmsg & "
" & "MVH Styrelsen i Radioklubben Prilex."& "
" skicka_mail '----------------------------------- End If fattas=fattas-25 PrintFooter %>
<% Else '======================[Nedan HTML är själva formuläret]============================%>

Undertecknad ansöker om medlemskap i Radioklubben PRILEX. Ansökan behandlas av styrelsen. Medlemsavgiften plus administrativ kostnad på 30:- kronor skall ofördröjligen inbetalas till klubbens bankgironummer 327 - 1129. Har ovanstående avgifter EJ betalts inom en månad efter inval förfaller medlemskapet. När medlemsavgiften är betald får den invalde klubbens stadgar, medlemslista och medlemsnummer sig tilldelat. Efter detta lovar jag att följa Radioklubben PRILEX stadgar och föreskrifter.  Erlagda avgifter återbetalas EJ.   (+ = Måste vara ifyllt)
Förnamn:+
 Efternamn:+
 Personnummer.ÅÅÅÅMMDD: +
Adress:+
Postnr:+
 Ort:+
  
Telefon bostad:
 Mobiltelefon:
 Telefon arbete:
E-post:
 Amatörradiosignal:

Har medlemskap eller har varit medlem i annan radioförening/klubb.
Förening / klubb:
 Anropsnummer:
  

<% fattas=fattas-25 PrintFooter %> <%End IF%> <% Sub DBinsert 'Samla formulär data och frisera dem! strFnamn = FixaTecken(Request.form("Fnamn")) strEnamn = FixaTecken(Request.form("Enamn")) strAdress = FixaTecken(Request.form("Adress")) strPostnr = FixaTecken(Request.form("Postnr")) strOrt = FixaTecken(Request.form("Ort")) strTelefon = FixaTecken(Request.form("Telefon")) strMobiltelefon = FixaTecken(Request.form("Mobiltelefon")) strTel_jobbet = FixaTecken(Request.form("Tel_jobbet")) strAmatorsignal = FixaTecken(Request.form("Amatorsignal")) strEpost = FixaTecken(Request.form("Epost")) strPersonnr = FixaTecken(Request.form("Personnr")) strKlubb = FixaTecken(Request.form("Klubb")) strKlubbanropnr = FixaTecken(Request.form("Klubbanropnr")) strIPnummer = Request.ServerVariables("REMOTE_ADDR") strDiverse = "Klubb " & strKlubb & " Anropsnummer " & strKlubbanropnr & " IP-adress " & strIPnummer strDatum = now strMedlem = left(strDatum,10) StrPrilex = "NY" StrRegisterdata ="0000000000" strUppdaterad = strDatum strUppdaterad_av = "Ny medlem" If strFnamn="" and strEnamn="" Then Exit Sub strSQL = "SELECT * FROM medlem" strSQL = "INSERT INTO medlem(Fnamn,Enamn,Adress,Postnr,Ort,Telefon,Mobiltelefon,Tel_jobbet,Amatorcall,Epost,Personnr,Diverse,Medlem,Prilex,Registerdata,Uppdaterad,Uppdaterad_av) VALUES('"& strFnamn & "', '" & strEnamn & "', '" & strAdress & "', '" & strPostnr & "', '" & strOrt & "', '" & strTelefon & "', '" & strMobiltelefon & "', '" & strTel_jobbet & "', '" & strAmatorsignal & "', '" & strEpost & "', '" & strPersonnr & "', '" & strDiverse & "', '" & strMedlem & "', '" & strPrilex & "', '" & strRegisterdata & "', '" & strUppdaterad & "', '" & strUppdaterad_av & "')" dbConnect Connection 'Response.Write "
" & strSQL 'Response.Write "
" & FilPath 'Response.Write "
" & Connect Connection.Execute(strSQL) Connection.Close Set Connection = Nothing End Sub %>