Erro de compilação do Microsoft VBScript erro '800a0400'

[Leme Claudio 0]

Alguem pode me ajudar, acusando erro abaixo..

 

Erro de compilação do Microsoft VBScript erro '800a0400'

 

Instrução esperada

 

/~hqs/comprar.asp, line 5

 

3. If Len(Day(Date)) = 1 Then

 

_____________________________________________________________________________________________________________

 

Como está no site:

 

<!-- #include file="funcoes.asp" -->

2. <%

3. If Len(Day(Date)) = 1 Then

4. dia = "0"&Day(Date)

5. Else

6. dia = Day(Date)

7. End If

8. If Len(Month(Date)) = 1 Then

9. mes = "0" & Month(Date)

10. Else

11. mes = Month(Date)

12. End If

13.

14. set rsglobal = conexao.execute("SELECT * FROM compras Order by idcompra desc")

15. if rsglobal.eof then

16. Session("orderID") = ""

17. end if

18. rsglobal.close

19. set rsglobal = nothing

20. if Session("orderID") = "" then

21. set rs = conexao.execute("SELECT * FROM compras Order by idcompra desc")

22. if rs.eof then

23. Session("orderID") = 1

24. session("valor_cpdesconto") = null

25. session("valor_cpvalor") = null

26. session("utilizando_cupomdesconto") = "nao"

27. conexao.Execute("INSERT INTO compras (cotacao, idcompra, datacompra, status) values ('"&loja("cotacao_dia")&"','" &session("orderID") & "', '" & dia & "/"&mes&"/"&year(date)&"', 'Compra em Aberto')")

28. else

29. Session("orderID") = rs("idcompra") + 1

30. conexao.Execute("INSERT INTO compras (cotacao, idcompra, datacompra, status) values ('"&loja("cotacao_dia")&"', " &session("orderID") & ", '" & dia & "/"&mes&"/"&year(date)&"','Compra em Aberto')")

31. end if

32. session.timeout = 180

33. else

34. end if

35.

36.

37. Sub adicionac(nOrderID, nProductID, nQuant, nEspecificacoes)

38. if nEspecificacoes <> "" then

39. textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&nEspecificacoes&")"

40. elseif nEspecificacoes = "" then

41. zero = "0"

42. textosql = "INSERT INTO pedidos (idcompra, idprod, quantidade, especificacoes) values ("&nOrderID&", "&nProductID&", "&nQuant&", "&zero&")"

43. end if

44. conexao.Execute(textosql)

45. Response.Redirect "carrinhodecompras.asp"

46. End Sub

47.

48.

49.

50. intProdID = Request("intProdID")

51. intQuant = "1"

52. intOrderID = cstr(Session("orderID"))

53. intEspecificacoes = Request.form("especificacoes")

54. if intEspecificacoes = "" then

55. intEspecificacoes = "0"

56. end if

57.

58.

59. ver = "SELECT * FROM pedidos WHERE idcompra ='" & intOrderID & "' AND idprod ='" & intProdID & "' and especificacoes='"&intEspecificacoes&"';"

60. set verificar = conexao.Execute(ver)

61. if verificar.bof or verificar.eof then

62. adicionac intOrderID, intProdID, intQuant, intEspecificacoes

63. else

64. response.redirect "carrinhodecompras.asp?erro=O produto que você tenta adicionar já encontra-se em seu carrinho de compras."

65. end if

66.

67.

68.

69. 'Fecha banco de dados

70. conexao.Close

71. set conexao = Nothing

72. %>

[KhaosDoctor 242]

A variável dia é uma String?

[Mário Monteiro 179]

Para que complicar

 

Se a ideia for concatenar um zero quando o tamanho do numero for menor que 2 basta fazer assim

 

Numero = RIGTH("0" & Numero, 2)

 

Resolve e não precisa deste monde de código

 

Mesma coisa para dia e para mês