Søg
Avatar billede cpccorp Juniormester
18. april 2004 - 01:19 Der er 7 kommentarer og
1 løsning

Hjælp mig det kokser

Jeg har følgende problem, jeg skal gemme 2 datoer i en tabel, det virker også ved oprettelsen, men ved opdateringen går det galt, den skriver 00:00:00, datoformatet i tabellen er kort datoformat
Det går mig meget på...

Her er den der gemmer ved oprettelse og opdatering

<!-- #include file="ADOVBS.inc" -->
<!--#include file="common2.asp"-->
<%
session.LCID = 1030
Dim rsSave, idtag
select case request.querystring("action")

case "Opret"


'Creating the Recordset Object

Set rsSave = Server.CreateObject("ADODB.RecordSet")


rsSave.open "TB_Fakturahead", dsn1, adOpenDynamic, adLockOptimistic, adCmdTable
   
rsSave.addnew
if request.form("faktype") = "Faktura" then
rsSave("Fakturatype") = "Fakturanr"
else
rsSave("Fakturatype") = "Kreditnotanr"
end if

rsSave("Fakturanummer") = request.form("fakturanummer")

rsSave("Faktureringsdato") = DateValue(request.form("fakturadato"))
rsSave("DebID") = request.form("debid")
rsSave("Debitornr") = request.form("debnr")
rsSave("Debitoradr1") = request.form("adresse1")
rsSave("Debitornavn") = request.form("navn")
if request.form("adresse2") = "" then
rsSave("Debitoradr2") = "~empty~"
else
rsSave("Debitoradr2") = request.form("adresse2")
end if

rsSave("PostnrBy") = request.form("postnr")
rsSave("Betalingsdato") = DateValue(request.form("forfaldsdato"))

rsSave("Bettekst") = request.form("betaling")
if request.form("voresref") = "" then
rsSave("Voresref") = "~empty~"
else
rsSave("Voresref") = request.form("voresref")
end if

if request.form("deresref") = "" then
rsSave("Deresrefrekv") = "~empty~"
else
rsSave("Deresrefrekv") = request.form("deresref")
end if
rsSave.update
idtag = rsSave("FakID")
rsSave.close
set rsSave = Nothing
dsn1.close
set dsn1 = nothing

Set rsSave = Server.CreateObject("ADODB.RecordSet")


rsSave.open "TB_Enclose", dsn, adOpenDynamic, adLockOptimistic, adCmdTable
rsSave.find "VBOEncloseNøgle LIKE 'Faktura'"   
rsSave("VBOEncloseVærdi") = rsSave("VBOEncloseVærdi") + 1
rsSave.update
rsSave.close
set rsSave = Nothing
dsn2.close
set dsn2 = nothing


