Ekstra funktioner i postkort script

For prwvie. Prøv at view_card.asp til


<!--#INCLUDE FILE ="code_lib.asp" -->
<CENTER><% = overskrift %>
<% if request("mode")="preview" then
  Response.Write "Preview "
end if %>
Postkort<% = fe %>
</CENTER>
<%
if request("mode")="preview" then
  besked = replace (Request.Form("besked"),vbCrlf,"<BR>")
  from_name = Request.Form("from_name")
  billednavn = Request.Form("billednavn")
  created = Request.Form("created")
  from_mail = Request.Form("from_mail")
  from_name = Request.Form("from_name")
  to_mail = Request.Form("to_mail")
  to_name = Request.Form("to_name")
else
  SQL = "SELECT * FROM kort WHERE id = "& Request.QueryString("id")
  SET kort = Conn.Execute( SQL )
  if kort.eof then
      Response.Redirect("default.asp")
  end if
  besked = replace (kort("besked"),vbCrlf,"<BR>")
  from_name = kort("from_name")
  billednavn = kort("billednavn")
  created = kort("created")
  from_mail = kort("from_mail")
  from_name = kort("from_name")
  to_mail = kort("to_mail")
  to_name = kort("to_name")
end if
%>
<CENTER>
<TABLE BORDER="0" CELPADDING="5" CELLSPACING="0">
  <TR>
    <TD ALIGN="LEFT">
        <% = fedstor %>
        Et postkort fra <% = from_name %>       
        <% = fe %>
    </TD>
  </TR>
  <TR>
    <TD>
        <IMG SRC="<% = billedmappe &"/"& billednavn %>">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
        <% = fednormal %>
        Skrevet den <% = created %>   
        <% = fe %>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
        <TABLE CELLPADDING="3" CELLSPACING="0" BORDER="0">
          <TR>
            <TD>
                <% = fednormal %>
                Fra&nbsp;:
                <% = fe %>
            </TD>
            <TD>
                <A HREF="MAILTO:<% = from_mail %>"><% = normal & from_name & fe %></A>   
            </TD>
          </TR>
          <TR>
            <TD ALIGN="RIGHT">
                <% = fednormal %>
                Til&nbsp;:
            </TD>
            <TD>
                <A HREF="MAILTO:<% = to_mail %>"><% = normal & to_name & fe %></A>   
            </TD>
          </TR>
        </TABLE>
    </TD>
  </TR>
  <TR>
    <TD>
        <HR WIDTH="100%">
    </TD>
  </TR>
  <TR>
    <TD>
        <% = fednormal & besked & fe %>
    </TD>
  </TR>
  <TR>
    <TD>
        <HR WIDTH="100%">
    </TD>
  </TR>
  <TR>
    <TD>
        <% = fednormal  %>
        Tryk <A HREF="default.asp">her</A> hvis du også vil sende et postkort til en ven.
        <% = fe %>
    </TD>
  </TR>
</TABLE>
</CENTER>


<% if request("mode")="preview" then %>
<!--#INCLUDE FILE ="default.asp" -->
<% end if %>
</BODY>
</HTML>




--------------------------------------------------------------
og default.asp  til dette:


<% if Request.Querystring("mode")<>"preview" then %>
  <!--#INCLUDE FILE ="code_lib.asp" -->
<% end if %>

<CENTER>
<% = overskrift %>
<p>Postkort<% = fe %>
</CENTER>
<CENTER>
<%
if kort_sendt = "ok" then
Response.Write fedstor &"Kort er sendt" & fe
elseif kort_sendt = "fejl" then
Response.Write fejlfont &"Alle felter SKAL udfyldes og billede SKAL vælges !" & fe
end if

if kort_sendt <> "ok" then
%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3">
  <TR>
    <FORM ACTION="default.asp" METHOD="POST">
    <INPUT TYPE="HIDDEN" NAME="mode" VALUE="sendkort">

<%
taller = 0
dirtowalk = billedmappe
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(dirtowalk))
Set fc = f.Files
For Each whatever in fc
if taller = 0 then
Response.Write "<TR>"
end if
%>
    <TD>
        <p align="center">
        <IMG SRC="<% = billedmappe %>/<% = whatever.name %>" WIDTH="<% = img_width %>" HEIGHT="<% = img_height %>">
        &nbsp;<br>
        <INPUT TYPE="RADIO" NAME="billednavn" VALUE="<% = whatever.Name %>" <% if Request.Form("billednavn") = Whatever.Name then Response.Write "CHECKED" %>>
        </p>
    </TD>
<%
if taller = 1 then
Response.Write "</TR>"
taller = 0
else
taller = taller + 1
end if
Next
%>
  <TR>
    <TD COLSPAN="2">
        <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3">
          <TR>
            <TD>
                <%  = fednormal %>
                Modtager e-mail:       
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE="TEXT" SIZE="25" NAME="to_email" <% if Request.Form("to_email") <> "" then Response.Write "VALUE="""& Request.Form("to_email") &"""" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Modtager navn:   
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE="TEXT" SIZE="25" NAME="to_name" <% if Request.Form("to_name") <> "" then Response.Write "VALUE="""& Request.Form("to_name") &"""" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Din e-mail adresse:
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE="TEXT" SIZE="25" NAME="from_email" <% if Request.Form("from_email") <> "" then Response.Write "VALUE="""& Request.Form("from_email") &"""" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Dit navn:
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE="TEXT" SIZE="25" NAME="from_name" <% if Request.Form("from_name") <> "" then Response.Write "VALUE="""& Request.Form("from_name") &"""" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Besked<%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <TEXTAREA COLS="30" ROWS="5" NAME="besked"><% if Request.Form("besked") <> "" then Response.Write Request.Form("besked") %></TEXTAREA><BR>
            </TD>
          </TR>
          <TR>
            <TD ALIGN="RIGHT">
                <INPUT TYPE="SUBMIT" VALUE="Send postkort" onclick="this.form.action='default.asp';">
                <INPUT TYPE="SUBMIT" VALUE="Preview" onclick="this.form.action='view_card.asp?mode=preview';">
            </TD>
          </TR>
        </TABLE>
        </FORM>
    </TD>
  </TR>
</TABLE>
</CENTER>
<% end if %>

Automatisk sletning efter f.eks 30 dage, hvilken type er kolonnen created

Okay, det kigger jeg lige på søndag eller mandag.
Feltet er et dato og kl. felt.

Ok, de med at slette efter 30 dage kan ligge ind i code_lib.asp  :

Så dette rettes:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../postkort.mdb")
Conn.Open DSN
                           

'******* FONT OG BODY FARVER START *******


Til dette her:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../postkort.mdb")
Conn.Open DSN
                           
'Slet alle som er over 30 dage gamle
SQL = "delete from kort where created < DateAdd('d',-30,Now())"
Conn.Execute(SQL)

'******* FONT OG BODY FARVER START *******

Fik du det til at virke?

Har desværre ikke nået at få det lavet. Jeg regner med at kigge på det i weekenden.
Håber det er okay.

Hej Eagleeye, jeg har været hængt op af en masse ting - så desværre har jeg ikke noget at få kigget på det, jeg prøver om det kan blive her i weekenden.

ok, det helt i orden ;)

Lukker, har ikke fået kigget på det. Men du får selvfølgelig point for din løsning.