navigation
a webmaster learning community
     Home    Register     Search      Help      Login    
FrontPage Alternative
Sponsors

Shopping Cart Software
Ecommerce software integrated into Frontpage, Dreamweaver and Golive templates. No monthly fees and available in ASP and PHP versions.

Website Templates
We also have a wide selection of Dreamweaver, Expression Web and Frontpage templates as well as webmaster tools and CSS layouts.

Frontpage website templates
Creative Website Templates for FrontPage, Dreamweaver, Flash, SwishMax

Search Forums
 

Advanced search
Recent Posts

 Todays Posts
 Most Active posts
 Posts since last visit
 My Recent Posts
 Mark posts read

 

date diff problem

 
View related threads: (in this forum | in all forums)

Logged in as: Guest
Users viewing this topic: none
Printable Version 

All Forums >> Web Development >> ASP and Database >> date diff problem 		Page: [1]
 
dschmuecker

 

Posts: 158
Joined: 10/27/2003
Status: offline

  		date diff problem - 8/19/2008 19:26:11   
Here's the deal. I'm converting frontpage asp to classic asp. I have this classic asp that is bringing a type mismatch error message(Microsoft VBScript runtime error '800a000d'
Type mismatch ) with classic but it works with frontpage asp. I have the two different codes below. I have tried several hours to find a solution with no luck.

Classic asp

If DateDiff("d", recordset("duedate0"), recordset("when0")) - recordset("sick2") = 0 then
response.write "<font color='#666666'>"
else
response.write "<font color='#FF0000'>"
end if

Frontpage asp
<%If DateDiff("d", FP_FieldVal(fp_rs,"duedate0"), FP_FieldVal(fp_rs,"when0")) - FP_FieldHTML(fp_rs,"sick2") = 0 then %>
<font color="#666666">
<%else%><font color="#FF0000"><% end if%>




Classic ASP 
<!--#include virtual="/dsgrade/loginadmin/logincheck.asp"-->
<html>
<head>

	<title>DSGrade</title>
	<link rel="stylesheet" type="text/css" href="/dsgrade/grade.css">
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=0,statusbar=0,menubar=0,resizable=0,width=500,height=500,left = 

72,top = 159');");
}
// End -->
</script>
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp2(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=1,statusbar=1,menubar=0,resizable=1,width=1600,left = 0,top = 

0');");
}
// End -->
</script>
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp3(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=1,statusbar=1,menubar=0,resizable=1,width=100,height=100 left = 

0,top = 0');");
}
// End -->
</script>
</head>


<body>
<!--#include virtual="/dsgrade/admin/menu.asp"-->
<div class="outer3">
<table>
  <tr>
    <td colspan="2" class="headingbig">Grade
      Book</td>
  </tr>
 <tr>
  
    <td width="70%" valign="top">
    <span class="headingwhite"><b> <u><%request("clas")%> / <%request("term")%> / <%request("period")%> period</b></u></span><br><br>
<span class="headingleft"><b>Redo Projects</b></span>
<table BORDER="0" width="100%">

<!--#INCLUDE VIRTUAL="/dsgrade/includes/connection.asp" -->
<%
clas=request.querystring("clas")
fullname=request.querystring("fullname")
term=request.querystring("term")
period=request.querystring("period")
project=request.querystring("project")
tuts=request.querystring("tuts")

SQL="SELECT * FROM filesquery WHERE clas=  '" &clas&"' and term=  '" &term&"' and period=  '" &period&"' and tuts ='r' or tuts='rd' order by fullname ASC, [order0] asc"
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open(sConnString)
recordset.Open SQL,connection
If recordset.Eof Then
Response.write "There has been no redo projects submitted for " & request("clas")
Else
Do while not recordset.Eof
%>
<a 

href="javascript:popUp3('redodetail.asp?term=recordset("term")&tuts=recordset("tuts")&fullname=recordset("fullname")&period=recordset("period")&

amp;clas=recordset("clas")&project=recordset("project")')" class="red">recordset("user_name")-recordset("project") </a>
  <a href="javascript:popUp3('deletevarify.asp?ID=recordset("ID")')"><img src="imgs/delete.gif" width="15" border="0"></a>  
<%
recordset.movenext
Loop
End If
recordset.Close
Set recordset = Nothing
connection.Close
Set connection = Nothing
%>
</td></tr>
</table>
 </td></tr>
 </table>

 
    
    
    <%
