Vælg et postkort

<% if action = "" then set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") SQL = "Select * from postkort order by id desc;" set rs = conn.execute( SQL ) if rs.eof then %> Databasen er tom <% else %>

<% do until rs.eof %>

"> " width="130" height="100" onclick="window.open('postkort/<%=rs("adresse")%>','test','window-settings');"> <%=rs("over")%>

<% rs.movenext loop %>

<% if session("ok") <> "" Then %> Postkortet er sendt til <%=session("ok")%> <% end if %> <% end if rs.close set rs = nothing set SQL = nothing conn.close set conn = nothing %> <% elseif action = "fejl" Then %> <%=session("fejl")%> <% session("fejl") = "" %> <% elseif action = "send" then if len(request("id")) = 0 Then session("fejl") = "Du glemte at vælge et postkort" response.redirect("postkort.asp?action=fejl") elseif len(request("afsender")) = 0 Then session("fejl") = "Afsender mangler" response.redirect("postkort.asp?action=fejl") elseif len(request("email")) = 0 Then session("fejl") = "Modtager mangler" response.redirect("postkort.asp?action=fejl") elseif len(request("tekst")) = 0 Then session("fejl") = "En lille hilsen mangler" response.redirect("postkort.asp?action=fejl") end if set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") SQL2 = "select * from postkort where id=" & request("id") set rs2 = conn.execute( SQL2 ) Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "Select * From viewpostkort" rs.Open SQL, Conn, 1, 3 rs.AddNew rs("email") = request("email") rs("modtager") = request("modtager") rs("afsendermail") = request("afsendermail") rs("afsender") = request("afsender") rs("tekst") = request("tekst") rs("adresse") = rs2("adresse") rs.Update Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.mail.dk" JMail.Sender = "info@oelsted.dk" JMail.Subject = "Postkort" JMail.AddRecipient request("email") JMail.Body = "Kære " & request("modtager") & vbcrlf & vbcrlf & "" & request("afsender") & " har sendt dig et postkort via www.oelsted.dk. " & vbcrlf & vbcrlf & "Læs dit postkort ved at trykke her:" & vbcrlf & "http://www.paaskesiden.dk/oelsted/kort/viewpostkort.asp?id=" & rs("id") & vbcrlf & vbcrlf & "Med venlig hilsen" & vbcrlf & "www.oelsted.dk´s webmaster" & vbcrlf & vbcrlf & vbcrlf & "PS. Send dit eget GRATIS postkort til en du kender her:" & vbcrlf & "http://www.oelsted.dk" & vbcrlf & vbcrlf & "" JMail.Priority = 2 JMail.Execute rs.close set rs = nothing set SQL = nothing rs2.close set rs2 = nothing set SQL2 = nothing conn.close set conn2 = nothing session("ok") = request("emaiL") response.redirect("postkort.asp") %> <% end if %>