Errore: Type mismatch: '[string: ""]'

[Mizushi]

Ciao.

Ci sto andando al manicomio: uno script che si blocca e restituisce quest'errore:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: '[string: ""]' 

/_vbs/Default.asp, line 33

La riga dell'errore è la seguente:

function getGMTDate(argDate,argGMT)
	getGMTDate = dateadd("h",argGMT,argDate)
end function

Il codice ASP è questo, cosa è che non vedo?

<%

function pulisci(stringa)
   pulisci = replace(stringa, "'", "''__")
end function

function formatDBDate(argDate,argDB)

	dim tmpdate,tmpdateoutput
	tmpdate = argDate
	
	select case argDB
		case "mdb"
		tmpdateoutput = "#yyyy-mm-dd h:m:s#"
		case "mysql"
		tmpdateoutput = "'yyyy-mm-dd'"
	end select
	
	tmpdateoutput = replace(tmpdateoutput,"dd",right("0" & day(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"mm",right("0" & month(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"yyyy",year(tmpdate))
	tmpdateoutput = replace(tmpdateoutput,"yy",right(year(tmpdate),2))
	
	tmpdateoutput = replace(tmpdateoutput,"h",right("0" & hour(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"m",right("0" & minute(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"s",right("0" & second(tmpdate),2))
	
	formatDBDate = tmpdateoutput
	
end function

function getGMTDate(argDate,argGMT)
	getGMTDate = dateadd("h",argGMT,argDate)
end function

function formatGMTDate(argDate, argGMT, argFormat)
	dim tmpdate,tmpdateoutput
	tmpdate = getGMTDate(argDate,argGMT)
	
	tmpdateoutput = argFormat
	tmpdateoutput = replace(tmpdateoutput,"dd",right("0" & day(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"mm",right("0" & month(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"yyyy",year(tmpdate))
	tmpdateoutput = replace(tmpdateoutput,"yy",right(year(tmpdate),2))
	
	tmpdateoutput = replace(tmpdateoutput,"h",right("0" & hour(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"m",right("0" & minute(tmpdate),2))
	tmpdateoutput = replace(tmpdateoutput,"s",right("0" & second(tmpdate),2))	
	formatGMTDate = tmpdateoutput
end function

   Set cn = CreateObject("ADODB.Connection")
   cn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=.......;"

   Rs.Open SQL, cn
   
   if not Rs.eof then 
      count=0
         Rs.MoveFirst()
           Do While Not Rs.EOF
         
           query_select = "SELECT * FROM "
           query_select = query_select & " tbl_List "
           query_select = query_select & " WHERE 1 "
           query_select = query_select & " AND DATA = '" & formatGMTDate(RS("DATA"),0,"yyyy-mm-dd") & "' "           
           query_select = query_select & " AND PAROLA = '" & Rs("PAROLA") & "' "

           response.write query_select & "
"
           response.flush()  
           
           set RSquery_select = CreateObject("ADODB.Recordset")
           RSquery_select.Open query_select, cn
  
           if not RSquery_select.eof And not RSquery_select.bof then

           Response.write "KO"
           
           else
                                 
                                
           SQL = "INSERT INTO "  
           SQL = SQL & " tbl_List " 
           SQL = SQL & "( "  
                         ...       
           SQL = SQL & " ) "  
           SQL = SQL & "  VALUES "  
           SQL = SQL & " (  "  
                         ...
           SQL = SQL & " ) "  
           cn.execute(sql)   
           
           response.write SQL & "

"
           response.flush()         
           
           end if
           
           RSquery_select.Close()
           set RSquery_select = Nothing

		Rs.MoveNext()
      Loop
   end if
      
   sql = "DELETE FROM "  
   sql = sql & " _temp_appoggio_tbl "
   cn.execute(sql)
   
   Rs.Close()
   Set Rs = Nothing
'//FINE      
   
      
'//CHIUSURA E DISTRUZIONE CN MYSQL
   cn.Close()
   Set cn = Nothing
   
%>

[ubbicom]

Controlla se i campi data della tua tabella sono tutti valorizzati, se non lo sono inserisci una condizione quando la data è nulla.
Cerca nel forum la parola «pluripremiata» (credits Optime)...