clas=request.querystring("clas")
fullname=request.querystring("fullname")
term=request.querystring("term")
period=request.querystring("period")
project=request.querystring("project")
tuts=request.querystring("tuts")
total=request.querystring("total")
when0=request.querystring("when0")
duedate0=request.querystring("duedate0")
sick2=request.querystring("sick2")
dim DateDiff

SQL="SELECT * FROM filesquery WHERE clas=  '" &clas&"' and term=  '" &term&"' and period=  '" &period&"' and total<=0 and tuts ='Project' or tuts='Homework' or tuts='Tutorial'   order by user_name ASC, [order0] asc"
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open(sConnString)
recordset.Open SQL,connection
If recordset.Eof Then
Response.write "There has been no redo projects submitted for " & request("clas")
Else
Do while not recordset.Eof
%>
<%
response.write "<table><tr><td>"
response.write recordset("fullname") & " "
response.write "<a href=results2.asp?fname=" & recordset("fname") & "&lname=" & recordset("lname") & "&term=" & recordset("term")& "&period=" & recordset("period") & "&clas=" & recordset("clas")& "&user_name=" & recordset("user_name")& ">" & "Gradebook" & "</a><br></td>"
response.write "<td><input type='text' value='" & recordset("total") &  "'"  &  "name='total' size='1'>" & "/" & recordset("total0") & "</td>"
response.write "<td>" &  "<a href=gradestudpast.asp?ID=" & recordset("ID")& "&fullname=" & recordset("fullname")& "&term=" & recordset("term")& "&period=" & recordset("period") & "&clas=" & recordset("clas") & "&project=" & recordset("project") & "&tuts=" & recordset("tuts")  & "target='_blank'>" & "GRADE" &"</a> "
response.write "<b><u><i>" & recordset("tuts") & "</u></i></b> / "
response.write "<font size='2'><i>Assigned: </i><font color='00000'>" & recordset("assigned") & " / "
response.write "<i>Turned in: </i>"

			 


If DateDiff("d", (recordset("duedate0"), recordset("when0")) - recordset("sick2") = 0 then 
            response.write "<font color='#666666'>"     
			 else 
			 response.write "<font color='#FF0000'>" 
			 end if
 
			 
			 
			 


response.write recordset("when0") & "</font> / "
response.write "<i>Due on: </i><font color='#666666'>" & recordset("duedate0") & "</font> /"
response.write "Sick:</i><font color='blue'> " & recordset("sick2") & "</i></font> / "
response.write "</tr></table>"
%>

<input NAME="late" SIZE="1" VALUE="<%=DateDiff("d", recordset("duedate0"), recordset("when0")) - recordset("sick2") %>">  late points



<a href="javascript:popUp3('edit_rec.asp?id=<%= recordset("id")%>')">DELETE</a>

<%
      


recordset.movenext
Loop
End If
recordset.Close
Set recordset = Nothing
connection.Close
Set connection = Nothing
%>
</td>
</tr>
</table>
</div>
</body>
</html>



Frontpage code 
<!--#include virtual="/dsgrade/loginadmin/logincheck.asp"-->
<html>
<head>

	<title>DSGrade</title>
	<link rel="stylesheet" type="text/css" href="/dsgrade/grade.css">
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=0,statusbar=0,menubar=0,resizable=0,width=500,height=500,left = 

72,top = 159');");
}
// End -->
</script>
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp2(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=1,statusbar=1,menubar=0,resizable=1,width=1600,left = 0,top = 

0');");
}
// End -->
</script>
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp3(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=1,statusbar=1,menubar=0,resizable=1,width=100,height=100 left = 

0,top = 0');");
}
// End -->
</script>
</head>


<body>
<!--#include virtual="/dsgrade/admin/menu.asp"-->
<div class="outer3">
<table>
  <tr>
    <td colspan="2" class="headingbig">Grade
      Book</td>
  </tr>
 <tr>
  
    <td width="70%" valign="top">
    <span class="headingwhite"><b> <u><%request("clas")%> / <%request("term")%> / <%request("period")%> period</b></u></span><br><br>
<span class="headingleft"><b>Redo Projects</b></span>
<table BORDER="0" width="100%">

<!--#INCLUDE VIRTUAL="/dsgrade/includes/connection.asp" -->
<%
clas=request.querystring("clas")
fullname=request.querystring("fullname")
term=request.querystring("term")
period=request.querystring("period")
project=request.querystring("project")
tuts=request.querystring("tuts")

