Tratamento de Data no asp para inserção em banco de dados Sql Server INGLÊS

A necessidade desta rotina surge quando a função DATE do asp retorna dd/mm/yyyy e seu banco de dados aceita os valores em: mm/dd/yyyy. Para isso é feito o tratamento da data para atender o formato do banco. <% Dim n Dim Tipo Dim data_x Dim Dia Dim Mes Dim Ano Dim data_certa n=1 tipo=1 data_x=date dia="" mes="" ano=""  while n<len(data_x)+1   data_p= mid(data_x,n,1)    if tipo=3 then     if (data_p<>"/") then      ano=ano&data_p      else      tipo=tipo+1     end if    end if    if tipo=2 then     if (data_p<>"/") then      mes=mes&data_p      else      tipo=tipo+1     end if    end if    if tipo=1 then     if (data_p<>"/") then      dia=dia&data_p      else      tipo=tipo+1     end if    end if   n= n+1   wend  while len(dia)<2    dia="0"&dia  wend   while len(mes)<2    mes="0"&mes  wend   data_certa = mes&"/"&dia&"/"&ano  %>

Quebra-Linha

Colaborador..: Rommel Ramos
Categoria(s).: ASP;
Versão.......: 1.0
Data.........: 14/07/2003 09:09:02
Visualizado..: 3918 vezes
Fonte........: Rommel Thiago Jucá Ramos