<% Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set DATABASE = Server.CreateObject("ADODB.Connection") DATABASE.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/efks.mdb") show_id=request.querystring("hvilkenID") sqlshow = "SELECT * FROM arrangementer " sqlshow = sqlshow & " WHERE id=" & show_id set rs_hoved=DATABASE.execute(sqlshow) pamelding = rs_hoved("pamelding") if pamelding = "yes" then sql_hvem = "SELECT * FROM pamelding " sql_hvem = sql_hvem & " WHERE arrid=" & show_id set rshvem=DATABASE.execute(sql_hvem) If Request.Form("Send") <> "" Then filePath = Server.MapPath("db/efks.mdb") set Conn = Server.CreateObject ("ADODB.Connection") set rs = Server.CreateObject ("ADODB.Recordset") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath SQL="select * from pamelding order by id" varnavn = Request.Form("navn") varadresse = Request.Form("adresse") varpostnummer = Request.Form("postnr") varsted = Request.Form("sted") varepost = Request.Form("epost") varklubb = Request.Form("klubb") vartelefon = Request.Form("telefon") varland = Request.Form("land") varstatus = Request.Form("status") varfdato = Request.Form("fdato") varkommentar = Request.Form("kommentar") varoverskrift = Request.Form("overskrift") if Len(varnavn)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if if Len(varadresse)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if if Len(varpostnummer)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if if Len(varsted)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if if Len(varklubb)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if if Len(vartelefon)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if if Len(varstatus)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if if Len(varfdato)= 0 then errtekst = "Vennligst fyll ut alle feltene merket med * " End if If Len(errtekst) = 0 then Subject = "Påmelding til: " & varoverskrift Recipient = "andre@ebert.no" Body = "Navn: " & varnavn & "
" Body = Body & "Adresse: " & varadresse & "
" Body = Body & "Sted: " & varsted & "
" Body = Body & "Epost: " & varepost & "
" Body = Body & "Klubb: " & varklubb & "
" Body = Body & "Telefon: " & vartelefon & "
" Body = Body & "Land: " & varland & "
" Body = Body & "Status: " & varstatus & "
" Body = Body & "Fødselsdato: " & varfdato & "
" Body = Body & "Kommentar: " & varkommentar & "

" Body = Body & "Dette er en påmelding til følgende arrangement: " & varoverskrift rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic rs.AddNew rs("arrid") = (show_id) rs("navn") = (varnavn) rs("adresse") = (varadresse) rs("postnr") = (varpostnummer) rs("sted") = (varsted) rs("epost") = (varepost) rs("klubb") = (varklubb) rs("telefon") = (vartelefon) rs("land") = (varland) rs("status") = (varstatus) rs("fdato") = (varfdato) rs("kommentar") = (varkommentar) rs("overskrift") = (varoverskrift) rs.Update Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.cliche.no" JMail.Sender = varepost JMail.Subject = Subject JMail.AddRecipient Recipient JMail.HTMLBody = Body JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Execute response.Redirect("arrangementer.asp") end if End If End If %> Elverum Flyklubb Seil
 Nyheter
 Aktivitetsplan 2013
 Flyparken
 Skole
 Forum
 Om EFKS
 Medlemsinfo
 Arrangementer
 Vinsj
 Linker
 Bildearkiv
 
Hovedside
<% if pamelding = "yes" then %> <%End If %>

<%'Så går vi gjennom alle postene do while not rs_hoved.eof %> <%=rs_hoved("overskrift")%> <% overskrift=rs_hoved("overskrift") %>
<% '*****BILDE 1 ******* If Len(rs_hoved("bilde_01")) <> 0 then %> " name="thumb" align="right" border="0"> <% end If If Len(rs_hoved("bilde_01")) = 0 then response.write "" End if '*****SLUTT BILDE 1 ******* %>
<% '*****BILDE 2 ******* If Len(rs_hoved("bilde_02")) <> 0 then %> " name="<%= rs_hoved("bilde_02") %>" align="right" border="0"> <% end If If Len(rs_hoved("bilde_02")) = 0 then response.write "" End if '*****SLUTT BILDE 2 ******* %>
<% '*****BILDE 3 ******* If Len(rs_hoved("bilde_03")) <> 0 then %> " name="<%= rs_hoved("bilde_03") %>" align="right" border="0"> <% end If If Len(rs_hoved("bilde_03")) = 0 then response.write "" End if '*****SLUTT BILDE 3 ******* %>
<% '*****BILDE 4 ******* If Len(rs_hoved("bilde_04")) <> 0 then %> " name="<%= rs_hoved("bilde_04") %>" align="right" border="0"> <% end If If Len(rs_hoved("bilde_04")) = 0 then response.write "" End if '*****SLUTT BILDE 1 ******* %>

<%=rs_hoved("ingress")%>

<%=rs_hoved("hoved")%>

<% rs_hoved.movenext loop %>

 

Påmeldte:


<%'Så går vi gjennom alle postene do while not rshvem.eof %> Navn: <%=rshvem("navn")%>
Klubb: <%=rshvem("klubb")%>
Status: <%=rshvem("status")%>
Land: <%=rshvem("land")%>
Kommentar: <%=rshvem("kommentar")%>
<% rshvem.movenext loop %>

 

Påmelding til <%=overskrift%>
Navn:  *
Adresse:  *
Postnr.:  *
Sted:  *
Epost:  *
Klubb  *
Telefon:  *
Land:  *
Status:  *
Fødselsdato:  *
Kommentar:
* = felt som MÅ fylles ut.
<%=errtekst%>