SQL="SELECT * FROM filesquery WHERE clas=  '" &clas&"' and term=  '" &term&"' and period=  '" &period&"' and tuts ='r' or tuts='rd' order by fullname ASC, [order0] asc"
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open(sConnString)
recordset.Open SQL,connection
If recordset.Eof Then
Response.write "There has been no redo projects submitted for " & request("clas")
Else
Do while not recordset.Eof
%>
<a 

href="javascript:popUp3('redodetail.asp?term=recordset("term")&tuts=recordset("tuts")&fullname=recordset("fullname")&period=recordset("period")&

amp;clas=recordset("clas")&project=recordset("project")')" class="red">recordset("user_name")-recordset("project") </a>
  <a href="javascript:popUp3('deletevarify.asp?ID=recordset("ID")')"><img src="imgs/delete.gif" width="15" border="0"></a>  
<%
recordset.movenext
Loop
End If
recordset.Close
Set recordset = Nothing
connection.Close
Set connection = Nothing
%>
</td></tr>
</table>
 </td></tr>
 </table>

 
    
    
    <%
clas=request.querystring("clas")
fullname=request.querystring("fullname")
term=request.querystring("term")
period=request.querystring("period")
project=request.querystring("project")
tuts=request.querystring("tuts")
total=request.querystring("total")
when0=request.querystring("when0")
duedate0=request.querystring("duedate0")
sick2=request.querystring("sick2")
dim DateDiff

SQL="SELECT * FROM filesquery WHERE clas=  '" &clas&"' and term=  '" &term&"' and period=  '" &period&"' and total<=0 and tuts ='Project' or tuts='Homework' or tuts='Tutorial'   order by user_name ASC, [order0] asc"
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open(sConnString)
recordset.Open SQL,connection
If recordset.Eof Then
Response.write "There has been no redo projects submitted for " & request("clas")
Else
Do while not recordset.Eof
%>
<%
response.write "<table><tr><td>"
response.write recordset("fullname") & " "
response.write "<a href=results2.asp?fname=" & recordset("fname") & "&lname=" & recordset("lname") & "&term=" & recordset("term")& "&period=" & recordset("period") & "&clas=" & recordset("clas")& "&user_name=" & recordset("user_name")& ">" & "Gradebook" & "</a><br></td>"
response.write "<td><input type='text' value='" & recordset("total") &  "'"  &  "name='total' size='1'>" & "/" & recordset("total0") & "</td>"
response.write "<td>" &  "<a href=gradestudpast.asp?ID=" & recordset("ID")& "&fullname=" & recordset("fullname")& "&term=" & recordset("term")& "&period=" & recordset("period") & "&clas=" & recordset("clas") & "&project=" & recordset("project") & "&tuts=" & recordset("tuts")  & "target='_blank'>" & "GRADE" &"</a> "
response.write "<b><u><i>" & recordset("tuts") & "</u></i></b> / "
response.write "<font size='2'><i>Assigned: </i><font color='00000'>" & recordset("assigned") & " / "
response.write "<i>Turned in: </i>"

			


 If DateDiff("d", recordset("duedate0")), recordset("when0")) - recordset("sick2")) = 0 then 
            response.write "<font color='#666666'>"     
			 else 
			 response.write "<font color='#FF0000'>" 
			end if
 
			 
			 
			 
response.write recordset("when0") & "</font> / "
response.write "<i>Due on: </i><font color='#666666'>" & recordset("duedate0") & "</font> /"
response.write "Sick:</i><font color='blue'> " & recordset("sick2") & "</i></font> / "
response.write "</tr></table>"
%>

<input NAME="late" SIZE="1" VALUE="<%=DateDiff("d", recordset("duedate0"), recordset("when0")) - recordset("sick2") %>">  late points



<a href="javascript:popUp3('edit_rec.asp?id=<%= recordset("id")%>')">DELETE</a>

<%
      


recordset.movenext
Loop
End If
recordset.Close
Set recordset = Nothing
connection.Close
Set connection = Nothing
%>
</td>
</tr>
</table>
</div>
</body>
</html>
























< Message edited by dschmuecker -- 8/19/2008 23:12:26 >
rdouglass

 

Posts: 9280
From: Biddeford, ME USA
Status: offline

  		RE: date diff problem - 8/20/2008 9:26:28   
Just a quick guess but I suspect one or more of those fields have a Null in them somewhere.

_____________________________

Don't take you're eye off your final destination.

ASP Checkbox Function Tutorial.

(in reply to dschmuecker)
dschmuecker

 

Posts: 158
Joined: 10/27/2003
Status: offline

  		RE: date diff problem - 8/21/2008 22:05:02   
