Error Type: (0x80020009) Exception occurred.

[paperino29]

Salve,
ricevo il messaggio di errore in oggetto quando provo a recupare dati ti tipo 'data' da un database oracle.
Alcune date sono formattate come date brevi (8/18/2002), altre come date lunghe (11/29/2004 11:00:00 PM).
L'errore si manifesta soltanto con le date lunghe. Facendo un controllo, le date lunghe vengono riconosciute come oggetti di tipo vbObject e non ho modo di riconvertirle in qualsiasi altro tipo di oggetto. Ottengo sempre lo stesso errore.
Segue il codice ASP:

Set objConn = Server.CreateObject("ADODB.Connection")
Set Rec = Server.CreateObject ("ADODB.Recordset")
objConn.Open "dsn=yyyy;uid=xxxx;pwd=xxxx"

str1 = "MARINAI"
str2 = "OCCUPIED"
str3 = "CURRENT"
str4 = "OUTGOING"

str5 = "SELECT PORT.UNITS.AREA_ID AS Area_Name, PORT.PERSON.LAST_NAME AS Last_Name, PORT.PERSON.FIRST_NAME AS First_Name, " &_
"PORT.UNITS.ADDR_NO AS Unit_Number, PORT.PERSON.HOME_PH AS Home_Phone, PORT.PERSON.DUTY_PH AS Duty_Phone, " &_
"PORT.ACTIVITY.DUTY_STA AS Command, PORT.PERSON.PAYGRADE AS Paygrade, Count(PORT.PERSON.SSN) AS Dependents, " &_
"PORT.PERSON.DT_PRD AS Prd_Date, PORT.UNITS.BEDS AS Beds_Number, PORT.PERSON.HOME_ADDR1, PORT.UNITS.ADDR_ST " &_
"FROM PORT.ACTIVITY, PORT.DEPEND, PORT.PERSON, PORT.UNITS, PORT.APPLICATION WHERE (" &_
"(PORT.DEPEND.SSN = PORT.PERSON.SSN) AND " &_
"(PORT.PERSON.HOME_ADDR1 = PORT.UNITS.ADDR_ST) AND " &_
"(PORT.PERSON.SSN = PORT.APPLICATION.SSN) AND " &_
"(PORT.ACTIVITY.UIC_KEY = PORT.PERSON.UIC_KEY)) " &_
"GROUP BY PORT.UNITS.AREA_ID, PORT.PERSON.LAST_NAME, PORT.PERSON.FIRST_NAME, PORT.UNITS.ADDR_NO, " &_
"PORT.PERSON.HOME_PH, PORT.PERSON.DUTY_PH, PORT.ACTIVITY.DUTY_STA, PORT.PERSON.PAYGRADE, PORT.PERSON.DT_PRD, " &_
"PORT.UNITS.BEDS, PORT.UNITS.UNIT_STAT, PORT.APPLICATION.ASIGN_STAT, " &_
"PORT.PERSON.HOME_ADDR1, PORT.UNITS.ADDR_ST " &_
"HAVING (((PORT.UNITS.AREA_ID)= '" & str1 & "') AND ((PORT.UNITS.UNIT_STAT)= '" & str2 & "') AND " &_
"(((PORT.APPLICATION.ASIGN_STAT)= '" & str3 & "') Or ((PORT.APPLICATION.ASIGN_STAT)= '" & str4 & "'))) " &_
"ORDER BY PORT.UNITS.ADDR_NO"

Rec.open str5, objConn

Response.Write "<table border=1 cellpadding=4>"
Response.Write "<tr>"
response.write "<td>" & Rec("Area_Name") & "</td>"
response.write "<td>" & Rec("Last_Name") & "</td>"
response.write "<td>" & Rec("First_Name") & "</td>"
response.write "<td>" & Rec("Unit_Number") & "</td>"
response.write "<td>" & Rec("Home_Phone") & "</td>"
response.write "<td>" & Rec("Duty_Phone") & "</td>"
response.write "<td>" & Rec("Command") & "</td>"
response.write "<td>" & Rec("Paygrade") & "</td>"
response.write "<td>" & Rec("Dependents") & "</td>"
response.write "<td>" & Rec("Prd_Date") & "</td>"
response.write "<td>" & Rec("Beds_Number") & "</td>"
response.write "</tr>"

Potete aiutarmi? Grazie.

[vaargard]

prova con la query seguente:

str5 = "SELECT PORT.UNITS.AREA_ID AS Area_Name, PORT.PERSON.LAST_NAME AS Last_Name, PORT.PERSON.FIRST_NAME AS First_Name, " &_ 
"PORT.UNITS.ADDR_NO AS Unit_Number, PORT.PERSON.HOME_PH AS Home_Phone, PORT.PERSON.DUTY_PH AS Duty_Phone, " &_ 
"PORT.ACTIVITY.DUTY_STA AS Command, PORT.PERSON.PAYGRADE AS Paygrade, Count(PORT.PERSON.SSN) AS Dependents, " &_ 
"to_date(PORT.PERSON.DT_PRD,'dd/mm/yyyy') AS Prd_Date, PORT.UNITS.BEDS AS Beds_Number, PORT.PERSON.HOME_ADDR1, PORT.UNITS.ADDR_ST " &_ 
"FROM PORT.ACTIVITY, PORT.DEPEND, PORT.PERSON, PORT.UNITS, PORT.APPLICATION WHERE (" &_ 
"(PORT.DEPEND.SSN = PORT.PERSON.SSN) AND " &_ 
"(PORT.PERSON.HOME_ADDR1 = PORT.UNITS.ADDR_ST) AND " &_ 
"(PORT.PERSON.SSN = PORT.APPLICATION.SSN) AND " &_ 
"(PORT.ACTIVITY.UIC_KEY = PORT.PERSON.UIC_KEY)) " &_ 
"GROUP BY PORT.UNITS.AREA_ID, PORT.PERSON.LAST_NAME, PORT.PERSON.FIRST_NAME, PORT.UNITS.ADDR_NO, " &_ 
"PORT.PERSON.HOME_PH, PORT.PERSON.DUTY_PH, PORT.ACTIVITY.DUTY_STA, PORT.PERSON.PAYGRADE, PORT.PERSON.DT_PRD, " &_ 
"PORT.UNITS.BEDS, PORT.UNITS.UNIT_STAT, PORT.APPLICATION.ASIGN_STAT, " &_ 
"PORT.PERSON.HOME_ADDR1, PORT.UNITS.ADDR_ST " &_ 
"HAVING (((PORT.UNITS.AREA_ID)= '" & str1 & "') AND ((PORT.UNITS.UNIT_STAT)= '" & str2 & "') AND " &_ 
"(((PORT.APPLICATION.ASIGN_STAT)= '" & str3 & "') Or ((PORT.APPLICATION.ASIGN_STAT)= '" & str4 & "'))) " &_ 
"ORDER BY PORT.UNITS.ADDR_NO"

[paperino29]

L'errore e' sempre lo stesso.
Con questa stringa invece:

CAST (PORT.PERSON.DT_PRD AS VARCHAR(20)) as Prd_Date

non ho piu' l'errore ma ottengo una serie di zeri quando stampo con:
response.write "<td>" & Rec("Prd_Date") & "</td>"

Esattamente: 00-000-00

ciao ciao