Response.Write("<html>" & vbcrlf)
Response.Write("<script>" & vbcrlf)
Response.Write("var action=function()" & vbcrlf)
Response.Write("{" & vbcrlf)
Response.Write("window.location=""bilagEdit.asp?idtag=" & idtag & """" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write("</script>" & vbcrlf)
Response.Write("<head>" & vbcrlf)
Response.Write("<title></title>" & vbcrlf)
Response.Write("</head>" & vbcrlf)
Response.Write("<body background=""../images/back.gif"">" & vbcrlf)
Response.Write("<center>" & vbcrlf)
Response.Write("<b><font color=""#0000FF"">BILAGS-OPRETTELSE </font></b><script language=""javascript"" src=""system/timerbar.js""></script>" & vbcrlf)
Response.Write("</center>" & vbcrlf)
Response.Write("</html>")
Case "Rediger"

'Creating the Recordset Object

Set rsSave = Server.CreateObject("ADODB.RecordSet")


rsSave.open "TB_Fakturahead", dsn1, adOpenDynamic, adLockOptimistic, adCmdTable
rsSave.find "FakID=" & request.querystring("idtag")   

rsSave("Faktureringsdato") = request.form("fakturadato")

'
'rsSave("DebID") = request.form("debid")
'rsSave("Debitornr") = request.form("debnr")
'rsSave("Debitoradr1") = request.form("adresse1")

'if request.form("adresse2") = "" then
'rsSave("Debitoradr2") = "~empty~"
'else
'rsSave("Debitoradr2") = request.form("adresse2")
'end if

'rsSave("PostnrBy") = request.form("postnr")
rsSave("Betalingsdato") = request.form("forfaldsdato")
'rsSave("Bettekst") = request.form("betaling")
'rsSave("Betdage") = request.form("betalingsdage")
'rsSave("Bettekst") = request.form("betaling")
if request.form("voresref") = "" then
rsSave("Voresref") = "~empty~"
else
rsSave("Voresref") = request.form("voresref")
end if

if request.form("deresref") = "" then
rsSave("Deresrefrekv") = "~empty~"
else
rsSave("Deresrefrekv") = request.form("deresref")
end if
rsSave.update
rsSave.close

set rsSave = Nothing
dsn1.close
set dsn1 = nothing


Response.Write("<html>" & vbcrlf)
Response.Write("<script>" & vbcrlf)
Response.Write("var action=function()" & vbcrlf)
Response.Write("{" & vbcrlf)
Response.Write("window.location=""bilagEdit.asp?idtag=" & request.querystring("idtag") & """" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write("</script>" & vbcrlf)
Response.Write("<head>" & vbcrlf)
Response.Write("<title></title>" & vbcrlf)
Response.Write("</head>" & vbcrlf)
Response.Write("<body background=""../images/back.gif"">" & vbcrlf)
Response.Write("<center>" & vbcrlf)
Response.Write("<b><font color=""#0000FF"">BILAGS-OPDATERING</font></b><script language=""javascript"" src=""system/timerbar.js""></script>" & vbcrlf)
Response.Write("</center>" & vbcrlf)
Response.Write("</html>")

Case "Slet"

end select
%>
Avatar billede cpccorp Juniormester
18. april 2004 - 01:23 #1
her er så de opretsiden....
<!--#include file="common2.asp"-->
<html>
<script type="text/vbscript">
'dato = DateSerial(Year(date),Month(Date)+1,30)
'do while weekday(dato) = 1 or weekday(dato) = 7
'  dato = DateAdd("d",-1,dato)
'loop


function findtal(inputstreng)
dim regcon
set regcon = new RegExp
regcon.ignoreCase = true
regcon.Global = true
regcon.pattern = "([^\d])"
findtal = regcon.replace(inputstreng,"")
end function

function adddato()
str = document.bilag.betaling.value
tal = findtal(str)

document.bilag.forfaldsdato.value = CDate(document.bilag.fakturadato.value) + Cint(tal)
end function
function addatt()
document.bilag.deresref.value = document.bilag.attention.value
end function
function addref()
document.bilag.voresref.value = document.bilag.ref.value
end function
</script>
<%
' Følgende felter skal findes
' Kundenavn, kontraktnr, serviceantal, antal besøg, servicestart, løbetid, serviceslut
' konsulent


Set rsstr = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TB_Customer WHERE ID_Deb = " & request.querystring("idtag") & ";"
rsstr.Open strSQL, dsn1, 1
do until rsstr.eof
debnr = rsstr("Cust_no")
navn = rsstr("Customer")
adresse1 = rsstr("Cust_adr1")
adresse2 = rsstr("Cust_adr2")
if adresse2 = "~empty~" then adresse2 = ""
postby = rsstr("Zip") & " " & rsstr("Town")
betaling = rsstr("Cust_Bet")
betalingsdag = rsstr("Cust_betdage")
attention = rsstr("Attention")
if attention = "~empty~" then attention = ""
debid = rsstr("ID_Deb")
rsstr.movenext
loop
rsstr.close
set rsstr = nothing


Set rsstr = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TB_Enclose WHERE VBOEncloseNøgle LIKE 'Faktura';"
rsstr.Open strSQL, dsn, 1
do until rsstr.eof
bilag = rsstr("VBOEncloseVærdi")
rsstr.movenext
loop
rsstr.close
set rsstr = nothing

Set rsstr = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TB_System WHERE VBOSystemNøgle LIKE 'Defaultref';"
rsstr.Open strSQL, dsn, 1
do until rsstr.eof
ref = rsstr("VBOSystemVærdi")
rsstr.movenext
loop
rsstr.close
set rsstr = nothing


%>

<script language="javascript" src="../system/cal2.js">
/*
Xin's Popup calendar script-  Xin Yang (http://www.yxscripts.com/)
Script featured on/available at http://www.dynamicdrive.com/
This notice must stay intact for use
*/
</script>
<script language="javascript" src="system/cal_conf2.js"></script>
<script>
//VED START GÅ TIL DEBITORNR
function vedstart(){

}
//VALG AF SERVICEMAND
function seridtoservicemand(){
document.Service.servicemand.value = document.Service.serviceid.options[document.Service.serviceid.selectedIndex].text
}

function CheckForm(){
   
    var errorMsg = "";
//Faktura
    if (document.bilag.fakturadato.value==""){
        errorMsg += "\n\tFakturadato \t-\tIndtast/Vælg en dato";
    }
//Forfaldsdato
    if (document.bilag.forfaldsdato.value==""){
        errorMsg += "\n\tForfaldsdato \t-\tIndtast/Vælg en dato";
    }
   
   
    //If there is a problem with the form then display an error
    if (errorMsg != ""){
        msg = "VBO 2004 Bilag ________________________________________________\n\n";
        msg += "Bilag er ikke blevet tilføjet/opdateret fordi der er problemer.\n";
        msg += "Venligst korriger disse problemer.\n";
        msg += "________________________________________________________Rev 1.00a\n\n";
        msg += "Følgende felter bør rettes: -\n"; 
       
        //errorMsg += alert(msg + errorMsg + "\n\n");
        window.alert(msg + errorMsg + "\n\n");
        return false;
    }
   
    //return true;
}

</script>
 
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>VBO 2004 DEBITOR OPRET NY...</title>
</head>

<body bgcolor="#C0C0C0" topmargin="0" leftmargin="5" onload="vedstart()">
<form name="bilag" action="bilagaction.asp?action=Opret" method="post" onSubmit="return CheckForm()">
<input type="hidden" name="betalingsdage" value="<%=betalingsdag%>">
<input type="hidden" name="faktype" value="<%=request.querystring("faktype")%>">
<input type="hidden" name="betaling" value="<%=betaling%>">
<input type="hidden" name="attention" value="<%=attention%>">
<input type="hidden" name="ref" value="<%=ref%>">
<input type="hidden" name="navn" value="<%=navn%>">
<input type="hidden" name="adresse1" value="<%=adresse1%>">
<input type="hidden" name="adresse2" value="<%=adresse2%>">
<input type="hidden" name="postnr" value="<%=postby%>">
<input type="hidden" name="debnr" value="<%=debnr%>">
<input type="hidden" name="debid" value="<%=debid%>">
<input type="hidden" name="fakturanummer" value="<%=bilag & CStr(Right(DatePart("yyyy", date()),2))%>">
<table border="0" width="100%" cellpadding="0" height="1" cellspacing="0">
  <tr>
    <td width="50%" colspan="2" bgcolor="#808080"
   
    style="border-left:1px solid #000000; border-top:1px solid #000000; border-bottom:1px solid #000000; border-right-width:1"
    height="1"><%=Application("vboapp")%><font face="Verdana"
      color="#000000">: BILAG&nbsp;&nbsp; </font><font face="Verdana"
      color="#FFFFFF">OPRET NY...</font></b></td>
    <td width="50%" colspan="2" bgcolor="#808080" style="border-right:1px solid #000000; border-top:1px solid #000000; border-bottom:1px solid #000000; "
    height="1">&nbsp;</td>
  </tr>
  <tr>
    <td width="2%" height="20">
    <p align="left"><b><font face="Verdana" size="2"><u>DEBITOR</u></font></b></td>
    <td width="48%" height="20"
    style="font-family: Verdana; font-size: 12; color: #000080; font-weight: bold">&nbsp;</td>
    <td width="1%" height="20"><b><font face="Verdana" size="2">
    <%if request.querystring("faktype") = "Faktura" then
    response.write("Fakturanr.")
    else
    response.write("Kreditnr.")
    end if
    %>
    </font></b></td>
    <td width="56%" height="20"
    style="font-family: Verdana; font-size: 12; color: #000080; font-weight: bold">&nbsp;<font
    color="#0000FF">*<%=bilag & CStr(Right(DatePart("yyyy", date()),2))%></font></td>
  </tr>
  <tr>
    <td width="50%" height="35" rowspan="3" colspan="2" valign="top"
   
   
   
   
    style="font-family: Verdana; font-size: 11; color: #000080; font-weight: bold; border-bottom: 1px solid #0000FF; ">
    <font size="2" color="#0000FF"><%=navn%><br>
    <%=adresse1%><br>
    <%=adresse2%><br>
    <%=postby%></font></td>
    <td width="1%" height="20"><b><font face="Verdana" size="2"><%if request.querystring("faktype") = "Faktura" then
    response.write("Fakturadato.")
    else
    response.write("Kreditdato.")
    end if
    %>
</font></b></td>
    <td width="56%" height="20"><input type="text" name="fakturadato" size="10" style="text-align: center" onblur="adddato()"><b><font face="Verdana"
      color="#000000"><input type="button" value="Vælg dato" name="select" style="font-size: 9" onclick="java script:showCal('Calendar1')"></font></b></td>
  </tr>
  <tr>
    <td width="1%" height="20"><b><font face="Verdana" size="2">Betaling</font></b></td>
    <td width="56%" height="20"><font color="#0000FF">&nbsp;<b><font
    face="Verdana" size="2"><%=betaling%></font></b></font></td>
  </tr>
  <tr>
    <td width="1%" height="20" style="border-bottom: 1px solid #0000FF; "><b><font face="Verdana" size="2">Forfaldsdato</font></b></td>
    <td width="56%" height="20" style="border-bottom: 1px solid #0000FF; "><input type="text" name="forfaldsdato" size="10" style="text-align: center"><b><font face="Verdana"
      color="#000000"><input type="button" value="Vælg dato" name="select1" style="font-size: 9" onclick="java script:showCal('Calendar2')"></font></b></td>
  </tr>
  <tr>
    <td width="14%" height="22"
   
   
   
    style="border-bottom:1px solid #0000FF; font-family: Verdana; font-size: 11; color: #000080; font-weight: bold">
    <b><font face="Verdana" size="2" color="#000000">Deres ref.</font></b></td>
    <td width="36%" height="22"
   
   
   
    style="border-bottom:1px solid #0000FF; font-family: Verdana; font-size: 11; color: #000080; font-weight: bold">
    <input type="text" name="deresref" size="24"><img border="0"
    src="system/vis2.gif" width="17" height="17" onclick="addatt()" alt="Overfør attention"></td>
    <td width="1%" height="22" style="border-bottom: 1px solid #0000FF"><b><font face="Verdana" size="2">Vores ref.</font></b></td>
    <td width="56%" height="22" style="border-bottom: 1px solid #0000FF">
    <input type="text" name="voresref" size="24"><img border="0"
    src="system/vis2.gif" onclick="addref()" alt="Overfør standard reference"></td>
  </tr>
  <tr>
    <td width="14%" height="13" valign="top"
   
    style="font-family: Verdana; font-size: 11; color: #000080; font-weight: bold">
   
    </td>
    <td width="36%" height="13" valign="top"
   
    style="font-family: Verdana; font-size: 11; color: #000080; font-weight: bold">
    </td>
    <td width="10%" height="13">
    </td>
    <td width="40%" height="13">
    <p align="right"><input type="submit" value="Opret" name="B1"><input
    type="reset" value="Nulstil" name="B2"></td>
  </tr>
  </table>
</form>
</body>
</html>
<!--#include file="commonbottom2.asp"-->

Og redigeringssiden...

<!--#include file="common2.asp"-->
<%
session.LCID = 1030
%>
<html>
<script type="text/vbscript">
'dato = DateSerial(Year(date),Month(Date)+1,30)
'do while weekday(dato) = 1 or weekday(dato) = 7
'  dato = DateAdd("d",-1,dato)
'loop


function findtal(inputstreng)
dim regcon
set regcon = new RegExp
regcon.ignoreCase = true
regcon.Global = true
regcon.pattern = "([^\d])"
findtal = regcon.replace(inputstreng,"")
end function

function adddato()
str = document.bilag.betaling.value
tal = findtal(str)

document.bilag.forfaldsdato.value = CDate(document.bilag.fakturadato.value) + Cint(tal)
end function
function addatt()
document.bilag.deresref.value = document.bilag.attention.value
end function
function addref()
document.bilag.voresref.value = document.bilag.ref.value
end function
</script>
<%
' Følgende felter skal findes
' Kundenavn, kontraktnr, serviceantal, antal besøg, servicestart, løbetid, serviceslut
' konsulent


Set rsstr = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TB_Fakturahead WHERE FakID=" & request.querystring("idtag") & ";"
rsstr.Open strSQL, dsn1, 1
do until rsstr.eof

debnr = rsstr("Debitornr")
navn = rsstr("Debitornavn")
adresse1 = rsstr("Debitoradr1")
adresse2 = rsstr("Debitoradr2")
if adresse2 = "~empty~" then adresse2 = ""
postby = rsstr("PostnrBy")
betaling = rsstr("Bettekst")
betalingsdage = rsstr("Betdage")
fakturadato = rsstr("Faktureringsdato")
voresref = rsstr("Voresref")
if voresref = "~empty~" then voresref = ""
deresref = rsstr("Deresrefrekv")
if deresref = "~empty~" then deresref = ""
fakturanr = rsstr("Fakturanummer")
betalingsdato = rsstr("Betalingsdato")
faktype = rsstr("Fakturatype")
debid = rsstr("DebID")

rsstr.movenext
loop
rsstr.close
set rsstr = nothing



Set rsstr = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TB_System WHERE VBOSystemNøgle LIKE 'Defaultref';"
rsstr.Open strSQL, dsn2, 1
do until rsstr.eof
ref = rsstr("VBOSystemVærdi")
rsstr.movenext
loop
rsstr.close
set rsstr = nothing


%>

<script language="javascript" src="../system/cal2.js">
/*
Xin's Popup calendar script-  Xin Yang (http://www.yxscripts.com/)
Script featured on/available at http://www.dynamicdrive.com/
This notice must stay intact for use
*/
</script>
<script language="javascript" src="system/cal_conf2.js"></script>
<script>
//VED START GÅ TIL DEBITORNR
function vedstart(){

}
//VALG AF SERVICEMAND
function seridtoservicemand(){
document.Service.servicemand.value = document.Service.serviceid.options[document.Service.serviceid.selectedIndex].text
}

function CheckForm(){
   
    var errorMsg = "";
//Faktura
    if (document.bilag.fakturadato.value==""){
        errorMsg += "\n\tFakturadato \t-\tIndtast/Vælg en dato";
    }
//Forfaldsdato
    if (document.bilag.forfaldsdato.value==""){
        errorMsg += "\n\tForfaldsdato \t-\tIndtast/Vælg en dato";
    }
   
   
    //If there is a problem with the form then display an error
    if (errorMsg != ""){
        msg = "VBO 2004 Bilag ________________________________________________\n\n";
        msg += "Bilag er ikke blevet tilføjet/opdateret fordi der er problemer.\n";
        msg += "Venligst korriger disse problemer.\n";
        msg += "________________________________________________________Rev 1.00a\n\n";
        msg += "Følgende felter bør rettes: -\n"; 
       
        //errorMsg += alert(msg + errorMsg + "\n\n");
        window.alert(msg + errorMsg + "\n\n");
        return false;
    }
   
    //return true;
}
</script>
 
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>VBO 2004 DEBITOR OPRET NY...</title>
</head>

<body bgcolor="#C0C0C0" topmargin="0" leftmargin="5" onload="vedstart()">
<form name="bilag" action="bilagaction.asp?action=Rediger&idtag=<%=request.querystring("idtag")%>" method="post" onSubmit="return CheckForm()" enctype="multipart/form-data">
<input type="hidden" name="betalingsdage" value="<%=betalingsdage%>">
<input type="hidden" name="betaling" value="<%=betaling%>">
<input type="hidden" name="ref" value="<%=ref%>">
<input type="hidden" name="navn" value="<%=navn%>">
<input type="hidden" name="adresse1" value="<%=adresse1%>">
<input type="hidden" name="adresse2" value="<%=adresse2%>">
<input type="hidden" name="postnr" value="<%=postnr%>">
<input type="hidden" name="debnr" value="<%=debnr%>">
<input type="hidden" name="debid" value="<%=debid%>">
<input type="hidden" name="fakturanummer" value="<%=fakturanr%>">
<input type="hidden" name="attention" value="<%=deresref%>">
<table border="0" width="100%" cellpadding="0" height="3" cellspacing="0">
  <tr>
    <td width="50%" colspan="2" bgcolor="#808080"
   
    style="border-left:1px solid #000000; border-top:1px solid #000000; border-bottom:1px solid #000000; border-right-width:1"
    height="1"><%=Application("vboapp")%><font face="Verdana"
      color="#000000">: BILAG&nbsp;&nbsp; </font><font face="Verdana"
      color="#FFFFFF">REDIGER...</font></b></td>
    <td width="50%" colspan="2" bgcolor="#808080" style="border-right:1px solid #000000; border-top:1px solid #000000; border-bottom:1px solid #000000; "
    height="1">&nbsp;</td>
  </tr>
  <tr>
    <td width="2%" height="20">
    <p align="left"><b><font face="Verdana" size="2"><u>DEBITOR</u></font></b></td>
    <td width="48%" height="20"
    style="font-family: Verdana; font-size: 12; color: #000080; font-weight: bold">&nbsp;</td>
    <td width="1%" height="20"><b><font face="Verdana" size="2"><%if left(request.querystring("faktype"), 7) = "Faktura" then
    response.write("Fakturanr.")
    else
    response.write("Kreditnr.")
    end if
    %>
</font></b></td>
    <td width="56%" height="20"
    style="font-family: Verdana; font-size: 12; color: #000080; font-weight: bold">&nbsp;<font
    color="#0000FF"><%=fakturanr%></font></td>
  </tr>
  <tr>
    <td width="50%" height="35" rowspan="3" colspan="2" valign="top"
   
   
   
   
    style="font-family: Verdana; font-size: 11; color: #000080; font-weight: bold; border-bottom: 1px solid #0000FF; ">
    <font size="2" color="#0000FF"><%=navn%><br>
    <%=adresse1%><br>
    <%=adresse2%><br>
    <%=postby%></font></td>
    <td width="1%" height="20"><b><font face="Verdana" size="2"><%if left(request.querystring("faktype"), 7) = "Faktura" then
    response.write("Fakturadato.")
    else
    response.write("Kreditdato.")
    end if
    %>
</font></b></td>
    <td width="56%" height="20"><input type="text" name="fakturadato" size="10" style="text-align: center" onblur="adddato()" value="<%=fakturadato%>"><b><font face="Verdana"
      color="#000000"><input type="button" value="Vælg dato" name="select" style="font-size: 9" onclick="java script:showCal('Calendar1')"></font></b></td>
  </tr>
  <tr>
    <td width="1%" height="20"><b><font face="Verdana" size="2">Betaling</font></b></td>
    <td width="56%" height="20"><font color="#0000FF">&nbsp;<b><font
    face="Verdana" size="2"><%=betaling%></font></b></font></td>
  </tr>
  <tr>
    <td width="1%" height="20" style="border-bottom: 1px solid #0000FF; "><b><font face="Verdana" size="2">Forfaldsdato</font></b></td>
    <td width="56%" height="20" style="border-bottom: 1px solid #0000FF; ">
    <input type="text" name="forfaldsdato" size="10" style="text-align: center" value="<%=betalingsdato%>"><b><font face="Verdana"
      color="#000000"><input type="button" value="Vælg dato" name="select1"
    style="font-size: 9" onclick="java script:showCal('Calendar2')"></font></b></td>
  </tr>
  <tr>
    <td width="14%" height="22"
   
   
   
    style="border-bottom:1px solid #0000FF; font-family: Verdana; font-size: 11; color: #000080; font-weight: bold">
    <b><font face="Verdana" size="2" color="#000000">Deres ref.</font></b></td>
    <td width="36%" height="22"
   
   
   
    style="border-bottom:1px solid #0000FF; font-family: Verdana; font-size: 11; color: #000080; font-weight: bold">
    <input type="text" name="deresref" size="24" value="<%=deresref%>"><img border="0"
    src="system/vis2.gif" width="17" height="17" onclick="addatt()" alt="Overfør attention"></td>
    <td width="1%" height="22" style="border-bottom: 1px solid #0000FF"><b><font face="Verdana" size="2">Vores ref.</font></b></td>
    <td width="56%" height="22" style="border-bottom: 1px solid #0000FF">
    <input type="text" name="voresref" size="24" value="<%=voresref%>"><img border="0"
    src="system/vis2.gif" onclick="addref()" alt="Overfør standard reference"></td>
  </tr>
  <tr>
    <td width="50%" height="15"
   
    style="font-family: Verdana; font-size: 11; color: #000080; font-weight: bold" colspan="2">
   
    <p align="right">[ <a href="fakturaforside.asp?fra=<%=request.querystring("idtag")%>&til=<%=request.querystring("idtag")%>&kopi=1&antal=1">Udskriv bilag</a> ]</td>
    <td width="10%" height="15">
    </td>
    <td width="40%" height="15">
    <p align="right"><input type="submit" value="Opdater" name="B1"><input
    type="reset" value="Nulstil" name="B2"></td>
  </tr>
  </form>
  <tr>
    <td width="50%" height="13" valign="top"
   
    style="border-bottom:1px solid #0000FF; font-family: Verdana; font-size: 11; color: #000080; font-weight: bold" colspan="2">
   
    BILAGSLINIER<a href="fakturalinierNew.asp?idtag=<%=request.querystring("idtag")%>"><img border="0" src="system/debitorliste.gif" alt="Opret bilagslinie"></a></td>
    <td width="10%" height="13" style="border-bottom: 1px solid #0000FF">
    &nbsp;</td>
    <td width="40%" height="13" style="border-bottom: 1px solid #0000FF">
    &nbsp;</td>
  </tr>
  <tr>
    <td width="100%" height="13" valign="top" colspan="4">
   
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
      <tr>
        <td width="5%" style="border-bottom: 1px solid #000000">&nbsp;</td>
        <td width="55%" style="border-bottom: 1px solid #000000"><b>Tekst</b></td>
        <td width="11%" style="border-bottom: 1px solid #000000">
        <p align="right"><b>Antal</b></td>
        <td width="14%" style="border-bottom: 1px solid #000000">
        <p align="right"><b>Pris</b></td>
        <td width="15%" style="border-bottom: 1px solid #000000">
        <p align="right"><b>Sum</b></td>
      </tr>
  <%
  summen = 0
  Set rsstr = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM TB_Fakturalinier WHERE FakturaID=" & request.querystring("idtag") & ""
rsstr.Open strSQL, dsn1, 1
do until rsstr.eof   
Response.Write("<tr>" & vbcrlf)
Response.Write("        <td width=""5%"" valign=""top"" style=""border-bottom: 1px dashed #000080"">" & vbcrlf)
Response.Write("        <a href=""fakturalinierEdit.asp?idtag=" & request.querystring("idtag") & "&linie=" & rsstr("LinieID") & """><img border=""0"" src=""system/rediger.gif""></a><a href=""linieaction.asp?action=Slet&linie=" & rsstr("LinieID") & "&idtag=" & request.querystring("idtag") & """><img border=""0"" src=""../images/delete2.jpg"" alt=""Slet linie""></a></td>" & vbcrlf)
Response.Write("        <td width=""55%"" valign=""top"" style=""border-bottom: 1px dashed #000080"">" & vbcrlf)
Response.Write("      " & rsstr("Tekst") & "" & vbcrlf)
Response.Write("        </td>" & vbcrlf)
Response.Write("        <td width=""11%"" align=""right"" valign=""top"" style=""border-bottom: 1px dashed #000080"">" & vbcrlf)
Response.Write("        " & formatnumber(rsstr("Antalt"),2) & "</td>" & vbcrlf)
Response.Write("        <td width=""14%"" align=""right"" valign=""top"" style=""border-bottom: 1px dashed #000080"">" & vbcrlf)
Response.Write("        " & formatnumber(rsstr("Pris"), 2) & "</td>" & vbcrlf)
Response.Write("        <td width=""15%"" align=""right"" valign=""top"" style=""border-bottom: 1px dashed #000080"">" & vbcrlf)
Response.Write("        " & formatnumber((rsstr("Antalt") * rsstr("Pris")),2) & "</td>" & vbcrlf)
Response.Write("      </tr>")
summen = summen + (formatnumber(rsstr("Antalt"), 2) * formatnumber(rsstr("Pris"), 2))
rsstr.movenext
loop
rsstr.close
set rsstr = nothing
%>
    </table>
   
    </td>
  </tr>
  <tr>
    <td width="50%" height="13" valign="top" colspan="2">
   
    &nbsp;</td>
    <td width="10%" height="13">
    </td>
    <td width="40%" height="13">
    </td>
  </tr>
  <tr>
    <td width="99%" height="13" valign="top" colspan="4" align="center">
   
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
      <tr>
        <td width="89%">
        <p align="right"><b>Netto<br>
        Moms (25%)<br>
        Total</b></p>
        <p>&nbsp;</td>
        <td width="11%" valign="top">
        <p align="right"><b><%=formatnumber(summen,2)%><br>
        <%=formatnumber((summen * 0.25),2)%><br>
        <%=formatnumber((summen * 1.25),2)%></b></td>
      </tr>
    </table>
   
    </td>
  </tr>
  </table>

<p>&nbsp;</p>
</body>
</html>
<!--#include file="commonbottom2.asp"-->
Avatar billede EIHP Juniormester
18. april 2004 - 01:29 #2
hva siger den af fejl?
Avatar billede cpccorp Juniormester
18. april 2004 - 01:35 #3
den siger ingen fejl, men når den gemmer i opdateringen/redigereingen slettes datoen i databasen
Avatar billede cpccorp Juniormester
18. april 2004 - 01:36 #4
selv om der et felt med en værdi
Avatar billede EIHP Juniormester
18. april 2004 - 01:43 #5
Ville være nemmere vis du viste mig hvor de bliver updateret.. da jeg ik lige ha mine læse briller på mig, for jeg ondt i hoved, vis jeg skal kig det hele igennem for længe :o)
Avatar billede cpccorp Juniormester
18. april 2004 - 01:45 #6
Case "Rediger"

'Creating the Recordset Object

Set rsSave = Server.CreateObject("ADODB.RecordSet")


rsSave.open "TB_Fakturahead", dsn1, adOpenDynamic, adLockOptimistic, adCmdTable
rsSave.find "FakID=" & request.querystring("idtag")   

rsSave("Faktureringsdato") = request.form("fakturadato")

'
'rsSave("DebID") = request.form("debid")
'rsSave("Debitornr") = request.form("debnr")
'rsSave("Debitoradr1") = request.form("adresse1")

'if request.form("adresse2") = "" then
'rsSave("Debitoradr2") = "~empty~"
'else
'rsSave("Debitoradr2") = request.form("adresse2")
'end if

'rsSave("PostnrBy") = request.form("postnr")
rsSave("Betalingsdato") = request.form("forfaldsdato")
'rsSave("Bettekst") = request.form("betaling")
'rsSave("Betdage") = request.form("betalingsdage")
'rsSave("Bettekst") = request.form("betaling")
if request.form("voresref") = "" then
rsSave("Voresref") = "~empty~"
else
rsSave("Voresref") = request.form("voresref")
end if

if request.form("deresref") = "" then
rsSave("Deresrefrekv") = "~empty~"
else
rsSave("Deresrefrekv") = request.form("deresref")
end if
rsSave.update
rsSave.close

set rsSave = Nothing
dsn1.close
set dsn1 = nothing


Response.Write("<html>" & vbcrlf)
Response.Write("<script>" & vbcrlf)
Response.Write("var action=function()" & vbcrlf)
Response.Write("{" & vbcrlf)
Response.Write("window.location=""bilagEdit.asp?idtag=" & request.querystring("idtag") & """" & vbcrlf)
Response.Write("}" & vbcrlf)
Response.Write("</script>" & vbcrlf)
Response.Write("<head>" & vbcrlf)
Response.Write("<title></title>" & vbcrlf)
Response.Write("</head>" & vbcrlf)
Response.Write("<body background=""../images/back.gif"">" & vbcrlf)
Response.Write("<center>" & vbcrlf)
Response.Write("<b><font color=""#0000FF"">BILAGS-OPDATERING</font></b><script language=""javascript"" src=""system/timerbar.js""></script>" & vbcrlf)
Response.Write("</center>" & vbcrlf)
Response.Write("</html>")
Avatar billede cpccorp Juniormester
18. april 2004 - 12:32 #7
Kan du hjælpe eller skal du bruge mere info
Avatar billede cpccorp Juniormester
18. april 2004 - 12:48 #8
Fandt selv ud af det
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 15:14 Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel
I går 22:58 Kan man undgå at få vist referer når der klikkes på links Af Strawberry i Browsere
I går 12:21 Er det svindel eller fra Microsoft Af mort1 i Andet sikkerhed
15/0811:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
White papers
Flere white papers »