Rewriting frontpage asp to pure asp is challenging. I just did the query in access and the query works but when i include the datediff0 field in the response.write it says the Item cannot be found in the collection corresponding to the requested name or ordinal.
I must be missing something because in frontpage asp that would easily work. 

<!--#include virtual="/dsgrade/loginadmin/logincheck.asp"-->
<html>
<head>

	<title>DSGrade</title>
	<link rel="stylesheet" type="text/css" href="/dsgrade/grade.css">
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=0,statusbar=0,menubar=0,resizable=0,width=500,height=500,left = 

72,top = 159');");
}
// End -->
</script>
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp2(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=1,statusbar=1,menubar=0,resizable=1,width=1600,left = 0,top = 

0');");
}
// End -->
</script>
<SCRIPT LANGUAGE="JavaScript">

<!-- Begin
function popUp3(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=1,statusbar=1,menubar=0,resizable=1,width=100,height=100 left = 

0,top = 0');");
}
// End -->
</script>
</head>


<body>
<!--#include virtual="/dsgrade/admin/menu.asp"-->
<div class="outer3">
<table>
  <tr>
    <td colspan="2" class="headingbig">Grade
      Book</td>
  </tr>
 <tr>
  
    <td width="70%" valign="top">
    <span class="headingwhite"><b> <u><%request("clas")%> / <%request("term")%> / <%request("period")%> period</b></u></span><br><br>
<span class="headingleft"><b>Redo Projects</b></span>
<table BORDER="0" width="100%">

<!--#INCLUDE VIRTUAL="/dsgrade/includes/connection.asp" -->
<%
clas=request.querystring("clas")
fullname=request.querystring("fullname")
term=request.querystring("term")
period=request.querystring("period")
project=request.querystring("project")
tuts=request.querystring("tuts")


SQL="SELECT * FROM filesquery WHERE clas=  '" &clas&"' and term=  '" &term&"' and period=  '" &period&"' and tuts ='r' or tuts='rd' order by fullname ASC, [order0] asc"
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open(sConnString)
recordset.Open SQL,connection
If recordset.Eof Then
Response.write "There has been no redo projects submitted for " & request("clas")
Else
Do while not recordset.Eof
%>
<a 

href="javascript:popUp3('redodetail.asp?term=recordset("term")&tuts=recordset("tuts")&fullname=recordset("fullname")&period=recordset("period")&

amp;clas=recordset("clas")&project=recordset("project")')" class="red">recordset("user_name")-recordset("project") </a>
  <a href="javascript:popUp3('deletevarify.asp?ID=recordset("ID")')"><img src="imgs/delete.gif" width="15" border="0"></a>  
<%
recordset.movenext
Loop
End If
recordset.Close
Set recordset = Nothing
connection.Close
Set connection = Nothing
%>
</td></tr>
</table>
 </td></tr>
 </table>

 

    
    <%
clas=request.querystring("clas")
fullname=request.querystring("fullname")
term=request.querystring("term")
period=request.querystring("period")
project=request.querystring("project")
tuts=request.querystring("tuts")
total=request.querystring("total")
when0=request.querystring("when0")
duedate0=request.querystring("duedate0")
sick2=request.querystring("sick2")
dim DateDiff

SQL="SELECT * FROM filesquery WHERE clas=  '" &clas&"' and term=  '" &term&"' and period=  '" &period&"' and total<=0 and tuts ='Project' or tuts='Homework' or tuts='Tutorial'   order by user_name ASC, [order0] asc"
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open(sConnString)
recordset.Open SQL,connection
If recordset.Eof Then
Response.write "There has been no redo projects submitted for " & request("clas")
Else
Do while not recordset.Eof
%>
<%
response.write "<table><tr><td>"
response.write recordset("fullname") & " "
response.write "<a href=results2.asp?fname=" & recordset("fname") & "&lname=" & recordset("lname") & "&term=" & recordset("term")& "&period=" & recordset("period") & "&clas=" & recordset("clas")& "&user_name=" & recordset("user_name")& ">" & "Gradebook" & "</a><br></td>"
response.write "<td><input type='text' value='" & recordset("total") &  "'"  &  "name='total' size='1'>" & "/" & recordset("total0") & "</td>"
response.write "<td>" &  "<a href=gradestudpast.asp?ID=" & recordset("ID")& "&fullname=" & recordset("fullname")& "&term=" & recordset("term")& "&period=" & recordset("period") & "&clas=" & recordset("clas") & "&project=" & recordset("project") & "&tuts=" & recordset("tuts")  & "target='_blank'>" & "GRADE" &"</a> "
response.write "<b><u><i>" & recordset("tuts") & "</u></i></b> / "
response.write "<font size='2'><i>Assigned: </i><font color='00000'>" & recordset("datediff0") & " / "
response.write "<i>Turned in: </i>"

		
 
			 
			 
			 
response.write recordset("when0") & "</font> / "
response.write "<i>Due on: </i><font color='#666666'>" & recordset("duedate0") & "</font> /"
response.write "Sick:</i><font color='blue'> " & recordset("sick2") & "</i></font> / "
response.write "</tr></table>"
%>





