cambia esto
Set insertar= oConn.execute("INSERT INTO VER (usuario, password, nombre,apellido, mail, dia, mes, ano, empresa, direccion, tel, fax, pais, ciudad, ir)")
sql = sql & ("VALUES ('"& usu &"','"& contra &"','"& nombre &"','"& apellido &"','"& mail &"','"& dia &"','"& mes &"','"& ano &"','"& empresa &"','"& direccion &"','"& tel &"','"& fax &"','"& pais &"','"& ciudad &"','"& ir &"')")
por esto
Código:
sql=""
sql=sql & "INSERT INTO VER (usuario, password, nombre,apellido, mail, dia, mes, ano, empresa, direccion, tel, fax, pais, ciudad, ir)"
sql=sql & "sql & ("VALUES ('"& usu &"','"& contra &"','"& nombre &"','"& apellido &"','"& mail &"','"& dia &"','"& mes &"','"& ano &"','"& empresa &"','"& direccion &"','"& tel &"','"& fax &"','"& pais &"','"& ciudad &"','"& ir &"')")"
response.write sql
Set insertar = oConn.execute(sql)