12. maj 2008 - 23:25
Der er
1 løsning
Tjekliste, hvordan gemmer jeg?
Hej E. Jeg er ved at lave en slags tjekliste, mit problem er nu hvordan gemmer jeg dette? <table border="0" cellpadding="4" cellspacing="0" bordercolor="#111111" width="100%"> <tbody> <tr> <td class="all-headline-doclist" width="5%"> </td> <td class="all-headline-doclist" width="30%">Overskrift</td> <td class="all-headline-doclist" width="40%">Beskrivelse</td> <td class="all-headline-doclist" width="20%">Status</td> <td class="all-headline-doclist" width="5%"> </td> </tr></tbody></table> <!--#include file="includes/forbindelse2.asp"--> <% strSQL = "SELECT * FROM tjekliste WHERE kundeid = '"& session("kunde") &"' ORDER BY overskrift ASC" objRec.Open strSQL, objConn, 3, 1, 1 while not objRec.EOF strCount = strCount + 1 %> <SCRIPT Language=Javascript> function visliste1<%= strCount %>() { omrade<%= strCount %>a.style.display=""; } function skjulliste1<%= strCount %>() { omrade<%= strCount %>a.style.display="none"; } function visliste2<%= strCount %>() { omrade<%= strCount %>b.style.display=""; } function skjulliste2<%= strCount %>() { omrade<%= strCount %>b.style.display="none"; } function tjeka<%= objRec("id") %>() { tjek<%= objRec("id") %>.value="Ja"; } function tjekb<%= objRec("id") %>() { tjek<%= objRec("id") %>.value="Nej"; } </SCRIPT> <table border="0" cellpadding="4" cellspacing="0" bordercolor="#111111" width="100%"> <tr id="omrade<%= strCount %>a"> <td class="unfold-closed" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="visliste2<%= strCount %>();skjulliste1<%= strCount %>();tjeka<%= objRec("id") %>()" value="ˇ"></td> <td class="unfold-closed" width="30%"> <font class="unfold-headline"><%= objRec("overskrift") %></font></td> <td class="unfold-closed" width="40%"> <%= objRec("beskrivelse") %></td> <td class="unfold-closed" width="20%"> <font color="#ff0000">Denne artikel er ikke tilstede</font></td> <td class="unfold-closed" width="5%"><img hspace="7" height="16" width="16" border="0" src="images/spacer.gif" alt="" title=""> <img height="16" width="16" border="0" src="images/spacer.gif" alt="" title=""></a> </td> </tr> <tr id="omrade<%= strCount %>b" style="display: none;"> <td class="unfold-open" width="5%"><INPUT TYPE=button STYLE="width:20; height:20; font-family:Georgia; font-size:9pt; font-weight: bold; padding-top: 4px" text-align: center" onclick="skjulliste2<%= strCount %>();visliste1<%= strCount %>();tjekb<%= objRec("id") %>()" value="ˆ"></td> <td class="unfold-open" width="30%"> <font class="unfold-headline"><%= objRec("overskrift") %></font></td> <td class="unfold-open" width="40%"> <%= objRec("beskrivelse") %></td> <td class="unfold-open" width="20%"> <font color="#008000">Denne artikel er tilstede</font></td> <td class="unfold-open" width="5%"><img hspace="7" height="16" width="16" border="0" src="images/spacer.gif" alt="" title=""> <img height="16" width="16" border="0" src="images/spacer.gif" alt="" title=""></a> </td> </tr> </table> <input type="hidden" name="tjek<%= objRec("id") %>" value="Nej"> <% objRec.MoveNext Wend %> <!--#include file="includes/forbindelse_luk.asp"--> </TD> </TR></TBODY></TABLE> :o)
Annonceindlæg fra Cepheo
<!--#include file="forbindelse.asp"--> <% strSQL = "SELECT * FROM tjekliste WHERE kundeid = '"& session("kunde") &"' ORDER BY overskrift ASC" objRec.Open strSQL, objConn, 3, 1, 1 response.write "<strong>Mangler</strong><br>" while not objRec.EOF strCount = strCount + 1 Udstyr = "tjek"& objRec("id") &"" if request.form(""& udstyr &"") = "Ja" then 'Super else 'Afsender en e-mail Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.ContentType = "text/html" Mailer.FromName = "web@GroupG9.dk" Mailer.FromAddress= "web@GroupG9.dk" Mailer.RemoteHost = "smtp.wannafind.dk" Mailer.AddRecipient "KSN", "mjz@groupg9.dk" Mailer.Subject = "VagtWeb - Udstyrskontrol" BodyText = BodyText & "<TABLE style='FONT-SIZE: 8pt; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none' width='100%' align=center border=0><TBODY><TR><TD vAlign=top align=middle><TABLE style='FONT-SIZE: 8pt; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none' cellSpacing=1 cellPadding=0 width='80%' bgColor=#aaaaaa>" BodyText = BodyText & "<TBODY><TR><TD style='font-family: Tahoma; font-size: 10px; color: #000000; height: 20px;' bgColor=#dddddd> <strong>UDSTYRSKONTROL</strong></TD></TR>" BodyText = BodyText & "<TR bgcolor=#ffffff><TD align=middle><TABLE cellSpacing=0 cellPadding=6 width='100%' border=0><TBODY><TR><TD>" BodyText = BodyText & "<font face=verdana size=2>En medarbejder har opdaget manglende udstyr:<br><br>" BodyText = BodyText & "<table bgcolor=#ffffff style='FONT-SIZE: 8pt; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none' border=0 cellspacing=0 cellpadding=0 width=300>" BodyText = BodyText & "<tr><td width='30%'> </td><td> </td><td width=""70%""> </td></tr>" BodyText = BodyText & "<tr><td><font face=verdana size=2><b>Medarbejder:<br></b></font></td><td> </td><td> " & session("fuldenavn") & " (#" & session("nummer") & ")<br></td></tr>" BodyText = BodyText & "<tr><td> </td><td> </td><td> </td></tr>" BodyText = BodyText & "<tr><td><font face=verdana size=2><b>Mangler:<br></b></font></td><td> </td><td> " & objRec("overskrift") & "<br></td></tr>" BodyText = BodyText & "<tr><td> </td><td> </td><td> </td></tr>" BodyText = BodyText & "<tr><td><font face=verdana size=2><b>Beskrivelse:<br></b></font></td><td> </td><td> " & objRec("beskrivelse") & "<br></td></tr>" BodyText = BodyText & "<tr><td> </td><td> </td><td> </td></tr>" BodyText = BodyText & "<tr><td><font face=verdana size=2><b>Kontrol tid:<br></b></font></td><td> </td><td> " & Now() & "<br></td></tr>" BodyText = BodyText & "<tr><td> </td><td> </td><td> </td></tr>" BodyText = BodyText & "<tr><td><font face=verdana size=2><b>IP adresse:<br></b></font></td><td> </td><td> " & Request.ServerVariables("REMOTE_ADDR") & "<br></td></tr>" BodyText = BodyText & "<tr><td> </td><td> </td><td> </td></tr>" BodyText = BodyText & "</table><hr style=height: 1px>" BodyText = BodyText & "<font face=verdana size=2></font>" BodyText = BodyText & "<br><br><br>Mvh.<br> GroupG9.dk's mailing system.</font>" BodyText = BodyText & "</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>" Mailer.BodyText = BodyText end If objRec.MoveNext Wend response.redirect "../beskedcenter.asp" End If