<a href="javascript:popUp3('edit_rec.asp?id=<%= recordset("id")%>')">DELETE</a>

<%
      


recordset.movenext
Loop
End If
recordset.Close
Set recordset = Nothing
connection.Close
Set connection = Nothing
%>
</td>
</tr>
</table>
</div>
</body>
</html>

(in reply to rdouglass)
William Lee

 

Posts: 1179
Joined: 1/25/2002
From: Singapore
Status: offline

  		RE: date diff problem - 8/22/2008 10:43:58   
The Classic ASP code appears to contain an extra bracket

If DateDiff("d", (recordset("duedate0"), recordset("when0")) - recordset("sick2") = 0 then
response.write "<font color='#666666'>"
else
response.write "<font color='#FF0000'>"
end if

_____________________________

William Lee

pǝssǝɟoɹd-ɟ1ǝs ʎɥʇɹoʍʇsnɹʇ ʇsoɯ ɹnoʎ
nɹnb ǝsɐqɐʇɐp & dsɐ ,ʍɹp ,ǝbɐdʇuoɹɟ





(in reply to dschmuecker)
rdouglass

 

Posts: 9280
From: Biddeford, ME USA
Status: offline

  		RE: date diff problem - 8/22/2008 12:36:20   
quote:

The Classic ASP code appears to contain an extra bracket


Good eyes; I didn't look close enough 'cause it seemed to be right in the first lines of the post...:)

_____________________________

Don't take you're eye off your final destination.

ASP Checkbox Function Tutorial.

(in reply to William Lee)
dschmuecker

 

Posts: 158
Joined: 10/27/2003
Status: offline

  		RE: date diff problem - 8/22/2008 18:17:37   
Frustrating indeed. At least the query in access is work so that is good enough.
I had changed that but didn't paste in the updated code. Also, the code works when I remove this code. I believe the code is correct now in the response write.
but i get this error message now. I wondering that since it's a two date fields minus a number field it needs different coding.
Microsoft VBScript runtime error '800a000d'

Type mismatch

/dsgrade/admin/grade/grade_b.asp, line 138 

response.write "<i>Turned in: </i>"

If DateDiff("d", recordset("duedate0"), recordset("when0") - recordset("sick2")) = 0 then
response.write "<font color='#666666'>"
else
response.write "<font color='#FF0000'>"
end if 

response.write recordset("when0") & "</font> / "



(in reply to rdouglass)
William Lee

 

Posts: 1179
Joined: 1/25/2002
From: Singapore
Status: offline

  		RE: date diff problem - 8/22/2008 19:31:29   
This is incorrect

DateDiff("d", recordset("duedate0"), recordset("when0") - recordset("sick2")) = 0 then


Closing bracket should be like this
DateDiff("d", recordset("duedate0"), recordset("when0")) - recordset("sick2")=0

_____________________________

William Lee

pǝssǝɟoɹd-ɟ1ǝs ʎɥʇɹoʍʇsnɹʇ ʇsoɯ ɹnoʎ
nɹnb ǝsɐqɐʇɐp & dsɐ ,ʍɹp ,ǝbɐdʇuoɹɟ





(in reply to dschmuecker)
dschmuecker

 

Posts: 158
Joined: 10/27/2003
Status: offline

  		RE: date diff problem - 8/23/2008 12:35:20   
I swore i tried it that way in my various combination's but it does work now. thanks for all of your help.

(in reply to William Lee)
Page:   [1]

All Forums >> Web Development >> ASP and Database >> date diff problem 		Page: [1]
Jump to: 1





New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts


Back to top

  Microsoft Corporation in no way endorses or is affiliated with "OutFront."
  OutFront is published and edited by Thomas Brunt.
  440 Great Circle Dr., St. Matthews, SC 29135.
  © 2008 All Rights Reserved
  Click here to view our privacy statement.