Error 500 al tratar de conectar mi base de datos

[willys1202]

Que tal foro:

Pues les cuento: Estoy haciendo un carrito de compras, pero al momento de querer insertar el registro en mi tabla, me manda un error "An error occurred on the server when processing the URL. Please contact the system administrator"

Ya cheque permisos, idioma; que mas puedo hacer; eh aqui el codigo:

vSucursalVirtualM = "Provider=SQLOLEDB; Data Source=mssql2.megasqlservers.com; Initial Catalog=fqo_toymark_com_mx; User ID=dbm_fqo_toymark_com_mx; Password=V710wWI8MB;"
gs_Sql = "insert into Carrito("
gs_Sql = gs_Sql & "FechaAlta, Status) Values("
gs_Sql = gs_Sql & "'" & datMMDDAA & "', "
gs_Sql = gs_Sql & "'A')"

set conn = Server.CreateObject("ADODB.Connection")
conn.open vSucursalVirtualM
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = conn
objCmd.CommandText = gs_Sql
objCmd.CommandType = 1
objCmd.CommandTimeout = 0
objCmd.Prepared = true

al ejecutar esta linea aparece el error

objCmd.Execute()
Set IdCarrito = conn.Execute("Select @@IDENTITY From [Carrito] AS [IdCarrito]")

Alguna idea?

Salu2